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',
));
+
|
