}
$| = 1;
+
print "1..25\n";
use charnames ':full';
}
-print "not " unless "\N{HORIZONTAL TABULATION}" eq "\t";
+print "not " unless "\N{CHARACTER TABULATION}" eq "\t";
print "ok 23\n";
print "not " unless "\N{ESCAPE}" eq "\e";
print "not " unless "\N{NULL}" eq "\c@";
print "ok 25\n";
-# TODO: when Unicode 3.2 comes along some names will change
-# HORIZONTAL TABULATION -> CHARACTER TABULATION (since ISO 6429
-# has been updated), and some names will have shorter aliases
-# LINEFEED (LF). Update the tests, and also update the charnames
-# pragma to support the 3.1 names, and the shorter aliases.
+# TODO: support 3.1 names, BOM. Generic aliasing?
+
+