Index: third_party/JSON/JSON-2.59/t/e07_allow_singlequote.t |
diff --git a/third_party/JSON/JSON-2.59/t/e07_allow_singlequote.t b/third_party/JSON/JSON-2.59/t/e07_allow_singlequote.t |
new file mode 100644 |
index 0000000000000000000000000000000000000000..0e35e3f3419537498575a010a157575b86178b6c |
--- /dev/null |
+++ b/third_party/JSON/JSON-2.59/t/e07_allow_singlequote.t |
@@ -0,0 +1,20 @@ |
+ |
+use Test::More; |
+use strict; |
+BEGIN { plan tests => 4 }; |
+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_singlequote; |
+ |
+is($json->decode(q|{'foo':"bar"}|)->{foo}, 'bar'); |
+is($json->decode(q|{'foo':'bar'}|)->{foo}, 'bar'); |
+is($json->allow_barekey->decode(q|{foo:'bar'}|)->{foo}, 'bar'); |
+ |