Commit | Line | Data |
aae30f91 |
1 | package main; |
2 | |
39f0812b |
3 | use Test::More tests => 9; |
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 | } |