use json for serialized data in tests

[catagits/Catalyst-Runtime.git] / t / optional_stress.t

diff --git a/t/optional_stress.t b/t/optional_stress.t
index c4ccee2..620c840 100644 (file)
--- a/t/optional_stress.t
+++ b/t/optional_stress.t
@@ -1,5 +1,3 @@
-#!perl
-
 use strict;
 use warnings;
 
@@ -16,11 +14,16 @@ use Catalyst::Test 'TestApp';
 our ( $iters, $tests );
 
 BEGIN {
-    eval "use YAML";
-    plan skip_all => 'YAML is required for this test' if $@;
+    use JSON::MaybeXS qw(decode_json);
+
+    my $test_data = do {
+      open my $fh, '<:raw', "$FindBin::Bin/optional_stress.json" or die "$!";
+      local $/;
+      <$fh>;
+    };
 
     $iters = $ENV{TEST_STRESS} || 10;
-    $tests = YAML::LoadFile("$FindBin::Bin/optional_stress.yml");
+    $tests = decode_json($test_data);
 
     my $total_tests = 0;
     map { $total_tests += scalar @{ $tests->{$_} } } keys %{$tests};