1 files changed, 36 insertions, 0 deletions
diff --git a/t/01_utf8.t b/t/01_utf8.t
new file mode 100644
index 0000000..442fc40
--- /dev/null
+++ b/t/01_utf8.t
@@ -0,0 +1,36 @@
+# 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");
+
+}