diff options
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/e08_decode.t')
-rw-r--r-- | chromium/third_party/JSON/JSON-2.59/t/e08_decode.t | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/e08_decode.t b/chromium/third_party/JSON/JSON-2.59/t/e08_decode.t deleted file mode 100644 index 3782dfd8832..00000000000 --- a/chromium/third_party/JSON/JSON-2.59/t/e08_decode.t +++ /dev/null @@ -1,41 +0,0 @@ -# -# decode on Perl 5.005, 5.6, 5.8 or later -# -use strict; -use Test::More; - -BEGIN { plan tests => 6 }; - -BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } - -use JSON; - -BEGIN { - use lib qw(t); - use _unicode_handling; -} - -no utf8; - -my $json = JSON->new->allow_nonref; - - -is($json->decode(q|"ü"|), "ü"); # utf8 -is($json->decode(q|"\u00fc"|), "\xfc"); # latin1 -is($json->decode(q|"\u00c3\u00bc"|), "\xc3\xbc"); # utf8 - -my $str = 'あ'; # Japanese 'a' in utf8 - -is($json->decode(q|"\u00e3\u0081\u0082"|), $str); - -utf8::decode($str); # usually UTF-8 flagged on, but no-op for 5.005. - -is($json->decode(q|"\u3042"|), $str); - - -my $utf8 = $json->decode(q|"\ud808\udf45"|); # chr 12345 - -utf8::encode($utf8); # UTf-8 flaged off - -is($utf8, "\xf0\x92\x8d\x85"); - |