use strict;
use warnings;

use Encode qw( encode decode );

sub test {
   my ($enc, $orig) = @_;

   my $bin = encode($enc, $orig);

   utf8::downgrade my $bin_dn = $bin;  # UTF8=0
   utf8::upgrade   my $bin_up = $bin;  # UTF8=1

   my $txt_dn = decode($enc, $bin_dn);
   my $txt_up = decode($enc, $bin_up);

   printf("%-11s %d %d\n",
      "$enc:",
      $txt_dn eq $orig ? 1 : 0,
      $txt_up eq $orig ? 1 : 0,
   );
}

test('iso-8859-1', "A\x{E2}");
test('UTF-8',      "A\x{E2}\x{2660}");
test('UTF-16le',   "A\x{E2}\x{2660}");

##</code><code>##

iso-8859-1: 1 1
UTF-8:      1 1
UTF-16le:   1 1