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