5 use HTTP::Request::Common;
7 use lib "$FindBin::Bin/lib";
8 use Catalyst::Test 'TestApp';
10 ok my($res, $c) = ctx_request('/');
13 ok my $response = request GET $c->uri_for_action('/welcome'),
14 'got welcome from a catalyst controller';
16 is $response->content, 'Welcome to Catalyst',
17 'expected content body';
21 ok my $response = request GET $c->uri_for('/static/message.txt'),
22 'got welcome from a catalyst controller';
24 like $response->content, qr'static message',
25 'expected content body';
29 ok my $response = request GET $c->uri_for('/static2/message2.txt'),
30 'got welcome from a catalyst controller';
32 like $response->content, qr'static message',
33 'expected content body';
37 ok my $response = request GET $c->uri_for('/static3/message3.txt'),
38 'got welcome from a catalyst controller';
40 like $response->content, qr'static message',
41 'expected content body';
45 ok my $response = request GET $c->uri_for('/forced'),
46 'got welcome from a catalyst controller';
48 like $response->content, qr'forced message',
49 'expected content body';