1# copied over from JSON::XS and modified to use JSON
2
3use Test::More;
4use strict;
5BEGIN { plan tests => 4 };
6
7BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
8
9BEGIN {
10    use lib qw(t);
11    use _unicode_handling;
12}
13
14use JSON;
15
16SKIP: {
17    skip "UNICODE handling is disabale.", 4 unless $JSON::can_handle_UTF16_and_utf8;
18
19my $xs = JSON->new->latin1->allow_nonref;
20
21ok $xs->encode ("\x{12}\x{89}       ") eq "\"\\u0012\x{89}       \"";
22ok $xs->encode ("\x{12}\x{89}\x{abc}") eq "\"\\u0012\x{89}\\u0abc\"";
23
24ok $xs->decode ("\"\\u0012\x{89}\""       ) eq "\x{12}\x{89}";
25ok $xs->decode ("\"\\u0012\x{89}\\u0abc\"") eq "\x{12}\x{89}\x{abc}";
26
27}
28