Apache-Defaults

 view release on metacpan or  search on metacpan

t/01version.t  view on Meta::CPAN

# -*- perl -*-
use lib qw(t lib);
use strict;
use warnings;
use Test;
use TestHttpd;

plan test => 10;

my $x = new TestHttpd;

ok($x->name, 'Apache');

t/02modules.t  view on Meta::CPAN

# -*- perl -*-
use lib qw(t lib);
use strict;
use warnings;
use Test;
use TestHttpd;

plan test => 3;

my $x = new TestHttpd;

ok(join(',', $x->preloaded), 'cgi_module,so_module');

t/03env.t  view on Meta::CPAN

# -*- perl -*-
use lib qw(t lib);
use strict;
use warnings;
use Test;
use TestHttpd;

plan test => 3;

my $x = new TestHttpd(environ => { MOCK_HTTPD_CATCH => 22 });

ok($x->name, 'Apache');

t/TestHttpd.pm  view on Meta::CPAN

package TestHttpd;
use strict;
use warnings;
use lib qw(t lib);
use parent 'Apache::Defaults';
use MockHttpd;
use File::Temp qw(tempfile);

sub new {
    my $class = shift;
    local %_ = @_;
    if (my $env = $_{environ}) {
	my ($fh, $name) = tempfile();
	while (my ($k,$v) = each %$env) {