use strict;
use warnings;

use Test::More tests => 4;

use Encode qw( encode_utf8 decode_utf8 );

my $x1 = chr(0xE9);
my $y1 = encode_utf8($x1);
my $z  = encode_utf8($y1);
my $y2 = decode_utf8($z);
my $x2 = decode_utf8($y2);

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

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

1;