Added some stress testing

[catagits/Catalyst-Runtime.git] / t / live / component / controller / action / streaming.t

diff --git a/t/live/component/controller/action/streaming.t b/t/live/component/controller/action/streaming.t
index 1f34784..192e4de 100644 (file)
--- a/t/live/component/controller/action/streaming.t
+++ b/t/live/component/controller/action/streaming.t
@@ -6,38 +6,42 @@ use warnings;
 use FindBin;
 use lib "$FindBin::Bin/../../../lib";
 
-use Test::More tests => 8;
+use Test::More tests => 80;
 use Catalyst::Test 'TestApp';
 
-# test direct streaming
-{
-    ok( my $response = request('http://localhost/streaming'), 'Request' );
-    ok( $response->is_success, 'Response Successful 2xx' );
-    is( $response->content_type, 'text/plain', 'Response Content-Type' );
-    is( $response->content,, <<'EOF', 'Content is a stream' );
+for ( 1 .. 10 ) {
+
+    # test direct streaming
+    {
+        ok( my $response = request('http://localhost/streaming'), 'Request' );
+        ok( $response->is_success, 'Response Successful 2xx' );
+        is( $response->content_type, 'text/plain', 'Response Content-Type' );
+        is( $response->content,, <<'EOF', 'Content is a stream' );
 foo
 bar
 baz
 EOF
-}
-
-# test streaming by passing a handle to $c->res->body
-SKIP:
-{
-    if ( $ENV{CATALYST_SERVER} ) {
-        skip "Using remote server", 4;
     }
-    
-    my $file = "$FindBin::Bin/../../../../01use.t";
-    my $fh = IO::File->new( $file, 'r' );
-    my $buffer;
-    if ( defined $fh ) {
-        $fh->read( $buffer, 1024 );
-        $fh->close;
+
+    # test streaming by passing a handle to $c->res->body
+  SKIP:
+    {
+        if ( $ENV{CATALYST_SERVER} ) {
+            skip "Using remote server", 4;
+        }
+
+        my $file = "$FindBin::Bin/../../../../01use.t";
+        my $fh = IO::File->new( $file, 'r' );
+        my $buffer;
+        if ( defined $fh ) {
+            $fh->read( $buffer, 1024 );
+            $fh->close;
+        }
+
+        ok( my $response = request('http://localhost/action/streaming/body'),
+            'Request' );
+        ok( $response->is_success, 'Response Successful 2xx' );
+        is( $response->content_type, 'text/plain', 'Response Content-Type' );
+        is( $response->content, $buffer, 'Content is read from filehandle' );
     }
-    
-    ok( my $response = request('http://localhost/action/streaming/body'), 'Request' );
-    ok( $response->is_success, 'Response Successful 2xx' );
-    is( $response->content_type, 'text/plain', 'Response Content-Type' );
-    is( $response->content, $buffer, 'Content is read from filehandle' );
 }