fix stupid thinko

now all tests pass at least as good as on rakudo 2011.07
moritz · Dec 21, 2011 · 87dbbaa · 87dbbaa
1 parent fb102c3
commit 87dbbaa
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/lib/JSON/Tiny.pm b/lib/JSON/Tiny.pm
@@ -32,13 +32,13 @@ multi to-json(Str:D  $d) {
 #            .subst(/<-[\ ..~]>/, { ord(~$_).fmt('\u%04x') }, :g)
 #    ~ '"'
     state %esc =
-        '"'     => '\"',
+        '"'      => '\"',
         '\\'     => '\\\\',
-        '\b'     => '\b',
+        "\b"     => '\b',
-        '\f'     => '\f',
+        "\f"     => '\f',
-        '\n'     => '\n',
+        "\n"     => '\n',
-        '\r'     => '\r',
+        "\r"     => '\r',
-        '\t'     => '\t',
+        "\t"     => '\t',
         ;
 
     '"'

diff --git a/t/04-roundtrip.t b/t/04-roundtrip.t
@@ -35,7 +35,7 @@ plan +@s;
 for @s.kv -> $k, $v {
     #warn "The json is <{ to-json( .value ) }>";
     my $r = from-json( to-json( $v.value ) );
-    todo('known type mismatches') if $k == any(5, 9);
+    todo('known type mismatches') if $k == 9;
     is_deeply $r, $v.value, $v.key
         or say "# Got: {$r.perl}\n# Expected: $v.value.perl()";
 }