Commit | Line | Data |
6df93c61 |
1 | use strict; |
2 | use warnings; |
3 | use FindBin qw/$Bin/; |
4 | use lib "$Bin/../lib"; |
5 | use Catalyst::Test 'ChainedActionsApp'; |
22ee7603 |
6 | use Test::More; |
6df93c61 |
7 | |
dc8f81e8 |
8 | plan 'skip_all' if $ENV{CATALYST_SERVER}; # This is not TestApp |
9 | |
6df93c61 |
10 | content_like('/', qr/Application Home Page/, 'Application home'); |
444e5611 |
11 | content_like('/15/GoldFinger', qr/List project GoldFinger pages/, 'GoldFinger Project Index'); |
12 | content_like('/15/GoldFinger/4/007', qr/This is 007 page of GoldFinger project/, '007 page in GoldFinger Project'); |
d4f76f02 |
13 | |
14 | content_like('/account', qr/New account o login/, 'no account'); |
a3a68863 |
15 | content_like('/account/ferz', qr/This is account ferz/, '/account/ferz'); |
16 | content_like('/account/123', qr/This is account 123/, '/account/123'); |
d4f76f02 |
17 | content_like('/account/profile/007/James Bond', qr/This is profile of James Bond/, 'account'); |
18 | |
13f911ef |
19 | TODO: { |
20 | local $TODO = q(new chained action test case that fails yet.); |
21 | content_like('/downloads/', qr/This is downloads index/, 'downloads'); |
22 | } |
23 | |
444e5611 |
24 | action_notfound('/c'); |
25 | |
22ee7603 |
26 | done_testing; |
444e5611 |
27 | |