X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive_component_controller_action_streaming.t;h=68584a1a8034933c394d7cfbc9a3af766757162d;hb=b3f87dd054ccd28f4645ff93acb0ee86471c9ed1;hp=d589d114c27507f9335371cd87c56efa61ca4a7d;hpb=3b6a1db18241beccccb477ffd5f3abeaaff35418;p=catagits%2FCatalyst-Runtime.git diff --git a/t/live_component_controller_action_streaming.t b/t/live_component_controller_action_streaming.t index d589d11..68584a1 100644 --- a/t/live_component_controller_action_streaming.t +++ b/t/live_component_controller_action_streaming.t @@ -29,8 +29,17 @@ sub run_tests { ok( my $response = request('http://localhost/streaming'), 'Request' ); ok( $response->is_success, 'Response Successful 2xx' ); is( $response->content_type, 'text/plain', 'Response Content-Type' ); - # XXX: Length should be undef here, but HTTP::Request::AsCGI sets it - is( $response->content_length, 12, 'Response Content-Length' ); + + SKIP: + { + if ( $ENV{CATALYST_SERVER} ) { + skip "Using remote server", 1; + } + + # XXX: Length should be undef here, but HTTP::Request::AsCGI sets it + is( $response->content_length, 12, 'Response Content-Length' ); + } + is( $response->content,, <<'EOF', 'Content is a stream' ); foo bar