X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flive%2Fcomponent%2Fcontroller%2Faction%2Findex.t;h=cd4f9b01d5c2c9da7639ee4ba13612de2d12178a;hp=6be00f0c42a38fe02f2119f0adb65d52f2734d7d;hb=01ba879fae4d3ac2babde66ec6d45b822ba412f8;hpb=57e4592849c4ec6ba7a0dea780ce8b2aa2de5606 diff --git a/t/live/component/controller/action/index.t b/t/live/component/controller/action/index.t index 6be00f0..cd4f9b0 100644 --- a/t/live/component/controller/action/index.t +++ b/t/live/component/controller/action/index.t @@ -10,7 +10,7 @@ our $iters; BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 2; } -use Test::More tests => 19*$iters; +use Test::More tests => 20*$iters; use Catalyst::Test 'TestApp'; if ( $ENV{CAT_BENCHMARK} ) { @@ -26,7 +26,15 @@ else { sub run_tests { # test root index { + my @expected = qw[ + TestApp->index + TestApp->end + ]; + + my $expected = join( ", ", @expected ); ok( my $response = request('http://localhost/'), 'root index' ); + is( $response->header('X-Catalyst-Executed'), + $expected, 'Executed actions' ); is( $response->content, 'root index', 'root index ok' ); ok( $response = request('http://localhost'), 'root index no slash' ); @@ -37,6 +45,7 @@ sub run_tests { { my @expected = qw[ TestApp::Controller::Index->index + TestApp->end ]; my $expected = join( ", ", @expected ); @@ -57,6 +66,7 @@ sub run_tests { my @expected = qw[ TestApp::Controller::Action::Index->begin TestApp::Controller::Action::Index->index + TestApp->end ]; my $expected = join( ", ", @expected ); @@ -77,6 +87,7 @@ sub run_tests { my @expected = qw[ TestApp::Controller::Action::Index->begin TestApp::Controller::Action::Index->default + TestApp->end ]; my $expected = join( ", ", @expected );