cvs commit: modperl-2.0/t/response/TestAPI access.pm

[stas]

stas        2004/08/09 12:49:41

  Modified:    t/response/TestAPI access.pm
  Log:
  make the test more debuggable
  
  Revision  Changes    Path
  1.8       +5 -5      modperl-2.0/t/response/TestAPI/access.pm
  
  Index: access.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/access.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -u -r1.7 -r1.8
  --- access.pm 9 Aug 2004 19:47:22 -0000       1.7
  +++ access.pm 9 Aug 2004 19:49:41 -0000       1.8
  @@ -25,18 +25,18 @@
   
       ok !($r->allow_overrides & Apache::OR_LIMIT);
   
  -    ok $r->satisfies == Apache::SATISFY_NOSPEC;
  +    ok t_cmp $r->satisfies, Apache::SATISFY_NOSPEC, "satisfies";
   
  -    ok $r->auth_name eq 'modperl';
  +    ok t_cmp $r->auth_name, 'modperl', "auth_name";
   
       $r->auth_name('modperl_test');
  -    ok $r->auth_name eq 'modperl_test';
  +    ok t_cmp $r->auth_name, 'modperl_test', "auth_name";
       $r->auth_name('modperl');
   
  -    ok $r->auth_type eq 'none';
  +    ok t_cmp $r->auth_type,  'none', "auth_type";
   
       $r->auth_type('Basic');
  -    ok $r->auth_type eq 'Basic';
  +    ok t_cmp $r->auth_type, 'Basic', "auth_type";
       $r->auth_type('none');
   
       ok !$r->some_auth_required;