This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix a couple of UCD.t tests that fail due to bad case
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 9 Jul 2001 04:14:54 +0000 (04:14 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 9 Jul 2001 04:14:54 +0000 (04:14 +0000)
p4raw-id: //depot/perl@11230

lib/Unicode/UCD.t

index 51e200b..3cd1192 100644 (file)
@@ -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.