File Coverage

blib/lib/Test/Mock/Apache2.pm

Criterion	Covered	Total	%
statement	50	64	78.1
branch	4	8	50.0
condition	3	5	60.0
subroutine	16	22	72.7
pod	4	7	57.1
total	77	106	72.6

package Test::Mock::Apache2;

use strict;
use warnings;

our $VERSION = '0.05';

use Test::MockObject;

# ABSTRACT: Mock mod_perl2 objects when running outside of Apache


our $AP2_REQ;
our $AP2_REQ_UTIL;
our $APR_REQ_AP2;
our $APR_THROW_EXCEPTION = 0xDEADBEEF;

{

    my $COOKIE_JAR = {};
    my $PARAMS = {};

    sub cookie_jar {
        my $self = shift;

        if (@_) {
            $COOKIE_JAR = shift;
        }

        return $COOKIE_JAR;
    }

sub params {
    my $self = shift;

    if (@_) {
	$PARAMS = shift;
    }

    return $PARAMS;
}

}

sub import {
    my( $package, $config ) = @_;

    #arn "Init mocked objects...\n";
    init_mocked_objects($config);

    # XXX Apache2::Cookie
    my @modules_to_fake = qw(
        Apache2::Request
        Apache2::SubRequest
        Apache2::URI
    );

    #arn "Faking modules...\n";
    Test::MockObject->fake_module($_) for @modules_to_fake;
}


sub ap2_server {
    my $config = shift;
    my $r = Test::MockObject->new();
    $r->fake_module('Apache2::ServerRec',
        server_hostname => sub { $config->{server_hostname} || 'localhost' },
        log_error => sub { print $_[0] . "\n"; },
    );
    bless $r, 'Apache2::ServerRec';
    return $r;
}


sub ap2_request {
    my $config = shift;
    my $r = Test::MockObject->new();
    $r->fake_module('Apache2::RequestRec',
        hostname   => sub {},
        server     => sub { ap2_server($config) },
        dir_config => sub { $config->{ $_[1] } },
        content_type => sub { },
        uri        => sub { ""; },
    );
    bless $r, 'Apache2::RequestRec';
    return $r;
}


sub apr_request_ap2 {
    my $r = Test::MockObject->new();
    $r->fake_module('APR::Request::Apache2',
        jar => sub {
            # Some primitive exception logic is needed
            # to simulate the cookie-containing-comma bug
            my $jar = Test::Mock::Apache2->cookie_jar();
            if (! ref $jar and ($jar == $APR_THROW_EXCEPTION)) {
                my $apr_req_err = Test::MockObject->new();
                $apr_req_err->fake_module('APR::Request::Error');
                $apr_req_err->set_always(jar => \&cookie_jar);
                return $apr_req_err;
            }
            bless $jar, "APR::Request::Cookie::Table";
        },
        param => sub {
	    my $params = Test::Mock::Apache2->params();
	    bless $params, "APR::Request::Param::Table";
	},
        handle => \&apr_request_ap2,
    );
    $r->fake_new('APR::Request::Apache2');
    bless $r, 'APR::Request::Apache2';
    return $r;
}


sub ap2_requestutil {
    my $config = shift;
    my $ap2_ru = Test::MockObject->new();
    $ap2_ru->fake_module('Apache2::RequestUtil',
        request    => sub { ap2_request($config) },
        dir_config => sub { $config->{ $_[1] } },
    );
    $ap2_ru->fake_new('Apache2::RequestUtil');
    bless $ap2_ru, 'Apache2::RequestUtil';
    return $ap2_ru;
}


sub init_mocked_objects {
    my $config = shift || {};

    $AP2_REQ = ap2_request($config);
    $APR_REQ_AP2 = apr_request_ap2();
    $AP2_REQ_UTIL = ap2_requestutil($config);

}

1;


__END__