t/bench.pl

   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