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

[stas]

stas        2004/05/26 19:09:28

  Modified:    t/response/TestAPR util.pm
  Log:
  - crypt is not supported on 3 platforms
  - add tests for md5 and sha1
  
  Revision  Changes    Path
  1.9       +30 -7     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.8
  retrieving revision 1.9
  diff -u -u -r1.8 -r1.9
  --- util.pm   22 May 2004 21:47:32 -0000      1.8
  +++ util.pm   27 May 2004 02:09:28 -0000      1.9
  @@ -1,5 +1,7 @@
   package TestAPR::util;
   
  +# test APR::Util
  +
   use strict;
   use warnings FATAL => 'all';
   
  @@ -10,21 +12,42 @@
   
   use Apache::Const -compile => 'OK';
   
  +use constant CRYPT_WORKS => $^O !~ /^(MSWin32|beos|NetWare)$/;
  +
  +my $clear = "this is some text";
  +# to get the hash values used:
  +# htpasswd -nb[sm] user "this is some text"
  +my %hashes = (
  +    crypt => 'pHM3JfnL6isho',
  +    md5   => '$apr1$Kld6H/..$o5OPPPWslI3zB20S54u9s1',
  +    sha1  => '{SHA}A5NpTRa4TethLkfOYlK9NfDYbAY=',
  +);
  +
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 2;
  +    plan $r, tests => 4;
  +
  +    # password_validate
  +    {
  +        ok ! APR::Util::password_validate("one", "two");
  +
  +        while (my($mode, $hash) = each %hashes) {
  +            t_debug($mode);
  +            if ($mode eq 'crypt' && !CRYPT_WORKS) {
  +                t_debug("crypt is not supported on $^O");
  +                ok 1; # don't make noise
  +            }
  +            else {
  +                ok APR::Util::password_validate($clear, $hash);
  +            }
  +        }
  +    }
   
   #this function seems unstable on certain platforms
   #    my $blen = 10;
   #    my $bytes = APR::generate_random_bytes($blen);
   #    ok length($bytes) == $blen;
  -
  -    ok ! APR::Util::password_validate("one", "two");
  -
  -    my $clear = "pass1";
  -    my $hash  = "1fWDc9QWYCWrQ";
  -    ok APR::Util::password_validate($clear, $hash);
   
       Apache::OK;
   }