diff --git a/t/alias.t b/t/alias.t
index 8e47819..c18d027 100644
--- a/t/alias.t
+++ b/t/alias.t
@@ -9,18 +9,14 @@ use Encode qw(find_encoding);
 
 sub cmp_encoding {
     my ($arg, $var) = @_;
+    my $lcarg = lc $arg;
+    is find_encoding($lcarg), find_encoding(${ $Encode::Locale::{$var} }),
+        "$lcarg eq $var";
     is find_encoding($arg), find_encoding(${ $Encode::Locale::{$var} }),
         "$arg eq $var";
 }
 
-cmp_encoding 'locale', 'ENCODING_LOCALE';
 cmp_encoding 'Locale', 'ENCODING_LOCALE';
-
-cmp_encoding 'locale_fs', 'ENCODING_LOCALE_FS';
 cmp_encoding 'Locale_FS', 'ENCODING_LOCALE_FS';
-
-cmp_encoding 'console_in', 'ENCODING_CONSOLE_IN';
 cmp_encoding 'Console_IN', 'ENCODING_CONSOLE_IN';
-
-cmp_encoding 'console_out', 'ENCODING_CONSOLE_OUT';
 cmp_encoding 'Console_OUT', 'ENCODING_CONSOLE_OUT';