package main; use Test::More tests => 21; use lib 't/lib'; use Catalyst::Test 'TestApp'; use File::stat; use HTTP::Date; my $stat = stat($0); { ok( my $response = request('/normal/2'), 'Normal Request' ); is( $response->code, 200, 'OK status code' ); is( $response->content, '123', 'Normal request content', ); } { ok( my $response = request('/subtest'), 'Sub Request' ); is( $response->code, 200, 'OK status code' ); is( $response->content, '11433', 'Normal request content', ); } { ok( my $response = request('/subtest_params?value=abc'), 'Params Sub Request' ); is( $response->code, 200, 'OK status code' ); is( $response->content, '1abc3', 'Normal request content' ); } { ok( my $response = request('/subtest_req'), 'Sub request not stomping original request object' ); is( $response->code, 200, 'OK status code' ); is( $response->content, '/subtest_req3', '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', ); } { ok( my $response = request('/subtest_with_params'), 'Sub request with full params' ); is( $response->code, 200, 'OK status code' ); is( $response->content, 'foo33', 'Normal request content', ); } { ok( my $response = request('/doublesubtest'), 'Double Sub Request' ); is( $response->code, 200, 'OK status code' ); is( $response->content, '1531633', 'Normal Double request content', ); #we get 153 right now }