blob: 73c8dedf6379fb5de9a0120752c08ff0be87eeb1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
# copied over from JSON::XS and modified to use JSON
use strict;
use warnings;
use Test::More;
BEGIN { plan tests => 9 };
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
use utf8;
use JSON;
my $pilcrow_utf8 = (ord "^" == 0x5E) ? "\xc2\xb6" # 8859-1
: (ord "^" == 0x5F) ? "\x80\x65" # CP 1024
: "\x78\x64"; # assume CP 037
is (JSON->new->allow_nonref (1)->utf8 (1)->encode ("¶"), "\"$pilcrow_utf8\"");
is (JSON->new->allow_nonref (1)->encode ("¶"), "\"¶\"");
is (JSON->new->allow_nonref (1)->ascii (1)->utf8 (1)->encode (chr 0x8000), '"\u8000"');
is (JSON->new->allow_nonref (1)->ascii (1)->utf8 (1)->pretty (1)->encode (chr 0x10402), "\"\\ud801\\udc02\"\n");
eval { JSON->new->allow_nonref (1)->utf8 (1)->decode ('"¶"') };
ok $@ =~ /malformed UTF-8/;
is (JSON->new->allow_nonref (1)->decode ('"¶"'), "¶");
is (JSON->new->allow_nonref (1)->decode ('"\u00b6"'), "¶");
is (JSON->new->allow_nonref (1)->decode ('"\ud801\udc02' . "\x{10204}\""), "\x{10402}\x{10204}");
my $controls = (ord "^" == 0x5E) ? "\012\\\015\011\014\010"
: (ord "^" == 0x5F) ? "\025\\\015\005\014\026" # CP 1024
: "\045\\\015\005\014\026"; # assume CP 037
is (JSON->new->allow_nonref (1)->decode ('"\"\n\\\\\r\t\f\b"'), "\"$controls");
|
