7 use lib "$FindBin::Bin/../live/lib";
\r
10 use Catalyst::Test 'TestApp';
\r
13 our ($iters, $tests);
\r
15 plan skip_all => 'set CAT_STRESS to enable this test' unless $ENV{CAT_STRESS};
\r
17 $iters = $ENV{CAT_STRESS} || 10;
\r
18 $tests = YAML::LoadFile( "$FindBin::Bin/stress.yml" );
\r
20 my $total_tests = 0;
\r
21 map { $total_tests += scalar @{ $tests->{$_} } } keys %{$tests};
\r
22 plan tests => $iters * $total_tests;
\r
25 for ( 1 .. $iters ) {
\r
30 foreach my $test_group ( keys %{$tests} ) {
\r
31 foreach my $test ( @{ $tests->{$test_group} } ) {
\r
32 ok( request( $test ), $test_group . ' - ' . $test );
\r