view release on metacpan or  search on metacpan

t/TEST.PL  view on Meta::CPAN

use Apache::Test ();
use Apache::TestUtil qw(t_catfile);
use Apache::TestRunPerl ();
use base 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;
  $self=$self->SUPER::new_test_config;

  my $serverroot=Apache::Test::vars->{serverroot};
  my $confdir=Apache::Test::vars->{t_conf};

  unless( defined $db and length $db ) {
    ($db,$user,$pw)=("dbi:SQLite:dbname=$serverroot/test.sqlite", '', '');
    $dbinit="PRAGMA synchronous = OFF";
  }
  warn "# Using Database $db, User '$user'\n";