stas 2003/08/26 15:32:08
Modified: ModPerl-Registry/t TEST.PL Log: a bit of cleanup Revision Changes Path 1.9 +10 -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.8 retrieving revision 1.9 diff -u -r1.8 -r1.9 --- TEST.PL 20 May 2003 06:03:46 -0000 1.8 +++ TEST.PL 26 Aug 2003 22:32:08 -0000 1.9 @@ -6,16 +6,21 @@ use lib "$FindBin::Bin/../lib"; use lib grep { -d } map "$FindBin::Bin/../../$_", qw(lib Apache-Test/lib); -use Apache::TestRunPerl (); +MyTest->new->run(@ARGV); + + # sub-class Apache::TestRunPerl package MyTest; +use base qw(Apache::TestRunPerl); + +# redirect tests require 2 servers +use constant MIN_MAXCLIENTS => 2; + use Cwd (); use File::Spec::Functions qw(splitpath splitdir catpath catdir rootdir); -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 { @@ -25,12 +30,9 @@ my @dir = grep {length} splitdir $dir; $dir = catdir @dir[0..($#dir-2)]; # remove two last dir segments my $base = catpath $volume, rootdir(), $dir, $file; - - $self->{conf_opts}->{maxclients} = 2; - $self->{conf_opts}->{src_dir} = catdir $base, qw(src modules perl); + $self->{conf_opts}->{maxclients} = MIN_MAXCLIENTS; + return $self->SUPER::new_test_config; } - -MyTest->new->run(@ARGV);