diff options
Diffstat (limited to 't')
-rw-r--r-- | t/bench.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/t/bench.pl b/t/bench.pl new file mode 100644 index 0000000..d550360 --- /dev/null +++ b/t/bench.pl @@ -0,0 +1,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++; +} + + + |