diff options
Diffstat (limited to 'gnu/usr.bin/perl/cpan/JSON-PP/t/112_upgrade.t')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/JSON-PP/t/112_upgrade.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/cpan/JSON-PP/t/112_upgrade.t b/gnu/usr.bin/perl/cpan/JSON-PP/t/112_upgrade.t index 853439a174d..681ce67f650 100644 --- a/gnu/usr.bin/perl/cpan/JSON-PP/t/112_upgrade.t +++ b/gnu/usr.bin/perl/cpan/JSON-PP/t/112_upgrade.t @@ -9,17 +9,17 @@ BEGIN { $ENV{PERL_JSON_BACKEND} = 0; } use JSON::PP; my $json = JSON::PP->new->allow_nonref->utf8; -my $str = '\\u00c8'; +my $str = '\\u00b6'; -my $value = $json->decode( '"\\u00c8"' ); +my $value = $json->decode( '"\\u00b6"' ); #use Devel::Peek; #Dump( $value ); -is( $value, chr 0xc8 ); +is( $value, chr 0xb6 ); ok( utf8::is_utf8( $value ) ); -eval { $json->decode( '"' . chr(0xc8) . '"' ) }; +eval { $json->decode( '"' . chr(0xb6) . '"' ) }; ok( $@ =~ /malformed UTF-8 character in JSON string/ ); |