You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ph...@apache.org on 2007/12/26 03:50:33 UTC
svn commit: r606831 - in /perl/modperl/trunk/t: apr/pool_lifetime.t
response/TestAPR/pool_lifetime.pm
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