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/); |
+ |