Skip to content
Browse files

TODO known failures

  • Loading branch information...
1 parent 5da3d1b commit b7fd65aa407c99e8746ecf0b1babaf8f3d869762 @moritz committed Aug 6, 2010
Showing with 5 additions and 4 deletions.
  1. +5 −4 t/04-roundtrip.t
View
9 t/04-roundtrip.t
@@ -32,11 +32,12 @@ my @s =
plan +@s;
-for @s {
+for @s.kv -> $k, $v {
#warn "The json is <{ to-json( .value ) }>";
- my $r = from-json( to-json( .value ) );
- is_deeply $r, .value, .key
- or say "# Got: {$r.perl}\n# Expected: {$_.value.perl}";
+ my $r = from-json( to-json( $v.value ) );
+ todo('known type mismatches') if $k == any(3, 5, 9);
+ is_deeply $r, $v.value, $v.key
+ or say "# Got: {$r.perl}\n# Expected: $v.value.perl()";
}
# vim: ft=perl6

0 comments on commit b7fd65a

Please sign in to comment.
Something went wrong with that request. Please try again.