From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 9 Jul 2001 04:14:54 +0000 (+0000)
Subject: fix a couple of UCD.t tests that fail due to bad case
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=32a424d2df47fd067c31c959b00e93dab590259a;p=p5sagit%2Fp5-mst-13.2.git

fix a couple of UCD.t tests that fail due to bad case

p4raw-id: //depot/perl@11230
---

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 51e200b..3cd1192 100644
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -27,7 +27,7 @@ ok($charinfo{upper},          '');
 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{upper},          '');
 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.