dougm 01/10/05 17:05:59
Modified: t/hooks authen.t
Log:
s/ok/sok/g so we can run individual tests
Revision Changes Path
1.4 +13 -5 modperl-2.0/t/hooks/authen.t
Index: authen.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/authen.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- authen.t 2001/04/04 04:37:02 1.3
+++ authen.t 2001/10/06 00:05:59 1.4
@@ -8,14 +8,22 @@
my $location = "/TestHooks::authen";
-ok ! GET_OK $location;
+sok {
+ ! GET_OK $location;
+};
-my $rc = GET_RC $location;
+sok {
+ my $rc = GET_RC $location;
+ $rc == 401;
+};
-ok $rc == 401;
+sok {
+ GET_OK $location, username => 'dougm', password => 'foo';
+};
-ok GET_OK $location, username => 'dougm', password => 'foo';
+sok {
+ ! GET_OK $location, username => 'dougm', password => 'wrong';
+};
-ok ! GET_OK $location, username => 'dougm', password => 'wrong';