$| = 1;
-print "1..747\n";
+print "1..750\n";
BEGIN {
chdir 't' if -d 't';
print "not " unless "\x{AC00}" =~ /\p{HangulSyllable}/;
print "ok 747\n";
}
+
+{
+ print "not " unless "\x{0100}" =~ /\p{Script=Latin}/;
+ print "ok 748\n";
+
+ print "not " unless "\x{0100}" =~ /\p{Block=LatinExtendedA}/;
+ print "ok 749\n";
+
+ print "not " unless "\x{0100}" =~ /\p{Category=UppercaseLetter}/;
+ print "ok 750\n";
+}
+