1 files changed, 22 insertions, 0 deletions
diff --git a/t/alias.t b/t/alias.t
new file mode 100644
index 0000000..c18d027
--- /dev/null
+++ b/t/alias.t
@@ -0,0 +1,22 @@
+#!perl -w
+
+use strict;
+use warnings;
+use Test::More tests => 8;
+
+use Encode::Locale;
+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_FS', 'ENCODING_LOCALE_FS';
+cmp_encoding 'Console_IN', 'ENCODING_CONSOLE_IN';
+cmp_encoding 'Console_OUT', 'ENCODING_CONSOLE_OUT';