use Test::More 'tests' => 12;

my $key = 'key';
my $encoded_key = $key;
utf8::upgrade( $encoded_key );

ok( utf8::is_utf8( $encoded_key ), 'encoded key is utf8' );
ok( ! utf8::is_utf8( $key ),       'unencoded key is not utf8' );

ok( $key eq $encoded_key,          'key eq encoded_key' );

# I don't know why these would have changed,
# but I'm checking anyway.
ok( utf8::is_utf8( $encoded_key ), 'encoded key is utf8' );
ok( ! utf8::is_utf8( $key ),       'unencoded key is not utf8' );

is( $key, $encoded_key,            'key is encoded_key' );

ok( utf8::is_utf8( $encoded_key ), 'encoded key is utf8' );
ok( ! utf8::is_utf8( $key ),       'unencoded key is not utf8' );

my %via_var  = ( $key  => 'value' );
my %hardcode = ( 'key' => 'value' );

is( $via_var{$key},          'value',
    'Can access hash via $key' );
is( $via_var{$encoded_key},  'value',
    'Can access hash via $encoded_key' );
is( $hardcode{$key},         'value',
    'Can access hardcoded hash via $key' );
is( $hardcode{$encoded_key}, 'value',
    'Can access hardcoded hash via $encoded_key' );