dougm 01/09/12 19:38:19 Modified: xs/APR/APR apr-test Log: num_bytes no longer exists (without apr debug flag) Revision Changes Path 1.2 +4 -18 modperl-2.0/xs/APR/APR/apr-test Index: apr-test =================================================================== RCS file: /home/cvs/modperl-2.0/xs/APR/APR/apr-test,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- apr-test 2001/03/05 03:51:16 1.1 +++ apr-test 2001/09/13 02:38:19 1.2 @@ -1,8 +1,10 @@ #!perl - +BEGIN { + *ModPerl::XSLoader::BOOTSTRAP = sub () {1}; +} use Test; -plan tests => 10; +plan tests => 8; use blib; use warnings FATAL => 'all'; @@ -23,12 +25,6 @@ my $p = APR::Pool->new; -my $num_bytes = $p->num_bytes; - -ok $num_bytes; - -#print "begin bytes=$num_bytes\n"; - ok $p; my $lock = APR::Lock->new($p, 0, 1, "lock.file"); @@ -56,16 +52,6 @@ ok $decoded eq $bytes; $p->clear; - -while ($num_bytes == $p->num_bytes) { - APR::Lock->new($p); -} - -my $cur_num_bytes = $p->num_bytes; - -#print "end bytes=$cur_num_bytes\n"; - -ok (($cur_num_bytes / 2) == $num_bytes); for (1..9) { my $desc = APR::Signal::get_description($_);