X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcomponent%2Fcontroller%2Faction%2Fend.t;fp=t%2Fcomponent%2Fcontroller%2Faction%2Fend.t;h=0000000000000000000000000000000000000000;hb=fbcc39ad23f2bbecf5d84c9ba581e6af86fcd460;hp=74da11038206db3e5202739676c7442b6c994113;hpb=21465c884872c1ec8c30acd72796445f9eaacb31;p=catagits%2FCatalyst-Runtime.git diff --git a/t/component/controller/action/end.t b/t/component/controller/action/end.t deleted file mode 100644 index 74da110..0000000 --- a/t/component/controller/action/end.t +++ /dev/null @@ -1,30 +0,0 @@ -#!perl - -use strict; -use warnings; - -use FindBin; -use lib "$FindBin::Bin/../../../lib"; - -use Test::More tests => 7; -use Catalyst::Test 'TestApp'; - - -{ - my @expected = qw[ - TestApp::Controller::Action::End->begin - TestApp::Controller::Action::End->default - TestApp::View::Dump::Request->process - TestApp::Controller::Action::End->end - ]; - - my $expected = join( ", ", @expected ); - - ok( my $response = request('http://localhost/action/end'), 'Request' ); - ok( $response->is_success, 'Response Successful 2xx' ); - is( $response->content_type, 'text/plain', 'Response Content-Type' ); - is( $response->header('X-Catalyst-Action'), 'default', 'Test Action' ); - is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::End', 'Test Class' ); - is( $response->header('X-Catalyst-Executed'), $expected, 'Executed actions' ); - like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' ); -}