X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Flive_component_controller_action_inheritance.t;h=ec2c66385c05162394e45145b291b2bc0a4915e1;hp=4a434e0b3ba962cb479d5c12effacddbfca19762;hb=10542b5178b2fa036e0658111523ea68a7a04437;hpb=a127b1987f6a2a69e0128fd51b7e989e7438c313 diff --git a/t/aggregate/live_component_controller_action_inheritance.t b/t/aggregate/live_component_controller_action_inheritance.t index 4a434e0..ec2c663 100644 --- a/t/aggregate/live_component_controller_action_inheritance.t +++ b/t/aggregate/live_component_controller_action_inheritance.t @@ -1,5 +1,3 @@ -#!perl - use strict; use warnings; @@ -10,7 +8,7 @@ our $iters; BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; } -use Test::More tests => 26*$iters; +use Test::More tests => 21*$iters; use Catalyst::Test 'TestApp'; if ( $ENV{CAT_BENCHMARK} ) { @@ -116,26 +114,4 @@ sub run_tests { 'Content is a serialized Catalyst::Request' ); } - - { - my @expected = qw[ - TestApp::Controller::Action::Inheritance->begin - TestApp::Controller::Action::Inheritance->auto - TestApp::Controller::Action::Inheritance::Chained->chain_root - TestApp::Controller::Action::Inheritance::Chained->chain_first - TestApp::Controller::Action::Inheritance::Chained->chain_middle - TestApp::Controller::Action::Inheritance::Chained->chain_end - TestApp::Controller::Action::Inheritance->end - ]; - - my $expected = join( ", ", @expected ); - - ok( my $response = request('http://localhost/action/inheritance/chained/chain_end'), - 'Request' ); - ok( $response->is_success, 'Response Successful 2xx' ); - is( $response->content_type, 'text/plain', 'Response Content-Type' ); - is( $response->header('X-Catalyst-Action'), '/action/inheritance/chained/chain_end', 'Test Action' ); - is( $response->header('X-Catalyst-Executed'), - $expected, 'Executed actions' ); - } }