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