use strict;

use Test::More;

BEGIN { plan tests => 1 };

BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }

use JSON;

my $json = JSON->new;

my $input = q[

{

   "dynamic_config" : 0,

   "x_contributors" : [

      "大沢 和宏",

      "Ævar Arnfjörð"

   ]

}

];

eval { $json->decode($input) };

is $@, '', 'decodes 0 with mojibake without error';