3 use Test::More tests => 15;
5 use Catalyst::Test 'TestApp';
12 ok( my $response = request('/normal/2'), 'Normal Request' );
13 is( $response->code, 200, 'OK status code' );
14 is( $response->content, '123', 'Normal request content', );
18 ok( my $response = request('/subtest'), 'Sub Request' );
19 is( $response->code, 200, 'OK status code' );
20 is( $response->content, '11433', 'Normal request content', );
24 ok( my $response = request('/subtest_params?value=abc'), 'Params Sub Request' );
25 is( $response->code, 200, 'OK status code' );
26 is( $response->content, '1abc3', 'Normal request content' );
30 ok( my $response = request('/subtest_req'), 'Sub request not stomping original request object' );
31 is( $response->code, 200, 'OK status code' );
32 is( $response->content, '/subtest_req3', 'Normal request content' );
36 ok( my $response = request('/subtest_full_response'), 'Sub Reuqest returning full response object' );
37 is( $response->code, 200, 'OK status code' );
38 is( $response->content, '1text/csv3', 'Normal request content', );