stas 2004/10/05 18:13:02
Modified: t/response/TestAPR pool_lifetime.pm t/apr pool_lifetime.t Log: fix the test and document it Revision Changes Path 1.2 +8 -9 modperl-2.0/t/response/TestAPR/pool_lifetime.pm Index: pool_lifetime.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/pool_lifetime.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -u -r1.1 -r1.2 --- pool_lifetime.pm 4 Oct 2004 00:05:24 -0000 1.1 +++ pool_lifetime.pm 6 Oct 2004 01:13:02 -0000 1.2 @@ -1,28 +1,27 @@ package TestAPR::pool_lifetime; +# this test verifies that if the perl pool object exceeds the +# life-span of the underlying pool struct we don't get segfaults + use strict; use warnings FATAL => 'all'; -use Apache::Test; -use Apache::TestUtil; -use Apache::TestTrace; - use Apache::RequestRec (); -use APR::Pool (); +use Apache::RequestIO (); use Apache::Const -compile => 'OK'; my $pool; + sub handler { my $r = shift; - + $r->print("Pong"); $pool = $r->pool; - - Apache::OK; + + Apache::OK; } 1; __END__ - PerlFixupHandler Apache::TestHandler::same_interp_fixup 1.2 +0 -1 modperl-2.0/t/apr/pool_lifetime.t Index: pool_lifetime.t =================================================================== RCS file: /home/cvs/modperl-2.0/t/apr/pool_lifetime.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -u -r1.1 -r1.2 --- pool_lifetime.t 4 Oct 2004 00:05:24 -0000 1.1 +++ pool_lifetime.t 6 Oct 2004 01:13:02 -0000 1.2 @@ -4,7 +4,6 @@ use Apache::Test; use Apache::TestUtil; use Apache::TestRequest; -use File::Spec::Functions qw(catfile); plan tests => 2;