One Hat Cyber Team

Your IP : 216.73.217.146

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

Dir : ~/home/.cpan/build/JSON-4.10-0/t/

Edit File: e03_bool2.t

use Test::More;

BEGIN { plan tests => 16 };

BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
use JSON;

my $jsontext = q|[true,false,null]|;
my $obj      = from_json($jsontext);
#push @JSON::backportPP::Boolean::ISA, 'JSON::Boolean';
isa_ok($obj->[0], 'JSON::PP::Boolean');
isa_ok($obj->[1], 'JSON::PP::Boolean');
ok(!defined $obj->[2], 'null is undef');

ok($obj->[0] == 1);
ok($obj->[0] != 0);
ok($obj->[1] == 0);
ok($obj->[1] != 1);
# discard overload hack for JSON::XS 3.0 boolean class
#ok($obj->[0] eq 'true', 'eq true');
#ok($obj->[0] ne 'false', 'ne false');
#ok($obj->[1] eq 'false', 'eq false');
#ok($obj->[1] ne 'true', 'ne true');

ok($obj->[0] eq $obj->[0]);
ok($obj->[0] ne $obj->[1]);

#ok(JSON::true  eq 'true');
#ok(JSON::true  ne 'false');
#ok(JSON::true  ne 'null');
#ok(JSON::false eq 'false');
#ok(JSON::false ne 'true');
#ok(JSON::false ne 'null');
ok(!defined JSON::null);

is(from_json('[true]' )->[0], JSON::true);
is(from_json('[false]')->[0], JSON::false);
is(from_json('[null]' )->[0],  JSON::null);