xref: /openbsd-src/gnu/usr.bin/perl/cpan/JSON-PP/t/106_allow_barekey.t (revision f2a19305cfc49ea4d1a5feb55cd6c283c6f1e031)
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