Commit | Line | Data |
ec54df42 |
1 | #!perl\r |
2 | \r |
3 | use strict;\r |
4 | use warnings;\r |
5 | \r |
6 | use FindBin;\r |
a2e038a1 |
7 | use lib "$FindBin::Bin/lib";\r |
ec54df42 |
8 | \r |
9 | use Test::More;\r |
10 | use Catalyst::Test 'TestApp';\r |
11 | use YAML;\r |
12 | \r |
00e6a2b7 |
13 | our ( $iters, $tests );\r |
14 | \r |
15 | BEGIN {\r |
16 | plan skip_all => 'set TEST_STRESS to enable this test'\r |
17 | unless $ENV{TEST_STRESS};\r |
18 | \r |
19 | $iters = $ENV{TEST_STRESS} || 10;\r |
66741f94 |
20 | $tests = YAML::LoadFile("$FindBin::Bin/optional_stress.yml");\r |
00e6a2b7 |
21 | \r |
ec54df42 |
22 | my $total_tests = 0;\r |
23 | map { $total_tests += scalar @{ $tests->{$_} } } keys %{$tests};\r |
24 | plan tests => $iters * $total_tests;\r |
25 | }\r |
26 | \r |
27 | for ( 1 .. $iters ) {\r |
28 | run_tests();\r |
29 | }\r |
30 | \r |
31 | sub run_tests {\r |
32 | foreach my $test_group ( keys %{$tests} ) {\r |
33 | foreach my $test ( @{ $tests->{$test_group} } ) {\r |
00e6a2b7 |
34 | ok( request($test), $test_group . ' - ' . $test );\r |
ec54df42 |
35 | }\r |
36 | }\r |
37 | }\r |