Squash an unhelpful YAML parser warning in tests.

metacpan · May 14, 2017 · 722701b · 722701b
1 parent 19f2dfa
commit 722701b
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/t/00_setup.t b/t/00_setup.t
@@ -20,6 +20,16 @@ use Path::Class qw(dir file);
 use Test::More 0.96;
 use URI::FromHash qw( uri );
 
+BEGIN {
+  # We test parsing bad YAML.  This attempt emits a noisy warning which is not
+  # helpful in test output, so we'll suppress it here.
+    $SIG{__WARN__} = sub {
+        my $msg = shift;
+        return if $msg =~ m{found a duplicate key};
+        warn $msg;
+    };
+}
+
 # Ensure we're starting fresh
 my $tmp_dir = tmp_dir();
 $tmp_dir->rmtree;