S
Test and debug Apache2 mod_perl handlers without running an apache server.
=head1 USAGE
use JSON;
use Test::More;
sub catch_stdout { ... }
sub unescapeURIString { ... }
sub test_http_hand
ders_out->{'Content-Type'} eq $ct, "Content-Type: '$ct'");
my $result = $ct =~ /json/i ? from_json(unescapeURIString($body)) : $body;
ok(Compare($result, $exp_res), "body");
}
tp_handler('My::Apache::Request::handler', { redirect => "https://localhost/" }, 55, 'application/json', login => 'mylogin', password => 'mypasswd');
=head1 DESCRIPTION
B<Apache2::Dummy::RequestRec>