One Hat Cyber Team
Your IP :
216.73.216.84
Server IP :
50.6.229.107
Server :
Linux server.hostburly.com 5.14.0-611.38.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue Mar 10 17:21:28 EDT 2026 x86_64
Server Software :
Apache
PHP Version :
8.2.30
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
home
/
.cpan
/
build
/
JSON-4.10-0
/
t
/
View File Name :
109_encode.t
# # 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)); }