X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive%2Fcomponent%2Fcontroller%2Faction%2Fstreaming.t;h=c7e1c79a885a5c50e7fa1b49406f2aa5c5d63773;hb=587b0f5882d4f5e128ae082758da37b065a3efde;hp=1f34784e5416c908eb7be7c70a909d76ebfa092f;hpb=1775342a82cbd9b6c26c5bdcbdf89fe8d862330f;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/live/component/controller/action/streaming.t b/t/live/component/controller/action/streaming.t
index 1f34784..c7e1c79 100644
--- a/t/live/component/controller/action/streaming.t
+++ b/t/live/component/controller/action/streaming.t
@@ -6,38 +6,55 @@ use warnings;
 use FindBin;
 use lib "$FindBin::Bin/../../../lib";
 
-use Test::More tests => 8;
+our $iters;
+
+BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 2; }
+
+use Test::More tests => 8*$iters;
 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' );
+if ( $ENV{CAT_BENCHMARK} ) {
+    require Benchmark;
+    Benchmark::timethis( $iters, \&run_tests );
+}
+else {
+    for ( 1 .. $iters ) {
+        run_tests();
+    }
+}
+
+sub run_tests {
+    # 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' );
 }