ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/t/03_types.t
(Generate patch)

Comparing JSON-XS/t/03_types.t (file contents):
Revision 1.3 by root, Thu Mar 29 02:45:49 2007 UTC vs.
Revision 1.8 by root, Mon Oct 28 23:19:54 2013 UTC

1BEGIN { $| = 1; print "1..19\n"; } 1BEGIN { $| = 1; print "1..76\n"; }
2 2
3use utf8; 3use utf8;
4use Types::Serialiser;
4use JSON::XS; 5use JSON::XS;
5 6
6our $test; 7our $test;
7sub ok($) { 8sub ok($) {
8 print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; 9 print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
… …
10 11
11ok (!defined JSON::XS->new->allow_nonref (1)->decode ('null')); 12ok (!defined JSON::XS->new->allow_nonref (1)->decode ('null'));
12ok (JSON::XS->new->allow_nonref (1)->decode ('true') == 1); 13ok (JSON::XS->new->allow_nonref (1)->decode ('true') == 1);
13ok (JSON::XS->new->allow_nonref (1)->decode ('false') == 0); 14ok (JSON::XS->new->allow_nonref (1)->decode ('false') == 0);
14 15
16my $true = JSON::XS->new->allow_nonref (1)->decode ('true');
17ok ($true eq 1);
18ok (Types::Serialiser::is_bool $true);
19my $false = JSON::XS->new->allow_nonref (1)->decode ('false');
20ok ($false == !$true);
21ok (Types::Serialiser::is_bool $false);
22ok (++$false == 1);
23ok (!Types::Serialiser::is_bool $false);
24
15ok (JSON::XS->new->allow_nonref (1)->decode ('5') == 5); 25ok (JSON::XS->new->allow_nonref (1)->decode ('5') == 5);
16ok (JSON::XS->new->allow_nonref (1)->decode ('-5') == -5); 26ok (JSON::XS->new->allow_nonref (1)->decode ('-5') == -5);
17ok (JSON::XS->new->allow_nonref (1)->decode ('5e1') == 50); 27ok (JSON::XS->new->allow_nonref (1)->decode ('5e1') == 50);
18ok (JSON::XS->new->allow_nonref (1)->decode ('-333e+0') == -333); 28ok (JSON::XS->new->allow_nonref (1)->decode ('-333e+0') == -333);
19ok (JSON::XS->new->allow_nonref (1)->decode ('2.5') == 2.5); 29ok (JSON::XS->new->allow_nonref (1)->decode ('2.5') == 2.5);
20 30
21ok (JSON::XS->new->allow_nonref (1)->decode ('""') eq ""); 31ok (JSON::XS->new->allow_nonref (1)->decode ('""') eq "");
22ok ('[1,2,3,4]' eq to_json from_json ('[1,2, 3,4]')); 32ok ('[1,2,3,4]' eq encode_json decode_json ('[1,2, 3,4]'));
23ok ('[{},[],[],{}]' eq to_json from_json ('[{},[], [ ] ,{ }]')); 33ok ('[{},[],[],{}]' eq encode_json decode_json ('[{},[], [ ] ,{ }]'));
24ok ('[{"1":[5]}]' eq to_json [{1 => [5]}]); 34ok ('[{"1":[5]}]' eq encode_json [{1 => [5]}]);
25ok ('{"1":2,"3":4}' eq JSON::XS->new->canonical (1)->encode (from_json '{ "1" : 2, "3" : 4 }')); 35ok ('{"1":2,"3":4}' eq JSON::XS->new->canonical (1)->encode (decode_json '{ "1" : 2, "3" : 4 }'));
26ok ('{"1":2,"3":1.2}' eq JSON::XS->new->canonical (1)->encode (from_json '{ "1" : 2, "3" : 1.2 }')); 36ok ('{"1":2,"3":1.2}' eq JSON::XS->new->canonical (1)->encode (decode_json '{ "1" : 2, "3" : 1.2 }'));
27 37
28ok ('[true]' eq to_json [JSON::XS::true]); 38ok ('[true]' eq encode_json [Types::Serialiser::true]);
29ok ('[false]' eq to_json [JSON::XS::false]); 39ok ('[false]' eq encode_json [Types::Serialiser::false]);
30ok ('[true]' eq to_json [\1]); 40ok ('[true]' eq encode_json [\1]);
31ok ('[false]' eq to_json [\0]); 41ok ('[false]' eq encode_json [\0]);
32ok ('[null]' eq to_json [undef]); 42ok ('[null]' eq encode_json [undef]);
43ok ('[true]' eq encode_json [Types::Serialiser::true]);
44ok ('[false]' eq encode_json [Types::Serialiser::false]);
45
46for $v (1, 2, 3, 5, -1, -2, -3, -4, 100, 1000, 10000, -999, -88, -7, 7, 88, 999, -1e5, 1e6, 1e7, 1e8) {
47 ok ($v == ((decode_json "[$v]")->[0]));
48 ok ($v == ((decode_json encode_json [$v])->[0]));
49}
50
51ok (30123 == ((decode_json encode_json [30123])->[0]));
52ok (32123 == ((decode_json encode_json [32123])->[0]));
53ok (32456 == ((decode_json encode_json [32456])->[0]));
54ok (32789 == ((decode_json encode_json [32789])->[0]));
55ok (32767 == ((decode_json encode_json [32767])->[0]));
56ok (32768 == ((decode_json encode_json [32768])->[0]));
57
58my @sparse; @sparse[0,3] = (1, 4);
59ok ("[1,null,null,4]" eq encode_json \@sparse);
60

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines