?????????? ????????? - ??????????????? - /home/.cpan/build/JSON-4.10-0/t/15_prefix.t
???????
# copied over from JSON::XS and modified to use JSON use strict; use warnings; use Test::More; BEGIN { plan tests => 4 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON; my $pp = JSON->new->latin1->allow_nonref; eval { $pp->decode ("[] ") }; ok (!$@); eval { $pp->decode ("[] x") }; ok ($@); ok (2 == ($pp->decode_prefix ("[][]"))[1]); ok (3 == ($pp->decode_prefix ("[1] t"))[1]);
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????