#!perl
use strict;
use warnings FATAL => 'all';
MyTest->new->run(@ARGV);
# sub-class Apache::TestRunPerl
package MyTest;
# 5.005-compat
BEGIN {
require Apache::TestRunPerl;
@MyTest::ISA = qw(Apache::TestRunPerl);
}
# so we get a nice view of procs/threads
use constant MIN_MAXCLIENTS => 5;
# 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} ||= MIN_MAXCLIENTS;
return $self->SUPER::new_test_config;
}