diff options
Diffstat (limited to 'chromium/third_party/JSON/JSON-2.59/t/e09_encode.t')
-rw-r--r-- | chromium/third_party/JSON/JSON-2.59/t/e09_encode.t | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/chromium/third_party/JSON/JSON-2.59/t/e09_encode.t b/chromium/third_party/JSON/JSON-2.59/t/e09_encode.t deleted file mode 100644 index 05acb15fb26..00000000000 --- a/chromium/third_party/JSON/JSON-2.59/t/e09_encode.t +++ /dev/null @@ -1,39 +0,0 @@ -# -# decode on Perl 5.005, 5.6, 5.8 or later -# -use strict; -use Test::More; - -BEGIN { plan tests => 7 }; - -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->encode("ü"), q|"ü"|); # as is - -$json->ascii; - -is($json->encode("\xfc"), q|"\u00fc"|); # latin1 -is($json->encode("\xc3\xbc"), q|"\u00c3\u00bc"|); # utf8 -is($json->encode("ü"), q|"\u00c3\u00bc"|); # utf8 -is($json->encode('あ'), q|"\u00e3\u0081\u0082"|); - -if ($] >= 5.006) { - is($json->encode(chr hex 3042 ), q|"\u3042"|); - is($json->encode(chr hex 12345 ), q|"\ud808\udf45"|); -} -else { - is($json->encode(chr hex 3042 ), $json->encode(chr 66)); - is($json->encode(chr hex 12345 ), $json->encode(chr 69)); -} - |