| 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
|
| deleted file mode 100644
|
| index 5591fc4f67d7e25f30a08e132a2d3c2654545cc2..0000000000000000000000000000000000000000
|
| --- a/third_party/JSON/JSON-2.59/t/e07_allow_singlequote.t
|
| +++ /dev/null
|
| @@ -1,20 +0,0 @@
|
| -
|
| -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');
|
| -
|
|
|