# encoding: KOI8U
# This file is encoded in KOI8-U.
die "This file is not encoded in KOI8-U.\n" if q{ } ne "\x82\xa0";
use strict;
use Char;
my $__FILE__ = __FILE__;
my %lc = ();
@lc{qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)} =
qw(a b c d e f g h i j k l m n o p q r s t u v w x y z);
%lc = (%lc,
"\xB3" => "\xA3", # CYRILLIC LETTER IO
"\xB4" => "\xA4", # CYRILLIC LETTER UKRAINIAN IE
"\xB6" => "\xA6", # CYRILLIC LETTER BYELORUSSIAN-UKRAINIAN I
"\xB7" => "\xA7", # CYRILLIC LETTER YI (UKRAINIAN)
"\xBD" => "\xAD", # CYRILLIC LETTER GHE WITH UPTURN
"\xE0" => "\xC0", # CYRILLIC LETTER YU
"\xE1" => "\xC1", # CYRILLIC LETTER A
"\xE2" => "\xC2", # CYRILLIC LETTER BE
"\xE3" => "\xC3", # CYRILLIC LETTER TSE
"\xE4" => "\xC4", # CYRILLIC LETTER DE
"\xE5" => "\xC5", # CYRILLIC LETTER IE
"\xE6" => "\xC6", # CYRILLIC LETTER EF
"\xE7" => "\xC7", # CYRILLIC LETTER GHE
"\xE8" => "\xC8", # CYRILLIC LETTER KHA
"\xE9" => "\xC9", # CYRILLIC LETTER I
"\xEA" => "\xCA", # CYRILLIC LETTER SHORT I
"\xEB" => "\xCB", # CYRILLIC LETTER KA
"\xEC" => "\xCC", # CYRILLIC LETTER EL
"\xED" => "\xCD", # CYRILLIC LETTER EM
"\xEE" => "\xCE", # CYRILLIC LETTER EN
"\xEF" => "\xCF", # CYRILLIC LETTER O
"\xF0" => "\xD0", # CYRILLIC LETTER PE
"\xF1" => "\xD1", # CYRILLIC LETTER YA
"\xF2" => "\xD2", # CYRILLIC LETTER ER
"\xF3" => "\xD3", # CYRILLIC LETTER ES
"\xF4" => "\xD4", # CYRILLIC LETTER TE
"\xF5" => "\xD5", # CYRILLIC LETTER U
"\xF6" => "\xD6", # CYRILLIC LETTER ZHE
"\xF7" => "\xD7", # CYRILLIC LETTER VE
"\xF8" => "\xD8", # CYRILLIC LETTER SOFT SIGN
"\xF9" => "\xD9", # CYRILLIC LETTER YERU
"\xFA" => "\xDA", # CYRILLIC LETTER ZE
"\xFB" => "\xDB", # CYRILLIC LETTER SHA
"\xFC" => "\xDC", # CYRILLIC LETTER E
"\xFD" => "\xDD", # CYRILLIC LETTER SHCHA
"\xFE" => "\xDE", # CYRILLIC LETTER CHE
"\xFF" => "\xDF", # CYRILLIC LETTER HARD SIGN
);
printf("1..%d\n", scalar(keys %lc));
my $tno = 1;
for my $char (sort keys %lc){
if (lc($char) eq $lc{$char}) {
printf(qq{ok - $tno lc("\\x%02X") eq "\\x%02X" $^X $__FILE__\n}, ord($char), ord($lc{$char}));
}
else {
printf(qq{not ok - $tno lc("\\x%02X") eq "\\x%02X" $^X $__FILE__\n}, ord($char), ord($lc{$char}));
}
$tno++;
}
__END__