view release on metacpan or  search on metacpan

t/TEST.PL  view on Meta::CPAN

#!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;
}