stas 2004/05/27 14:07:33
Modified: t/response/TestAPR util.pm
Log:
sha1 support added in 2.0.50
Revision Changes Path
1.10 +6 -1 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.9
retrieving revision 1.10
diff -u -u -r1.9 -r1.10
--- util.pm 27 May 2004 02:09:28 -0000 1.9
+++ util.pm 27 May 2004 21:07:33 -0000 1.10
@@ -23,10 +23,15 @@
sha1 => '{SHA}A5NpTRa4TethLkfOYlK9NfDYbAY=',
);
+# BACK_COMPAT_MARKER (sha1 support added in 2.0.50)
+delete $hashes{sha1} unless have_apache_version('2.0.50');
+
+my $password_validate_tests = 1 + scalar keys %hashes;
+
sub handler {
my $r = shift;
- plan $r, tests => 4;
+ plan $r, tests => $password_validate_tests;
# password_validate
{
