?????????? ????????? - ??????????????? - /home/.cpan/build/JSON-4.10-0/t/xe12_boolean.t
???????
use strict; use Test::More; BEGIN { plan tests => 4 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= 1; } use JSON -support_by_pp; SKIP: { skip "can't use JSON::XS.", 4, unless( JSON->backend->is_xs ); my $json = new JSON; my $bool = $json->allow_nonref->decode('true'); # it's normal isa_ok( $bool, 'JSON::PP::Boolean' ); is( $json->encode([ JSON::true ]), '[true]' ); # make XS non support flag enable! $bool = $json->allow_singlequote->decode('true'); isa_ok( $bool, 'JSON::PP::Boolean' ); is( $json->encode([ JSON::true ]), '[true]' ); } __END__
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????