# encoding: EUCJP
# This file is encoded in EUC-JP.
die "This file is not encoded in EUC-JP.\n" if q{¤¢} ne "\xa4\xa2";

use Char;
print "1..1\n";

my $__FILE__ = __FILE__;

# ½¤¾þ»Ò C<i>, C<I> ¤ª¤è¤Ó C<j> ¤Ï¡¢C<\p{}>, C<\P{}>, POSIX C<[: :]>.
# (Î㤨¤Ð C<\p{IsLower}>, C<[:lower:]> ¤Ê¤É) ¤Ë¤ÏºîÍѤ·¤Þ¤»¤ó¡£
# ¤½¤Î¤¿¤á¡¢C<re('\p{Lower}', 'iI')> ¤ÎÂå¤ï¤ê¤Ë
# C<re('\p{Alpha}')> ¤ò»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£

# EUCJP ¥½¥Õ¥È¥¦¥§¥¢¤Ë C<\p{}>, C<\P{}>, POSIX C<[: :]> ¤Îµ¡Ç½¤¬¤â¤È¤â¤È¸ºß¤·¤Ê¤¤¡£

print "ok - 1 $^X $__FILE__ (NULL)\n";

__END__