t/optional_stress.t

   1 #!perl\r
   2 \r
   3 use strict;\r
   4 use warnings;\r
   5 \r
   6 use FindBin;\r
   7 use lib "$FindBin::Bin/../live/lib";\r
   8 \r
   9 use Test::More;\r
  10 use Catalyst::Test 'TestApp';\r
  11 use YAML;\r
  12 \r
  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
  20     $tests = YAML::LoadFile("$FindBin::Bin/optional_stress.yml");\r
  21 \r
  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
  34             ok( request($test), $test_group . ' - ' . $test );\r
  35         }\r
  36     }\r
  37 }\r