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_default.t;h=95abd93198fb6c9e14c697976991e5b12dbc99ab;hp=935a326d63b0e460186f5e05888129ec4d0bf3af;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=42da66a91b0a87ebb81d8552bcd0b05d3557c83e diff --git a/t/aggregate/live_component_controller_action_default.t b/t/aggregate/live_component_controller_action_default.t index 935a326..95abd93 100644 --- a/t/aggregate/live_component_controller_action_default.t +++ b/t/aggregate/live_component_controller_action_default.t @@ -1,5 +1,3 @@ -#!perl - use strict; use warnings; @@ -29,7 +27,7 @@ sub run_tests { TestApp::Controller::Action::Default->begin TestApp::Controller::Action::Default->default TestApp::View::Dump::Request->process - TestApp->end + TestApp::Controller::Root->end ]; my $expected = join( ", ", @expected ); @@ -66,31 +64,31 @@ sub run_tests { ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' - ); + ) or fail("EXCEPTION $@ DESERIALIZING " . $response->content); is_deeply( $creq->{arguments}, $expected, 'Arguments ok' ); } - - + + # Test that /foo and /foo/ both do the same thing { my @expected = qw[ TestApp::Controller::Action->begin TestApp::Controller::Action->default - TestApp->end + TestApp::Controller::Root->end ]; - + my $expected = join( ", ", @expected ); - + ok( my $response = request('http://localhost/action'), 'Request' ); is( $response->header('X-Catalyst-Executed'), - $expected, + $expected, 'Executed actions for /action' ); - + ok( $response = request('http://localhost/action/'), 'Request' ); is( $response->header('X-Catalyst-Executed'), - $expected, + $expected, 'Executed actions for /action/' ); - } + } }