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=048f45ee23401c9f2fbe241639f2687c1e79f990;hp=b865cf6bb79d21c4e3047908e4541b674766c786;hpb=6b25e5554ead493893b5bf164bfde1f58f0730e5;p=catagits%2FCatalyst-Runtime.git diff --git a/t/live_component_controller_action_streaming.t b/t/live_component_controller_action_streaming.t index b865cf6..68584a1 100644 --- a/t/live_component_controller_action_streaming.t +++ b/t/live_component_controller_action_streaming.t @@ -10,7 +10,7 @@ our $iters; BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; } -use Test::More tests => 8*$iters; +use Test::More tests => 10*$iters; use Catalyst::Test 'TestApp'; if ( $ENV{CAT_BENCHMARK} ) { @@ -29,6 +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' ); + + 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 @@ -40,7 +51,7 @@ EOF SKIP: { if ( $ENV{CATALYST_SERVER} ) { - skip "Using remote server", 4; + skip "Using remote server", 5; } my $file = "$FindBin::Bin/01use.t"; @@ -55,6 +66,7 @@ EOF 'Request' ); ok( $response->is_success, 'Response Successful 2xx' ); is( $response->content_type, 'text/plain', 'Response Content-Type' ); + is( $response->content_length, -s $file, 'Response Content-Length' ); is( $response->content, $buffer, 'Content is read from filehandle' ); } }