cvs commit: modperl-2.0/t/hooks authen.t

[dougm]

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';