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]")); |