use
strict;
use
warnings;
use
FindBin;
our
$iters
;
BEGIN {
$iters
=
$ENV
{CAT_BENCH_ITERS} || 1; }
use
Test::More;
plan
'skip_all'
if
(
$ENV
{CATALYST_SERVER} );
plan
tests
=> 3
*$iters
;
if
(
$ENV
{CAT_BENCHMARK} ) {
Benchmark::timethis(
$iters
, \
&run_tests
);
}
else
{
for
( 1 ..
$iters
) {
run_tests();
}
}
sub
run_tests {
{
is(get(
'/foo/bar/baz'
),
'Path'
,
'multiple args matched :Path'
);
is(get(
'/foo'
),
'Path Args(1)'
,
'single arg matched :Path Args(1)'
);
is(get(
'/foo/bar'
),
'Path Args(2)'
,
'two args matched :Path Args(2)'
);
}
}