Apache2-HttpEquiv
view release on metacpan or search on metacpan
t/10-headers.t view on Meta::CPAN
[ 'New-Header' => 'header 2' ] ]);
test('claims text/xhtml', {}, <<'END',
<html><head>
<meta http-equiv="Content-Type" content="text/xhtml; charset=UTF-8">
</head><body></body></html>
END
[ "text/html; charset=UTF-8" ]);
{
my $r = Mock_Request->new(filename => 'does_not_exist');
is(Apache2::HttpEquiv::handler($r), DECLINED, 'missing file is not error');
is_deeply($r->_test_results, [ 'text/html' ], 'missing file no changes');
}
done_testing;
( run in 0.601 second using v1.01-cache-2.11-cpan-cc502c75498 )