Commit | Line | Data |
aae30f91 |
1 | package main; |
2 | |
8fb9227b |
3 | use Test::More tests => 21; |
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 | { |
5d6707eb |
30 | ok( my $response = request('/subtest_req'), 'Sub request not stomping original request object' ); |
31 | is( $response->code, 200, 'OK status code' ); |
7b9c5d16 |
32 | is( $response->content, '/subtest_req3', 'Normal request content' ); |
5d6707eb |
33 | } |
34 | |
35 | { |
87c672db |
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', ); |
39 | } |
40 | |
f3f2edc9 |
41 | { |
42 | ok( my $response = request('/subtest_with_params'), 'Sub request with full params' ); |
43 | is( $response->code, 200, 'OK status code' ); |
44 | is( $response->content, 'foo33', 'Normal request content', ); |
45 | } |
8fb9227b |
46 | |
47 | { |
48 | ok( my $response = request('/doublesubtest'), 'Double Sub Request' ); |
49 | is( $response->code, 200, 'OK status code' ); |
50 | is( $response->content, '1531633', 'Normal Double request content', ); #we get 153 right now |
51 | } |