diff options
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/03_types.t')
-rw-r--r-- | chromium/third_party/JSON/JSON-2.59/t/03_types.t | 60 |
1 files changed, 0 insertions, 60 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/03_types.t b/chromium/third_party/JSON/JSON-2.59/t/03_types.t deleted file mode 100644 index f22c09bcca5..00000000000 --- a/chromium/third_party/JSON/JSON-2.59/t/03_types.t +++ /dev/null @@ -1,60 +0,0 @@ -# copied over from JSON::XS and modified to use JSON -use strict; -use Test::More; - -BEGIN { plan tests => 76 }; - -BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } - -use JSON; - - -ok (!defined JSON->new->allow_nonref (1)->decode ('null')); -ok (JSON->new->allow_nonref (1)->decode ('true') == 1); -ok (JSON->new->allow_nonref (1)->decode ('false') == 0); - -my $true = JSON->new->allow_nonref (1)->decode ('true'); -ok ($true eq 1); -ok (JSON::is_bool $true); -my $false = JSON->new->allow_nonref (1)->decode ('false'); -ok ($false == !$true); -ok (JSON::is_bool $false); -ok (++$false == 1); -ok (!JSON::is_bool $false); - -ok (JSON->new->allow_nonref (1)->decode ('5') == 5); -ok (JSON->new->allow_nonref (1)->decode ('-5') == -5); -ok (JSON->new->allow_nonref (1)->decode ('5e1') == 50); -ok (JSON->new->allow_nonref (1)->decode ('-333e+0') == -333); -ok (JSON->new->allow_nonref (1)->decode ('2.5') == 2.5); - -ok (JSON->new->allow_nonref (1)->decode ('""') eq ""); -ok ('[1,2,3,4]' eq encode_json decode_json ('[1,2, 3,4]')); -ok ('[{},[],[],{}]' eq encode_json decode_json ('[{},[], [ ] ,{ }]')); -ok ('[{"1":[5]}]' eq encode_json [{1 => [5]}]); -ok ('{"1":2,"3":4}' eq JSON->new->canonical (1)->encode (decode_json '{ "1" : 2, "3" : 4 }')); -ok ('{"1":2,"3":1.2}' eq JSON->new->canonical (1)->encode (decode_json '{ "1" : 2, "3" : 1.2 }')); - -ok ('[true]' eq encode_json [JSON::true]); -ok ('[false]' eq encode_json [JSON::false]); -ok ('[true]' eq encode_json [\1]); -ok ('[false]' eq encode_json [\0]); -ok ('[null]' eq encode_json [undef]); -ok ('[true]' eq encode_json [JSON::true]); -ok ('[false]' eq encode_json [JSON::false]); - -for my $v (1, 2, 3, 5, -1, -2, -3, -4, 100, 1000, 10000, -999, -88, -7, 7, 88, 999, -1e5, 1e6, 1e7, 1e8) { - ok ($v == ((decode_json "[$v]")->[0])); - ok ($v == ((decode_json encode_json [$v])->[0])); -} - -ok (30123 == ((decode_json encode_json [30123])->[0])); -ok (32123 == ((decode_json encode_json [32123])->[0])); -ok (32456 == ((decode_json encode_json [32456])->[0])); -ok (32789 == ((decode_json encode_json [32789])->[0])); -ok (32767 == ((decode_json encode_json [32767])->[0])); -ok (32768 == ((decode_json encode_json [32768])->[0])); - -my @sparse; @sparse[0,3] = (1, 4); -ok ("[1,null,null,4]" eq encode_json \@sparse); - |