cvs commit: modperl-2.0/t/response/TestAPR util.pm

[dougm]

dougm       02/05/24 11:08:21

  Modified:    t/response/TestAPR util.pm
  Log:
  adjust APR::password_validate test
  
  Revision  Changes    Path
  1.6       +4 -3      modperl-2.0/t/response/TestAPR/util.pm
  
  Index: util.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/util.pm,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- util.pm   20 May 2002 22:27:17 -0000      1.5
  +++ util.pm   24 May 2002 18:08:21 -0000      1.6
  @@ -9,6 +9,7 @@
   use APR::Util ();
   
   use Apache::Const -compile => 'OK';
  +use APR::Const -compile => 'EMISMATCH';
   
   sub handler {
       my $r = shift;
  @@ -20,11 +21,11 @@
   #    my $bytes = APR::generate_random_bytes($blen);
   #    ok length($bytes) == $blen;
   
  -    my $status = APR::password_validate("one", "two");
  +    ok ! APR::password_validate("one", "two");
   
  -    ok $status != 0;
  +    my $status = APR::EMISMATCH;
   
  -    my $str= APR::strerror($status);
  +    my $str = APR::strerror($status);
   
       t_debug "strerror=$str\n";