diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-10-03 21:04:04 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-10-03 21:04:04 +0000 |
commit | de48f4e69aef2efba652b10994a920d6a61e856d (patch) | |
tree | 97be169c03c1905ab439a7d960814161cf040241 /t | |
parent | e716714fb1197850975fcd131149db2f53b07f64 (diff) | |
download | reaction-de48f4e69aef2efba652b10994a920d6a61e856d.tar.gz reaction-de48f4e69aef2efba652b10994a920d6a61e856d.zip |
optimizations are fun! widget cache, reflector and immutable, other details. bye old view
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++; +} + + + |