1 2use Test::More; 3use strict; 4use warnings; 5BEGIN { plan tests => 4 }; 6BEGIN { $ENV{PERL_JSON_BACKEND} = 0; } 7use JSON::PP; 8######################### 9 10my $json = JSON::PP->new->allow_nonref; 11 12eval q| $json->decode("{'foo':'bar'}") |; 13 14ok($@); # in XS and PP, the error message differs. 15 16$json->allow_singlequote; 17 18is($json->decode(q|{'foo':"bar"}|)->{foo}, 'bar'); 19is($json->decode(q|{'foo':'bar'}|)->{foo}, 'bar'); 20is($json->allow_barekey->decode(q|{foo:'bar'}|)->{foo}, 'bar'); 21 22