Commit c50426cc798d7499f2f4180b808fac51aff1131c - libencode-locale-perl

Add tests for aliases Fuji, Goro authored 13 years ago Gisle Aas committed 13 years ago

1 changed file(s) with 20 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all

+20

-0

t/alias.t less more

	0	#!perl -w
	1	use strict;
	2	use Test;
	3	plan tests => 8;
	4
	5	use Encode::Locale;
	6	use Encode qw(find_encoding);
	7
	8	ok find_encoding('locale'), find_encoding $Encode::Locale::ENCODING_LOCALE;
	9	ok find_encoding('Locale'), find_encoding $Encode::Locale::ENCODING_LOCALE;
	10
	11	ok find_encoding('locale_fs'), find_encoding $Encode::Locale::ENCODING_LOCALE_FS;
	12	ok find_encoding('Locale_FS'), find_encoding $Encode::Locale::ENCODING_LOCALE_FS;
	13
	14	ok find_encoding('console_in'), find_encoding $Encode::Locale::ENCODING_CONSOLE_IN;
	15	ok find_encoding('Console_IN'), find_encoding $Encode::Locale::ENCODING_CONSOLE_IN;
	16
	17	ok find_encoding('console_out'), find_encoding $Encode::Locale::ENCODING_CONSOLE_OUT;
	18	ok find_encoding('Console_OUT'), find_encoding $Encode::Locale::ENCODING_CONSOLE_OUT;
	19