Index: third_party/JSON/JSON-2.59/t/e06_allow_barekey.t |
diff --git a/third_party/JSON/JSON-2.59/t/e06_allow_barekey.t b/third_party/JSON/JSON-2.59/t/e06_allow_barekey.t |
new file mode 100644 |
index 0000000000000000000000000000000000000000..eac42e69417281acfe672fb02c5ab01e95ec854f |
--- /dev/null |
+++ b/third_party/JSON/JSON-2.59/t/e06_allow_barekey.t |
@@ -0,0 +1,19 @@ |
+ |
+use Test::More; |
+use strict; |
+BEGIN { plan tests => 2 }; |
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; } |
+use JSON; |
+######################### |
+ |
+my $json = JSON->new->allow_nonref; |
+ |
+eval q| $json->decode('{foo:"bar"}') |; |
+ |
+ok($@); # in XS and PP, the error message differs. |
+ |
+$json->allow_barekey; |
+ |
+is($json->decode('{foo:"bar"}')->{foo}, 'bar'); |
+ |
+ |