#!/usr/bin/perl
use strict;
use Test::More;
BEGIN { plan tests => 1 };
BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
use JSON::PP;
my $json = JSON::PP->new;
my $input = q[
{
"dynamic_config" : 0,
"x_contributors" : [
"大沢 åå®",
"Ãvar Arnfjörð"
]
}
];
eval { $json->decode($input) };
is $@, '', 'decodes 0 with mojibake without error';