Author: phred Date: Tue Dec 25 18:50:29 2007 New Revision: 606831 URL: http://svn.apache.org/viewvc?rev=606831&view=rev Log: Refactor to use keep_alives instead of TestCommon::SameInterp. As done originally in revision 594682 at ApacheCon 2007
Modified: perl/modperl/trunk/t/apr/pool_lifetime.t perl/modperl/trunk/t/response/TestAPR/pool_lifetime.pm Modified: perl/modperl/trunk/t/apr/pool_lifetime.t URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/apr/pool_lifetime.t?rev=606831&r1=606830&r2=606831&view=diff ============================================================================== --- perl/modperl/trunk/t/apr/pool_lifetime.t (original) +++ perl/modperl/trunk/t/apr/pool_lifetime.t Tue Dec 25 18:50:29 2007 @@ -4,7 +4,7 @@ use Apache::Test; use Apache::TestUtil; use Apache::TestRequest; -use TestCommon::SameInterp; +Apache::TestRequest::user_agent(keep_alive => 1); plan tests => 2, need 'HTML::HeadParser'; @@ -12,18 +12,14 @@ my $location = '/' . Apache::TestRequest::module2path($module); t_debug "getting the same interp ID for $location"; -my $same_interp = Apache::TestRequest::same_interp_tie($location); - -my $skip = $same_interp ? 0 : 1; for (1..2) { my $expected = "Pong"; - my $received = same_interp_req_body($same_interp, \&GET, $location); - $skip++ unless defined $received; - same_interp_skip_not_found( - $skip, + my $received = GET "$location"; + + ok t_cmp( + $received->content, $expected, - $received, - "Pong" + "Pong", ); } Modified: perl/modperl/trunk/t/response/TestAPR/pool_lifetime.pm URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/response/TestAPR/pool_lifetime.pm?rev=606831&r1=606830&r2=606831&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPR/pool_lifetime.pm (original) +++ perl/modperl/trunk/t/response/TestAPR/pool_lifetime.pm Tue Dec 25 18:50:29 2007 @@ -23,5 +23,3 @@ } 1; -__END__ -PerlFixupHandler Apache::TestHandler::same_interp_fixup