Home | History | Annotate | Download | only in t 
      1 # copied over from JSON::XS and modified to use JSON
      2 
      3 use Test::More;
      4 use strict;
      5 
      6 BEGIN { plan tests => 8 };
      7 
      8 BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
      9 
     10 BEGIN {
     11     use lib qw(t);
     12     use _unicode_handling;
     13 }
     14 
     15 use utf8;
     16 use JSON;
     17 
     18 
     19 my $json = JSON->new->relaxed;
     20 
     21 ok ('[1,2,3]' eq encode_json $json->decode (' [1,2, 3]'));
     22 ok ('[1,2,4]' eq encode_json $json->decode ('[1,2, 4 , ]'));
     23 ok (!eval { $json->decode ('[1,2, 3,4,,]') });
     24 ok (!eval { $json->decode ('[,1]') });
     25 
     26 ok ('{"1":2}' eq encode_json $json->decode (' {"1":2}'));
     27 ok ('{"1":2}' eq encode_json $json->decode ('{"1":2,}'));
     28 ok (!eval { $json->decode ('{,}') });
     29 
     30 ok ('[1,2]' eq encode_json $json->decode ("[1#,2\n ,2,#  ]  \n\t]"));
     31