more tests for special JSON characters

mojolicious · Nov 8, 2013 · ba1773e · ba1773e
1 parent 76bcb80
commit ba1773e
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 4 deletions.
diff --git a/Changes b/Changes
@@ -1,4 +1,7 @@
 
+4.56  2013-11-09
+  - Fixed backspace escaping bug in Mojo::JSON. (ig3)
+
 4.55  2013-11-07
   - Fixed Windows bug in "daemon.t".
 

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -803,6 +803,8 @@ Henry Tang
 
 Hideki Yamamura
 
+Ian Goodacre
+
 Ilya Chesnokov
 
 James Duncan

diff --git a/t/mojo/json.t b/t/mojo/json.t
@@ -70,8 +70,8 @@ $array = $json->decode('[" 0"]');
 is_deeply $array, [' 0'], 'decode [" 0"]';
 $array = $json->decode('["1"]');
 is_deeply $array, ['1'], 'decode ["1"]';
-$array = $json->decode('["\u0007\b"]');
-is_deeply $array, ["\a\b"], 'decode ["\u0007\b"]';
+$array = $json->decode('["\u0007\b\/\f\r"]');
+is_deeply $array, ["\a\b/\f\r"], 'decode ["\u0007\b\/\f\r"]';
 
 # Decode object
 my $hash = $json->decode('{}');
@@ -131,8 +131,8 @@ is b($bytes)->decode('UTF-8'), "[\"hello\\u0003\x{0152}world\x{0152}!\"]",
   'encode ["hello\x{0003}\x{0152}world\x{0152}!"]';
 $bytes = $json->encode(["123abc"]);
 is $bytes, '["123abc"]', 'encode ["123abc"]';
-$bytes = $json->encode(["\a\b"]);
-is $bytes, '["\\u0007\\b"]', 'encode ["\a\b"]';
+$bytes = $json->encode(["\a\b/\f\r"]);
+is $bytes, '["\\u0007\\b\/\f\r"]', 'encode ["\a\b/\f\r"]';
 
 # Encode object
 $bytes = $json->encode({});