Commit | Line | Data |
c17c004a |
1 | #!/usr/bin/env perl |
2 | |
3 | use FindBin; |
4 | use Test::Most; |
5 | use HTTP::Request::Common; |
6 | |
7 | use lib "$FindBin::Bin/lib"; |
8 | use Catalyst::Test 'TestApp'; |
9 | |
10 | ok my($res, $c) = ctx_request('/'); |
11 | |
12 | { |
13 | ok my $response = request GET $c->uri_for_action('/welcome'), |
14 | 'got welcome from a catalyst controller'; |
15 | |
16 | is $response->content, 'Welcome to Catalyst', |
17 | 'expected content body'; |
18 | } |
19 | |
20 | { |
21 | ok my $response = request GET $c->uri_for('/static/message.txt'), |
22 | 'got welcome from a catalyst controller'; |
23 | |
24 | like $response->content, qr'static message', |
25 | 'expected content body'; |
26 | } |
27 | |
28 | { |
29 | ok my $response = request GET $c->uri_for('/static2/message2.txt'), |
30 | 'got welcome from a catalyst controller'; |
31 | |
32 | like $response->content, qr'static message', |
33 | 'expected content body'; |
34 | } |
35 | |
36 | { |
37 | ok my $response = request GET $c->uri_for('/static3/message3.txt'), |
38 | 'got welcome from a catalyst controller'; |
39 | |
40 | like $response->content, qr'static message', |
41 | 'expected content body'; |
42 | } |
43 | |
44 | { |
45 | ok my $response = request GET $c->uri_for('/forced'), |
46 | 'got welcome from a catalyst controller'; |
47 | |
48 | like $response->content, qr'forced message', |
49 | 'expected content body'; |
50 | } |
51 | done_testing; |