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);