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';
|
