One Hat Cyber Team

Your IP: 216.73.216.67
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

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));
}