cvs commit: modperl-2.0/t/response/TestApache compat2.pm

[dougm]

dougm       02/05/24 10:50:33

  Modified:    lib/Apache compat.pm
               t/response/TestApache compat2.pm
  Log:
  add Apache::Util::validate_password alias to APR::password_validate
  for 1.x compat
  
  Revision  Changes    Path
  1.54      +3 -0      modperl-2.0/lib/Apache/compat.pm
  
  Index: compat.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/compat.pm,v
  retrieving revision 1.53
  retrieving revision 1.54
  diff -u -r1.53 -r1.54
  --- compat.pm 24 May 2002 17:40:44 -0000      1.53
  +++ compat.pm 24 May 2002 17:50:33 -0000      1.54
  @@ -33,6 +33,7 @@
   use APR::Table ();
   use APR::Pool ();
   use APR::URI ();
  +use APR::Util ();
   use mod_perl ();
   use Symbol ();
   
  @@ -454,6 +455,8 @@
   }
   
   *parsedate = \&APR::Date::parse_http;
  +
  +*validate_password = \&APR::password_validate;
   
   sub Apache::URI::parse {
       my($class, $r, $uri) = @_;
  
  
  
  1.12      +7 -0      modperl-2.0/t/response/TestApache/compat2.pm
  
  Index: compat2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/compat2.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- compat2.pm        24 May 2002 17:40:44 -0000      1.11
  +++ compat2.pm        24 May 2002 17:50:33 -0000      1.12
  @@ -226,6 +226,13 @@
   
       ok t_cmp($time, $ptime, "Apache::Util::parsedate");
   
  +    #note these are not actually part of the tests
  +    #since i think on platforms where crypt is not supported,
  +    #these tests will fail.  but at least we can look with t/TEST -v
  +    my $hash = "aX9eP53k4DGfU";
  +    t_cmp(1, Apache::Util::validate_password("dougm", $hash));
  +    t_cmp(0, Apache::Util::validate_password("mguod", $hash));
  +
       OK;
   }