diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-07-09 04:14:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-07-09 04:14:54 +0000 |
| commit | 32a424d2df47fd067c31c959b00e93dab590259a (patch) | |
| tree | be6a75d9fc5971ce8ee71dc858b006651d868cb6 /lib | |
| parent | b270fb37482174d3cafa7dc989f8815f2f36bba4 (diff) | |
| download | perl-32a424d2df47fd067c31c959b00e93dab590259a.tar.gz | |
fix a couple of UCD.t tests that fail due to bad case
p4raw-id: //depot/perl@11230
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Unicode/UCD.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 51e200b56c..3cd11925b1 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. |