# encoding: USASCII
# This file is encoded in US-ASCII.
die "This file is not encoded in US-ASCII.\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);
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__