1 2use Test::More; 3use strict; 4use warnings; 5BEGIN { plan tests => 2 }; 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_barekey; 17 18is($json->decode('{foo:"bar"}')->{foo}, 'bar'); 19 20 21