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