X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_response_headers.t;h=03a2418ad458af294b9415dbcecb1d6f724603ec;hb=480d94b5f34577816d44fe05389ca5a085179363;hp=123b125a8ba7b3ec5178ec3673ecb5f4ebdac77d;hpb=43c581537432e9e6dd82d10375e1aac4cbcff5fb;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/live_engine_response_headers.t b/t/aggregate/live_engine_response_headers.t
index 123b125..03a2418 100644
--- a/t/aggregate/live_engine_response_headers.t
+++ b/t/aggregate/live_engine_response_headers.t
@@ -1,5 +1,3 @@
-#!perl
-
 use strict;
 use warnings;
 
@@ -12,7 +10,7 @@ use HTTP::Request::Common;
 
 my $content_length;
 
-foreach my $method qw(HEAD GET) {
+foreach my $method (qw(HEAD GET)) {
     my $expected = join( ', ', 1 .. 10 );
 
     my $request = HTTP::Request::Common->can($method)
@@ -39,20 +37,11 @@ foreach my $method qw(HEAD GET) {
             '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
-        # 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;
-            }
-            is( $response->header('Content-Length'),
-                $content_length - 1, 'Response Header Content-Length' );
-            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' );
     }
 }