JSON-XS/t/17_relaxed.t

BEGIN { $| = 1; print "1..8\n"; }

use utf8;
use JSON::XS;

our $test;
sub ok($) {
   print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
}

my $json = JSON::XS->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]"));
Revision:	1.3
Committed:	Wed Dec 5 10:59:31 2007 UTC (16 years, 7 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-2_01, rel-4_0, rel-2_222, rel-3_0, rel-4_01, rel-4_03, rel-4_02, rel-2_2, rel-2_3, rel-2_1, rel-4_0_00, rel-2_34, rel-2_32, rel-2_33, rel-2_31, rel-2_2311, rel-3_01, rel-3_02, rel-3_03, rel-3_04, rel-2_232, rel-2_231, rel-2_29, rel-2_28, rel-2_21, rel-2_2222, rel-2_23, rel-2_22, rel-2_25, rel-2_24, rel-2_27, rel-2_26, HEAD
Changes since 1.2:	+5 -5 lines
Log Message:	* empty log message *
#	Content
1	BEGIN { $\| = 1; print "1..8\n"; }
2
3	use utf8;
4	use JSON::XS;
5
6	our $test;
7	sub ok($) {
8	print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
9	}
10
11	my $json = JSON::XS->new->relaxed;
12
13	ok ('[1,2,3]' eq encode_json $json->decode (' [1,2, 3]'));
14	ok ('[1,2,4]' eq encode_json $json->decode ('[1,2, 4 , ]'));
15	ok (!eval { $json->decode ('[1,2, 3,4,,]') });
16	ok (!eval { $json->decode ('[,1]') });
17
18	ok ('{"1":2}' eq encode_json $json->decode (' {"1":2}'));
19	ok ('{"1":2}' eq encode_json $json->decode ('{"1":2,}'));
20	ok (!eval { $json->decode ('{,}') });
21
22	ok ('[1,2]' eq encode_json $json->decode ("[1#,2\n ,2,# ] \n\t]"));