Revert 205057 "Add JSON.pm to third_party"

trunk/src/third_party/JSON/JSON-2.59/t/01_utf8.t

Index: trunk/src/third_party/JSON/JSON-2.59/t/01_utf8.t
===================================================================
--- trunk/src/third_party/JSON/JSON-2.59/t/01_utf8.t	(revision 205060)
+++ trunk/src/third_party/JSON/JSON-2.59/t/01_utf8.t	(working copy)
@@ -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");
-
-}