use strict;
use warnings;

use Test::More tests => 4;

my $ch = chr(0xA0);

utf8::downgrade( my $dn_ch = $ch );
utf8::upgrade(   my $up_ch = $ch );

is(unpack('c', $dn_ch), 0xA0-0x100, 'c, internal format 0');
is(unpack('c', $up_ch), 0xA0-0x100, 'c, internal format 1');
is(unpack('C', $dn_ch), 0xA0,       'C, internal format 0');
is(unpack('C', $up_ch), 0xA0,       'C, internal format 1');