use strict;
use warnings;

use Test::More tests => 4;

my $x1 = chr(0xE9);
utf8::encode( my $y1 = $x1 );
utf8::encode( my $z  = $y1 );
utf8::decode( my $y2 = $z  );
utf8::decode( my $x2 = $y2 );

is($y2, $y1);
is($x2, $x1);

isnt($x1, $y1);
isnt($y1, $z);

1;