'HEAD method content is empty' );
}
elsif ( $method eq 'GET' ) {
- # method name is echo'd back in content-body (twice under debug),
- # which accounts for difference in content length. In normal
- # cases the Content-Length should be the same regardless
- # of whether it's a GET or HEAD request.
- SKIP:
- {
- if ( $ENV{CATALYST_SERVER} ) {
- skip "Using remote server", 2;
- }
- my $diff = TestApp->debug ? 2 : 1;
- is( $response->header('Content-Length'),
- $content_length - $diff, 'Response Header Content-Length' )
- or diag $response->content;
- is( length($response->content),
- $response->header('Content-Length'),
- 'GET method content' );
- }
+ is( $response->header('Content-Length'),
+ $content_length, 'Response Header Content-Length' )
+ or diag $response->content;
+ is( length($response->content),
+ $response->header('Content-Length'),
+ 'GET method content' );
}
}
$c->res->header( 'X-Header-Catalyst' => 'Cool' );
$c->res->header( 'X-Header-Cool' => 'Catalyst' );
$c->res->header( 'X-Header-Numbers' => join ', ', 1 .. 10 );
- $c->forward('TestApp::View::Dump::Request');
+ $c->forward('TestApp::View::Dump', [ { some => [qw(fixed content)] } ]);
}
1;