Commit | Line | Data |
de48f4e6 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 2; |
4 | |
5 | BEGIN { use_ok 'Catalyst::Test', 'ComponentUI' } |
6 | |
7 | |
8 | my $i = 1; |
9 | for(30..60){ |
10 | ok( request('/')->is_success, 'Request should succeed' ); |
11 | ok( request('/testmodel/foo')->is_success, 'Request should succeed' ); |
12 | ok( request('/testmodel/baz')->is_success, 'Request should succeed' ); |
13 | ok( request("/testmodel/foo/id/${_}/update")->is_success, 'Request should succeed' ); |
14 | ok( request("/testmodel/foo/id/${_}/view")->is_success, 'Request should succeed' ); |
15 | |
16 | $i = 1 if $i > 4; |
17 | ok( request("/testmodel/baz/id/${i}/update")->is_success, 'Request should succeed' ); |
18 | ok( request("/testmodel/baz/id/${i}/view")->is_success, 'Request should succeed' ); |
19 | $i++; |
20 | } |
21 | |
22 | |
23 | |