| Index: third_party/JSON/JSON-2.59/t/e16_incr_parse_fixed.t
|
| diff --git a/third_party/JSON/JSON-2.59/t/e16_incr_parse_fixed.t b/third_party/JSON/JSON-2.59/t/e16_incr_parse_fixed.t
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..9dff6d5f91701453a6cb6744ffa2a947cf3db17d
|
| --- /dev/null
|
| +++ b/third_party/JSON/JSON-2.59/t/e16_incr_parse_fixed.t
|
| @@ -0,0 +1,29 @@
|
| +#!/usr/bin/perl
|
| +
|
| +BEGIN {
|
| + $ENV{ PERL_JSON_BACKEND } = $ARGV[0] || 'JSON::backportPP';
|
| +}
|
| +
|
| +use strict;
|
| +use Test::More tests => 4;
|
| +
|
| +use JSON;
|
| +
|
| +my $json = JSON->new->allow_nonref();
|
| +
|
| +my @vs = $json->incr_parse('"a\"bc');
|
| +
|
| +ok( not scalar(@vs) );
|
| +
|
| +@vs = $json->incr_parse('"');
|
| +
|
| +is( $vs[0], "a\"bc" );
|
| +
|
| +
|
| +$json = JSON->new;
|
| +
|
| +@vs = $json->incr_parse('"a\"bc');
|
| +ok( not scalar(@vs) );
|
| +@vs = eval { $json->incr_parse('"') };
|
| +ok($@ =~ qr/JSON text must be an object or array/);
|
| +
|
|
|