test inheritance of builtin actions in mainapp.

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

diff --git a/t/live/component/controller/action/detach.t b/t/live/component/controller/action/detach.t
index 7ea99b4..adc5c8e 100644 (file)
--- a/t/live/component/controller/action/detach.t
+++ b/t/live/component/controller/action/detach.t
@@ -6,16 +6,31 @@ use warnings;
 use FindBin;\r
 use lib "$FindBin::Bin/../../../lib";\r
 \r
-use Test::More tests => 180;\r
+our $iters;\r
+\r
+BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 2; }\r
+\r
+use Test::More tests => 18*$iters;\r
 use Catalyst::Test 'TestApp';\r
 \r
-for ( 1 .. 10 ) {\r
+if ( $ENV{CAT_BENCHMARK} ) {\r
+    require Benchmark;\r
+    Benchmark::timethis( $iters, \&run_tests );\r
+}\r
+else {\r
+    for ( 1 .. $iters ) {\r
+        run_tests();\r
+    }\r
+}\r
+\r
+sub run_tests {\r
     {\r
         my @expected = qw[\r
           TestApp::Controller::Action::Detach->begin\r
           TestApp::Controller::Action::Detach->one\r
           TestApp::Controller::Action::Detach->two\r
           TestApp::View::Dump::Request->process\r
+         TestApp->end\r
         ];\r
 \r
         my $expected = join( ", ", @expected );\r
@@ -42,6 +57,7 @@ for ( 1 .. 10 ) {
           TestApp::Controller::Action::Detach->path\r
           TestApp::Controller::Action::Detach->two\r
           TestApp::View::Dump::Request->process\r
+         TestApp->end\r
         ];\r
 \r
         my $expected = join( ", ", @expected );\r