t/live/component/controller/action/streaming.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../../../lib";
   8
   9 use Test::More tests => 8;
  10 use Catalyst::Test 'TestApp';
  11
  12 # test direct streaming
  13 {
  14     ok( my $response = request('http://localhost/streaming'), 'Request' );
  15     ok( $response->is_success, 'Response Successful 2xx' );
  16     is( $response->content_type, 'text/plain', 'Response Content-Type' );
  17     is( $response->content,, <<'EOF', 'Content is a stream' );
  18 foo
  19 bar
  20 baz
  21 EOF
  22 }
  23
  24 # test streaming by passing a handle to $c->res->body
  25 {
  26     my $file = "$FindBin::Bin/../../../../01use.t";
  27     my $fh = IO::File->new( $file, 'r' );
  28     my $buffer;
  29     if ( defined $fh ) {
  30         $fh->read( $buffer, 1024 );
  31         $fh->close;
  32     }
  33
  34     ok( my $response = request('http://localhost/action/streaming/body'), 'Request' );
  35     ok( $response->is_success, 'Response Successful 2xx' );
  36     is( $response->content_type, 'text/plain', 'Response Content-Type' );
  37     is( $response->content, $buffer, 'Content is read from filehandle' );
  38 }