t/alias.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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';