view release on metacpan or  search on metacpan

t/Apache2-Dummy-RequestRec.t  view on Meta::CPAN

ok($r->args eq 'bla=blu', "args()");
$tno++;

ok($r->method_number eq 0, "method_number(GET) == 0");
$tno++;

ok($r->content_languages eq 'EN', "content-languages() == 'EN'");
$tno++;

$r->content_type("text/html");
ok($r->content_type eq 'text/html', "content-type('text/html') == 'text/html'");
$tno++;

my $headers_out =
{
    'Content-Language' => "EN",
    'Content-Type'     => "text/html"
};
my %ho = %{$r->err_headers_out()};
ok(Compare(\%ho, $headers_out), "(err_)headers_out()");
$tno++;