Commit | Line | Data |
aae30f91 |
1 | package main; |
2 | |
87c672db |
3 | use Test::More tests => 12; |
aae30f91 |
4 | use lib 't/lib'; |
5 | use Catalyst::Test 'TestApp'; |
6 | use File::stat; |
aae30f91 |
7 | use HTTP::Date; |
8 | |
9 | my $stat = stat($0); |
10 | |
11 | { |
1774feac |
12 | ok( my $response = request('/normal/2'), 'Normal Request' ); |
aae30f91 |
13 | is( $response->code, 200, 'OK status code' ); |
14 | is( $response->content, '123', 'Normal request content', ); |
15 | } |
16 | |
17 | { |
1774feac |
18 | ok( my $response = request('/subtest'), 'Sub Request' ); |
aae30f91 |
19 | is( $response->code, 200, 'OK status code' ); |
1774feac |
20 | is( $response->content, '11433', 'Normal request content', ); |
aae30f91 |
21 | } |
22 | |
39f0812b |
23 | { |
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' ); |
6afea496 |
27 | } |
87c672db |
28 | |
29 | { |
30 | ok( my $response = request('/subtest_full_response'), 'Sub Reuqest returning full response object' ); |
31 | is( $response->code, 200, 'OK status code' ); |
32 | is( $response->content, '1text/csv3', 'Normal request content', ); |
33 | } |
34 | |