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