diff options
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/08_pc_base.t')
-rw-r--r-- | chromium/third_party/JSON/JSON-2.59/t/08_pc_base.t | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/08_pc_base.t b/chromium/third_party/JSON/JSON-2.59/t/08_pc_base.t deleted file mode 100644 index ca060920c4b..00000000000 --- a/chromium/third_party/JSON/JSON-2.59/t/08_pc_base.t +++ /dev/null @@ -1,99 +0,0 @@ -use Test::More; - -# copied over from JSON::PC and modified to use JSON -# copied over from JSON::XS and modified to use JSON - -use strict; -BEGIN { plan tests => 20 }; - -BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } - -use JSON; - -my ($js,$obj); - -my $pc = new JSON; - -$js = q|{}|; - -$obj = $pc->decode($js); -$js = $pc->encode($obj); -is($js,'{}', '{}'); - -$js = q|[]|; -$obj = $pc->decode($js); -$js = $pc->encode($obj); -is($js,'[]', '[]'); - - -$js = q|{"foo":"bar"}|; -$obj = $pc->decode($js); -is($obj->{foo},'bar'); -$js = $pc->encode($obj); -is($js,'{"foo":"bar"}', '{"foo":"bar"}'); - -$js = q|{"foo":""}|; -$obj = $pc->decode($js); -$js = $pc->encode($obj); -is($js,'{"foo":""}', '{"foo":""}'); - -$js = q|{"foo":" "}|; -$obj = $pc->decode($js); -$js = $pc->encode($obj); -is($js,'{"foo":" "}' ,'{"foo":" "}'); - -$js = q|{"foo":"0"}|; -$obj = $pc->decode($js); -$js = $pc->encode($obj); -is($js,'{"foo":"0"}',q|{"foo":"0"} - autoencode (default)|); - - -$js = q|{"foo":"0 0"}|; -$obj = $pc->decode($js); -$js = $pc->encode($obj); -is($js,'{"foo":"0 0"}','{"foo":"0 0"}'); - -$js = q|[1,2,3]|; -$obj = $pc->decode($js); -is($obj->[1],2); -$js = $pc->encode($obj); -is($js,'[1,2,3]'); - -$js = q|{"foo":{"bar":"hoge"}}|; -$obj = $pc->decode($js); -is($obj->{foo}->{bar},'hoge'); -$js = $pc->encode($obj); -is($js,q|{"foo":{"bar":"hoge"}}|); - -$js = q|[{"foo":[1,2,3]},-0.12,{"a":"b"}]|; -$obj = $pc->decode($js); -$js = $pc->encode($obj); -is($js,q|[{"foo":[1,2,3]},-0.12,{"a":"b"}]|); - - -$obj = ["\x01"]; -is($js = $pc->encode($obj),'["\\u0001"]'); -$obj = $pc->decode($js); -is($obj->[0],"\x01"); - -$obj = ["\e"]; -is($js = $pc->encode($obj),'["\\u001b"]'); -$obj = $pc->decode($js); -is($obj->[0],"\e"); - -$js = '{"id":"}'; -eval q{ $pc->decode($js) }; -like($@, qr/unexpected end/i); - -$obj = { foo => sub { "bar" } }; -eval q{ $js = $pc->encode($obj) }; -like($@, qr/JSON can only/i, 'invalid value (coderef)'); - -#$obj = { foo => bless {}, "Hoge" }; -#eval q{ $js = $pc->encode($obj) }; -#like($@, qr/JSON can only/i, 'invalid value (blessd object)'); - -$obj = { foo => \$js }; -eval q{ $js = $pc->encode($obj) }; -like($@, qr/cannot encode reference/i, 'invalid value (ref)'); - |