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";