-#!perl
-
use strict;
use warnings;
'HEAD method content is empty' );
}
elsif ( $method eq 'GET' ) {
- # method name is echo'd back in content-body, which
- # accounts for difference in content length. In normal
+ # 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 - 1, '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' );