X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flive%2Fcomponent%2Fcontroller%2Faction%2Fpath.t;h=7221e8b46b265b237643d5db60727015955a7da7;hb=b74baa06c48a64bc5f1217f26d325e24fbc51528;hp=751aaa0b183c9d5eb7aedced361603f8ef3487c7;hpb=232fd39402371d9550ad97d92a4ceafd283874b0;p=catagits%2FCatalyst-Runtime.git diff --git a/t/live/component/controller/action/path.t b/t/live/component/controller/action/path.t index 751aaa0..7221e8b 100644 --- a/t/live/component/controller/action/path.t +++ b/t/live/component/controller/action/path.t @@ -10,12 +10,12 @@ our $iters; BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 2; } -use Test::More tests => 12*$iters; +use Test::More tests => 18*$iters; use Catalyst::Test 'TestApp'; if ( $ENV{CAT_BENCHMARK} ) { require Benchmark; - Benchmark::timethis( -$iters, \&run_tests ); + Benchmark::timethis( $iters, \&run_tests ); } else { for ( 1 .. $iters ) { @@ -67,4 +67,23 @@ sub run_tests { 'Content is a serialized Catalyst::Request' ); } + + { + ok( my $response = request('http://localhost/action/path/'), + 'Request' ); + ok( $response->is_success, 'Response Successful 2xx' ); + is( $response->content_type, 'text/plain', 'Response Content-Type' ); + is( $response->header('X-Catalyst-Action'), + 'action/path', 'Test Action' ); + is( + $response->header('X-Test-Class'), + 'TestApp::Controller::Action::Path', + 'Test Class' + ); + like( + $response->content, + qr/^bless\( .* 'Catalyst::Request' \)$/s, + 'Content is a serialized Catalyst::Request' + ); + } }