Pass too to catched exception handling.

parrot · Jan 30, 2011 · 167abb2 · 167abb2
1 parent 4ebe287
commit 167abb2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/t/lib/Test.pm b/t/lib/Test.pm
@@ -5,17 +5,19 @@ our sub yaml_ok($yaml, $expected, $description, *%adverbs) {
     my $parser := YAML::Tiny.new;
     try {
         my $result := $parser.read_string($yaml);
+        #_dumper($result);
         is_deeply($expected, $result, $description, todo => %adverbs<todo>);
 
         CATCH {
-            nok(1, "Parse failed '{ $! }'");
+            nok(1, "Parse failed '{ $! }'", %adverbs<todo>);
         }
     }
 }
 
 Q:PIR {
     # We want Test::More features for testing. Not NQP's builtin.
     .include "test_more.pir"
+    load_bytecode "dumper.pbc"
 }
 
 # vim: ft=perl6