stas 02/01/29 23:01:17
Modified: t/response/TestAPR util.pm
Log:
- complete the APR::Lib to APR::Util move
- adjust the function names to be APR::Util::...
Revision Changes Path
1.2 +4 -4 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.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- util.pm 30 Jan 2002 05:21:52 -0000 1.1
+++ util.pm 30 Jan 2002 07:01:16 -0000 1.2
@@ -1,4 +1,4 @@
-package TestAPR::lib;
+package TestAPR::util;
use strict;
use warnings FATAL => 'all';
@@ -14,14 +14,14 @@
plan $r, tests => 3;
my $blen = 10;
- my $bytes = APR::generate_random_bytes(10);
+ my $bytes = APR::Util::generate_random_bytes(10);
ok length($bytes) == $blen;
- my $status = APR::password_validate("one", "two");
+ my $status = APR::Util::password_validate("one", "two");
ok $status != 0;
- my $str= APR::strerror($status);
+ my $str= APR::Util::strerror($status);
t_debug "strerror=$str\n";