Change 11230 by gsar@auger on 2001/07/09 04:14:54
fix a couple of UCD.t tests that fail due to bad case
Affected files ...
... //depot/perl/lib/Unicode/UCD.t#4 edit
Differences ...
==== //depot/perl/lib/Unicode/UCD.t#4 (text) ====
Index: perl/lib/Unicode/UCD.t
--- perl/lib/Unicode/UCD.t.~1~ Sun Jul 8 22:30:05 2001
+++ perl/lib/Unicode/UCD.t Sun Jul 8 22:30:05 2001
@@ -27,7 +27,7 @@
ok($charinfo{lower}, '0061');
ok($charinfo{title}, '');
ok($charinfo{block}, 'Basic Latin');
-ok($charinfo{script}, 'LATIN');
+ok($charinfo{script}, 'Latin');
%charinfo = charinfo(0x100);
@@ -47,7 +47,7 @@
ok($charinfo{lower}, '0101');
ok($charinfo{title}, '');
ok($charinfo{block}, 'Latin Extended-A');
-ok($charinfo{script}, 'LATIN');
+ok($charinfo{script}, 'Latin');
# 0x0590 is in the Hebrew block but unused.
End of Patch.
