Tidy t/alias.t

gisle · Jan 2, 2015 · 41bf989 · 41bf989
1 parent f2f67ed
commit 41bf989
Showing 1 changed file with 3 additions and 7 deletions.
diff --git 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';