Permalink
Browse files

Pass too to catched exception handling.

  • Loading branch information...
1 parent 4ebe287 commit 167abb2ee85d4a0de4c7eeb92937aba46808d1fe @bacek bacek committed Jan 30, 2011
Showing with 3 additions and 1 deletion.
  1. +3 −1 t/lib/Test.pm
View
@@ -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

0 comments on commit 167abb2

Please sign in to comment.