One Hat Cyber Team

Your IP: 216.73.216.177
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 : rt_122270_old_xs_boolean.t

# copied over from JSON::XS and modified to use JSON

use strict;
use warnings;
use Test::More;
BEGIN { plan tests => 10 };

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

use utf8;
use JSON;

SKIP: {
    skip "no JSON::XS < 3", 5 unless eval { require JSON::XS; JSON::XS->VERSION < 3 };

    my $false = JSON::XS::false();
    ok (JSON::is_bool $false);
    ok (++$false == 1);
    ok (!JSON::is_bool $false);
    ok (!JSON::is_bool "JSON::Boolean");
    ok (!JSON::is_bool {}); # GH-34
}

SKIP: {
    skip "no Types::Serialiser 0.01", 5 unless eval { require JSON::XS; JSON::XS->VERSION(3.00); require Types::Serialiser; Types::Serialiser->VERSION == 0.01 };

    my $false = JSON::XS::false();
    ok (JSON::is_bool $false);
    ok (++$false == 1);
    ok (!JSON::is_bool $false);
    ok (!JSON::is_bool "JSON::Boolean");
    ok (!JSON::is_bool {}); # GH-34
}