use Test::Simple tests => 6;

use strict;
use warnings;

#use Devel::Peek qw( Dump );
use Encode      qw( encode _utf8_on _utf8_off);

{
   ok(1);

   my $chars_suites = "\x{2660}\x{2661}\x{2662}\x{2663}";
   my $utf8_suites  = encode('UTF-8', $chars_suites);
   _utf8_off(my $utf8_suites2 = $chars_suites);
   _utf8_on(my $chars_suites2 = $utf8_suites);

#   # Make sure they're the same, UTF8 flag non-withstanding.
#   print("\n");
#   print("chars_suites:\n"); Dump($chars_suites);
#   print("\n");
#   print("chars_suites2\n"); Dump($chars_suites2);
#   print("\n");
#   print("utf8_suites:\n");  Dump($utf8_suites);
#   print("\n");
#   print("utf8_suites2\n");  Dump($utf8_suites2);
#   print("\n");

   ok($chars_suites  eq $chars_suites2);
   ok($utf8_suites   eq $utf8_suites  );
   ok($chars_suites  ne $utf8_suites  );
   ok($chars_suites2 ne $utf8_suites2 );

   my %hash;
   $hash{$chars_suites } .= 'a';
   $hash{$chars_suites2} .= 'b';
   $hash{$utf8_suites  } .= 'c';
   $hash{$utf8_suites2 } .= 'd';

   ok($hash{$chars_suites} eq 'ab'
   && $hash{$utf8_suites } eq 'cd');
}