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 : xe21_is_pp.t

use strict;
use Test::More;

BEGIN { plan tests => 5 };

BEGIN {
    $ENV{PERL_JSON_BACKEND} ||= 1;
}

use JSON;

my $json = JSON->new();

ok( $json->backend, 'backend is ' . $json->backend );

if ( $json->backend->is_xs ) {
    ok (!JSON->is_pp(), 'JSON->is_pp()');
    ok ( JSON->is_xs(), 'JSON->is_xs()');
    ok (!$json->is_pp(), '$json->is_pp()');
    ok ( $json->is_xs(), '$json->is_xs()');
}
else {
    ok ( JSON->is_pp(), 'JSON->is_pp()');
    ok (!JSON->is_xs(), 'JSON->is_xs()');
    ok ( $json->is_pp(), '$json->is_pp()');
    ok (!$json->is_xs(), '$json->is_xs()');
}