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'); |
dfe82bbd |
13 | TODO: { |
14 | local $TODO="Bug on precedence of dispatch order of chained actions."; |
15 | content_like('/account', qr/New account o login/, 'no account'); |
16 | content_like('/account/ferz', qr/This is account ferz/, 'account'); |
17 | content_like('/account/123', qr/This is account 123/, 'account'); |
18 | } |
444e5611 |
19 | action_notfound('/c'); |
20 | |
22ee7603 |
21 | done_testing; |
444e5611 |
22 | |