The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

our $iters;

BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }

use Test::More;
use Catalyst::Test 'TestAppOneView';

plan 'skip_all' if ( $ENV{CATALYST_SERVER} );

plan tests => 3*$iters;

if ( $ENV{CAT_BENCHMARK} ) {
    require Benchmark;
    Benchmark::timethis( $iters, \&run_tests );
}
else {
    for ( 1 .. $iters ) {
        run_tests();
    }
}

sub run_tests {
    {
        is(get('/view_by_name?view=Dummy'), 'AClass',
            '$c->view("name") returns blessed instance');
        is(get('/view_by_regex?view=Dummy'), 'AClass',
            '$c->view(qr/name/) returns blessed instance');
        is(get('/view_no_args'), 'AClass',
            '$c->view() returns blessed instance');
    }
}