use strict;
use warnings;
use Test::More;
BEGIN {
plan skip_all => 'set TEST_STRESS to enable this test'
unless $ENV{TEST_STRESS};
}
use FindBin;
use lib "$FindBin::Bin/lib";
use Catalyst::Test 'TestApp';
our ( $iters, $tests );
BEGIN {
eval "use YAML";
plan skip_all => 'YAML is required for this test' if $@;
$iters = $ENV{TEST_STRESS} || 10;
$tests = YAML::LoadFile("$FindBin::Bin/optional_stress.yml");
my $total_tests = 0;
map { $total_tests += scalar @{ $tests->{$_} } } keys %{$tests};
plan tests => $iters * $total_tests;
}
for ( 1 .. $iters ) {
run_tests();
}
sub run_tests {
foreach my $test_group ( keys %{$tests} ) {
foreach my $test ( @{ $tests->{$test_group} } ) {
ok( request($test), $test_group . ' - ' . $test );
}
}
}