[Sandweb-commit] CVS: sandweb/t basics.t,1.1,1.2

[Nick J. <nje...@us...>]

Update of /cvsroot/sandweb/sandweb/t
In directory usw-pr-cvs1:/tmp/cvs-serv29019/t

Modified Files:
	basics.t 
Log Message:
* basics.t now does some very basic tests.


Index: basics.t
===================================================================
RCS file: /cvsroot/sandweb/sandweb/t/basics.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- basics.t	8 Mar 2002 07:02:55 -0000	1.1
+++ basics.t	8 Mar 2002 07:12:49 -0000	1.2
@@ -1,6 +1,6 @@
 use Test;
-BEGIN { plan tests => 5, todo => [3,4,5] }
+BEGIN { plan tests => 3, todo => [0] }
 
-# test case 1
+# test 1
 eval { require SandWeb; return 1; };
 ok($@, '');
@@ -12,17 +12,17 @@
 
 # object creation, all objects global throughout CGI
-my %return = SandWeb::->start_up( 
+my $return = SandWeb::->start_up( 
         config_dir => $config_dir, 
         config_file => $config_file,
 );
-ok($return{'errlev'});
+# test 2
+ok($return->{'errlev'});
 
-my $log = $return{'data'}->{'log'};
-my $ui = $return{'data'}->{'ui'};
-my $auth = $return{'data'}->{'auth'};
+my $auth = $return->{'data'}->{'auth'};
 
-# test case 2
+# test 3
 ok($auth->login(
 	'username' => 'foo',
 	'password' => 'bar',
 ));
+