1use strict; 2use warnings; 3 4use FindBin; 5use lib "$FindBin::Bin/../lib"; 6 7our $iters; 8 9BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; } 10 11use Test::More; 12use Catalyst::Test 'TestAppOneView'; 13 14plan 'skip_all' if ( $ENV{CATALYST_SERVER} ); 15 16plan tests => 3*$iters; 17 18if ( $ENV{CAT_BENCHMARK} ) { 19 require Benchmark; 20 Benchmark::timethis( $iters, \&run_tests ); 21} 22else { 23 for ( 1 .. $iters ) { 24 run_tests(); 25 } 26} 27 28sub run_tests { 29 { 30 is(get('/view_by_name?view=Dummy'), 'AClass', 31 '$c->view("name") returns blessed instance'); 32 is(get('/view_by_regex?view=Dummy'), 'AClass', 33 '$c->view(qr/name/) returns blessed instance'); 34 is(get('/view_no_args'), 'AClass', 35 '$c->view() returns blessed instance'); 36 } 37} 38