Commit | Line | Data |
aae30f91 |
1 | package main; |
2 | |
3 | use Test::More tests => 6; |
4 | use lib 't/lib'; |
5 | use Catalyst::Test 'TestApp'; |
6 | use File::stat; |
7 | use File::Slurp; |
8 | use HTTP::Date; |
9 | |
10 | my $stat = stat($0); |
11 | |
12 | { |
1774feac |
13 | ok( my $response = request('/normal/2'), 'Normal Request' ); |
aae30f91 |
14 | is( $response->code, 200, 'OK status code' ); |
15 | is( $response->content, '123', 'Normal request content', ); |
16 | } |
17 | |
18 | { |
1774feac |
19 | ok( my $response = request('/subtest'), 'Sub Request' ); |
aae30f91 |
20 | is( $response->code, 200, 'OK status code' ); |
1774feac |
21 | is( $response->content, '11433', 'Normal request content', ); |
aae30f91 |
22 | } |
23 | |