--- JSON-XS/t/17_relaxed.t 2007/08/27 01:49:01 1.1 +++ JSON-XS/t/17_relaxed.t 2007/08/27 02:03:23 1.2 @@ -1,4 +1,4 @@ -BEGIN { $| = 1; print "1..7\n"; } +BEGIN { $| = 1; print "1..8\n"; } use utf8; use JSON::XS; @@ -19,3 +19,4 @@ ok ('{"1":2}' eq to_json $json->decode ('{"1":2,}')); ok (!eval { $json->decode ('{,}') }); +ok ('[1,2]' eq to_json $json->decode ("[1#,2\n ,2,# ] \n\t]"));