| 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..d148552e5db348097e00a5de3815e63fb8f71f1b | 
| --- /dev/null | 
| +++ b/third_party/JSON/JSON-2.59/t/e16_incr_parse_fixed.t | 
| @@ -0,0 +1,28 @@ | 
| + | 
| +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/); | 
| + | 
|  |