22 lines
364 B
Perl
22 lines
364 B
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';
|