X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02subreq.t;fp=t%2F02subreq.t;h=c9964ac4fa727f19a1cbdc01bb554b827f138def;hb=87c672dbfc58a2557adea6cfb7843c661cffbc61;hp=b088467253033876dbd3724d4399e883fdebea5d;hpb=de181610daf7b06c5b36aad8eacfe2a1664f6334;p=catagits%2FCatalyst-Plugin-SubRequest.git diff --git a/t/02subreq.t b/t/02subreq.t index b088467..c9964ac 100644 --- a/t/02subreq.t +++ b/t/02subreq.t @@ -1,6 +1,6 @@ package main; -use Test::More tests => 9; +use Test::More tests => 12; use lib 't/lib'; use Catalyst::Test 'TestApp'; use File::stat; @@ -25,3 +25,10 @@ my $stat = stat($0); is( $response->code, 200, 'OK status code' ); is( $response->content, '1abc3', 'Normal request content' ); } + +{ + ok( my $response = request('/subtest_full_response'), 'Sub Reuqest returning full response object' ); + is( $response->code, 200, 'OK status code' ); + is( $response->content, '1text/csv3', 'Normal request content', ); +} +