stas 01/10/18 19:40:41
Modified: ModPerl-Registry/t TEST.PL
Log:
- allow 2 maxclients, since some tests generate two requests at the same
time (one from within the other)
Revision Changes Path
1.2 +15 -8 modperl-2.0/ModPerl-Registry/t/TEST.PL
Index: TEST.PL
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/TEST.PL,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- TEST.PL 2001/10/09 12:47:38 1.1
+++ TEST.PL 2001/10/19 02:40:41 1.2
@@ -3,15 +3,22 @@
use strict;
use warnings FATAL => 'all';
-# XXX: fixme
-#use lib map { "$_/Apache-Test/lib" } qw(. ..);
-#use lib map { "$_/blib/lib" } qw(. .. ../..);
-#use lib map { "$_/lib" } qw(. .. ../..);
-#use blib map { $_ } qw(. .. ../..);
-
use lib map {("../blib/$_", "../../blib/$_")} qw(lib arch);
-#use blib qw(..);
use Apache::TestRunPerl ();
+
+package MyTest;
+
+our @ISA = qw(Apache::TestRunPerl);
+
+# subclass new_test_config to add some config vars which will be
+# replaced in generated httpd.conf
+sub new_test_config {
+ my $self = shift;
+
+ $self->{conf_opts}->{maxclients} = 2;
+
+ return $self->SUPER::new_test_config;
+}
-Apache::TestRunPerl->new->run(@ARGV);
+MyTest->new->run(@ARGV);
