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