Index: trunk/src/third_party/JSON/JSON-2.59/t/17_relaxed.t |
=================================================================== |
--- trunk/src/third_party/JSON/JSON-2.59/t/17_relaxed.t (revision 205060) |
+++ trunk/src/third_party/JSON/JSON-2.59/t/17_relaxed.t (working copy) |
@@ -1,30 +0,0 @@ |
-# copied over from JSON::XS and modified to use JSON |
- |
-use Test::More; |
-use strict; |
- |
-BEGIN { plan tests => 8 }; |
- |
-BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } |
- |
-BEGIN { |
- use lib qw(t); |
- use _unicode_handling; |
-} |
- |
-use utf8; |
-use JSON; |
- |
- |
-my $json = JSON->new->relaxed; |
- |
-ok ('[1,2,3]' eq encode_json $json->decode (' [1,2, 3]')); |
-ok ('[1,2,4]' eq encode_json $json->decode ('[1,2, 4 , ]')); |
-ok (!eval { $json->decode ('[1,2, 3,4,,]') }); |
-ok (!eval { $json->decode ('[,1]') }); |
- |
-ok ('{"1":2}' eq encode_json $json->decode (' {"1":2}')); |
-ok ('{"1":2}' eq encode_json $json->decode ('{"1":2,}')); |
-ok (!eval { $json->decode ('{,}') }); |
- |
-ok ('[1,2]' eq encode_json $json->decode ("[1#,2\n ,2,# ] \n\t]")); |