| Index: third_party/JSON/JSON-2.59/t/01_utf8.t
|
| diff --git a/third_party/JSON/JSON-2.59/t/01_utf8.t b/third_party/JSON/JSON-2.59/t/01_utf8.t
|
| deleted file mode 100644
|
| index 442fc4091a0939ec09d7458c7c6e6d5bad53a5ce..0000000000000000000000000000000000000000
|
| --- a/third_party/JSON/JSON-2.59/t/01_utf8.t
|
| +++ /dev/null
|
| @@ -1,36 +0,0 @@
|
| -# copied over from JSON::XS and modified to use JSON
|
| -
|
| -use strict;
|
| -use Test::More;
|
| -BEGIN { plan tests => 9 };
|
| -
|
| -BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
|
| -
|
| -BEGIN {
|
| - use lib qw(t);
|
| - use _unicode_handling;
|
| -}
|
| -
|
| -
|
| -use utf8;
|
| -use JSON;
|
| -
|
| -
|
| -ok (JSON->new->allow_nonref (1)->utf8 (1)->encode ("ü") eq "\"\xc3\xbc\"");
|
| -ok (JSON->new->allow_nonref (1)->encode ("ü") eq "\"ü\"");
|
| -
|
| -SKIP: {
|
| - skip "UNICODE handling is disabale.", 7 unless $JSON::can_handle_UTF16_and_utf8;
|
| -
|
| -ok (JSON->new->allow_nonref (1)->ascii (1)->utf8 (1)->encode (chr 0x8000) eq '"\u8000"');
|
| -ok (JSON->new->allow_nonref (1)->ascii (1)->utf8 (1)->pretty (1)->encode (chr 0x10402) eq "\"\\ud801\\udc02\"\n");
|
| -
|
| -eval { JSON->new->allow_nonref (1)->utf8 (1)->decode ('"ü"') };
|
| -ok $@ =~ /malformed UTF-8/;
|
| -
|
| -ok (JSON->new->allow_nonref (1)->decode ('"ü"') eq "ü");
|
| -ok (JSON->new->allow_nonref (1)->decode ('"\u00fc"') eq "ü");
|
| -ok (JSON->new->allow_nonref (1)->decode ('"\ud801\udc02' . "\x{10204}\"") eq "\x{10402}\x{10204}");
|
| -ok (JSON->new->allow_nonref (1)->decode ('"\"\n\\\\\r\t\f\b"') eq "\"\012\\\015\011\014\010");
|
| -
|
| -}
|
|
|