view release on metacpan or  search on metacpan

t/10-headers.t  view on Meta::CPAN

#=====================================================================

sub test
{
  my ($name, $params, $text, $expected, $exResult) = @_;

  local $Test::Builder::Level = $Test::Builder::Level + 1;

  my $tmp = File::Temp->new(UNLINK => 1);

  binmode $tmp, ':encoding(latin1)';
  print $tmp $text;
  $tmp->close;

  my $r = Mock_Request->new(filename => "$tmp", %$params);

  $exResult = OK unless defined $exResult;

  is(Apache2::HttpEquiv::handler($r), $exResult, "$name result");

  is_deeply($r->_test_results, $expected, "$name headers");