Файловый менеджер - Редактировать - /home/.cpan/build/JSON-4.10-0/t/e02_bool.t
�азад
use strict; use Test::More; use strict; BEGIN { plan tests => 8 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON; my $json = new JSON; diag $json->backend->isa('JSON::PP'); my $not_not_a_number_is_a_number = ( $json->backend->isa('Cpanel::JSON::XS') || ($json->backend->isa('JSON::PP') && ($JSON::PP::Boolean::VERSION || $JSON::backportPP::Boolean::VERSION)) ) ? 1 : 0; my $core_bool_support = JSON->backend->can("CORE_BOOL") && JSON->backend->CORE_BOOL ? 1 : 0; is($json->encode([!1]), $core_bool_support ? '[false]' : '[""]'); if ($not_not_a_number_is_a_number) { is($json->encode([!!2]), $core_bool_support ? '[true]' : '[1]'); } else { is($json->encode([!!2]), '["1"]'); } is($json->encode([ 'a' eq 'b' ]), $core_bool_support ? '[false]' : '[""]'); if ($not_not_a_number_is_a_number) { is($json->encode([ 'a' eq 'a' ]), $core_bool_support ? '[true]' : '[1]'); } else { is($json->encode([ 'a' eq 'a' ]), '["1"]'); } is($json->encode([ ('a' eq 'b') + 1 ]), '[1]'); is($json->encode([ ('a' eq 'a') + 1 ]), '[2]'); # discard overload hack for JSON::XS 3.0 boolean class #ok(JSON::true eq 'true'); #ok(JSON::true eq '1'); ok(JSON::true == 1); isa_ok(JSON::true, 'JSON::PP::Boolean'); #isa_ok(JSON::true, 'JSON::Boolean');
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0 |
proxy
|
phpinfo
|
�а�тройка