Catch exceptions in yaml_ok.

parrot · Jan 29, 2011 · a15d3ab · a15d3ab
1 parent 73514c8
commit a15d3ab
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/t/lib/Test.pm b/t/lib/Test.pm
@@ -3,8 +3,14 @@
 
 our sub yaml_ok($yaml, $expected, $description, *%adverbs) {
     my $parser := YAML::Tiny.new;
-    my $result := $parser.read_string($yaml);
+    try {
-    is_deeply($expected, $result, $description, todo => %adverbs<todo>);
+        my $result := $parser.read_string($yaml);
+        is_deeply($expected, $result, $description, todo => %adverbs<todo>);
+
+        CATCH {
+            nok(1, "Parse failed '{ $! }'");
+        }
+    }
 }
 
 Q:PIR {