stas 01/10/02 06:30:32
Modified: perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
t/api send_fd.t sendfile.t
t/filter input_msg.t
t/response/TestApache conftree.pm
Log:
- use the cached Apache::Test::config() instead of Apache::TestConfig->thaw
Revision Changes Path
1.35 +2 -2
httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm
Index: TestConfigPerl.pm
===================================================================
RCS file:
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- TestConfigPerl.pm 2001/09/28 15:12:11 1.34
+++ TestConfigPerl.pm 2001/10/02 13:30:31 1.35
@@ -76,8 +76,8 @@
my $fh = $self->genfile($t);
print $fh <<EOF;
-use Apache::TestConfig ();
-print Apache::TestConfig->thaw->http_raw_get("/$pm");
+use Apache::Test ();
+print Apache::Test::config()->http_raw_get("/$pm");
EOF
close $fh or die "close $t: $!";
1.2 +2 -2 modperl-2.0/t/api/send_fd.t
Index: send_fd.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/api/send_fd.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- send_fd.t 2001/04/28 19:29:42 1.1
+++ send_fd.t 2001/10/02 13:30:31 1.2
@@ -2,11 +2,11 @@
use warnings FATAL => 'all';
use Test;
-use Apache::TestConfig ();
+use Apache::Test ();
plan tests => 3;
-my $config = Apache::TestConfig->thaw;
+my $config = Apache::Test::config();
my $url = '/TestAPI::send_fd';
1.2 +2 -2 modperl-2.0/t/api/sendfile.t
Index: sendfile.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/api/sendfile.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- sendfile.t 2001/04/28 19:10:42 1.1
+++ sendfile.t 2001/10/02 13:30:31 1.2
@@ -2,11 +2,11 @@
use warnings FATAL => 'all';
use Test;
-use Apache::TestConfig ();
+use Apache::Test ();
plan tests => 3;
-my $config = Apache::TestConfig->thaw;
+my $config = Apache::Test::config();
my $url = '/TestAPI::sendfile';
1.4 +2 -2 modperl-2.0/t/filter/input_msg.t
Index: input_msg.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/input_msg.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- input_msg.t 2001/08/17 03:58:11 1.3
+++ input_msg.t 2001/10/02 13:30:32 1.4
@@ -1,12 +1,12 @@
use Apache::TestRequest ();
-use Apache::TestConfig ();
+use Apache::Test ();
my $module = 'TestFilter::input_msg';
Apache::TestRequest::scheme('http'); #force http for t/TEST -ssl
Apache::TestRequest::module($module);
-my $config = Apache::TestConfig->thaw;
+my $config = Apache::Test::config();
my $hostport = Apache::TestRequest::hostport($config);
print "connecting to $hostport\n";
1.2 +1 -1 modperl-2.0/t/response/TestApache/conftree.pm
Index: conftree.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestApache/conftree.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- conftree.pm 2001/04/03 17:01:48 1.1
+++ conftree.pm 2001/10/02 13:30:32 1.2
@@ -10,7 +10,7 @@
sub handler {
my $r = shift;
- my $cfg = Apache::TestConfig->thaw;
+ my $cfg = Apache::Test::config();
plan $r, tests => 7;
ok $cfg;
