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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#
# decode on Perl 5.005, 5.6, 5.8 or later
#
use strict;
use warnings;
use Test::More;
BEGIN { plan tests => 7 };
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
my $isASCII = ord "A" == 65;
use JSON;
no utf8;
my $json = JSON->new->allow_nonref;
# U+00B6 chosen because it works on both ASCII and EBCDIC
is($json->encode("¶"), q|"¶"|); # as is
$json->ascii;
if ($] < 5.008) {
is($json->encode("\xb6"), q|"\u00b6"|); # latin1
is($json->encode("\xc2\xb6"), q|"\u00c2\u00b6"|); # utf8
is($json->encode("¶"), q|"\u00c2\u00b6"|); # utf8
is($json->encode('あ'), q|"\u00e3\u0081\u0082"|);
}
else {
is($json->encode("\xb6"), q|"\u00b6"|); # latin1
if (ord "A" == 65) {
is($json->encode("\xc2\xb6"), q|"\u00c2\u00b6"|); # utf8
is($json->encode("¶"), q|"\u00c2\u00b6"|); # utf8
is($json->encode('あ'), q|"\u00e3\u0081\u0082"|);
}
else {
if (ord '^' == 95) { # EBCDIC 1047
is($json->encode("\x80\x65"), q|"\u0080\u0065"|); # utf8
is($json->encode("¶"), q|"\u0080\u0065"|); # utf8
}
else { # Assume EBCDIC 037
is($json->encode("\x78\x64"), q|"\u0078\u0064"|); # utf8
is($json->encode("¶"), q|"\u0078\u0064"|); # utf8
}
is($json->encode('あ'), (q|"\u00ce\u0043\u0043"|));
}
}
if ($] >= 5.006) {
is($json->encode(chr hex 3042 ), q|"\u3042"|);
is($json->encode(chr hex 12345 ), q|"\ud808\udf45"|);
}
else {
is($json->encode(chr hex 3042 ), $json->encode(chr 66));
is($json->encode(chr hex 12345 ), $json->encode(chr 69));
}
|
