1use strict;
2use warnings;
3use Test::More;
4BEGIN { plan tests => 1 };
5
6BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
7
8use JSON::PP;
9
10my $json = JSON::PP->new;
11
12my $input = q[
13{
14   "dynamic_config" : 0,
15   "x_contributors" : [
16      "大沢 和宏",
17      "Ævar Arnfjörð"
18   ]
19}
20];
21eval { $json->decode($input) };
22is $@, '', 'decodes 0 with mojibake without error';
23