diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-02 12:41:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-02 12:41:12 +0000 |
| commit | f499c3861b7c35f971fe2027563597c0f31f3f45 (patch) | |
| tree | 6beec7481907351a689a4fedb015f371ed945d69 /lib/Unicode/UCD.t | |
| parent | 9731f9ce05d1c7e58d4cec595b6014e465a43d2d (diff) | |
| download | perl-f499c3861b7c35f971fe2027563597c0f31f3f45.tar.gz | |
Special casing had become a little bit more complex in Unicode 3.1.1.
p4raw-id: //depot/perl@11832
Diffstat (limited to 'lib/Unicode/UCD.t')
| -rw-r--r-- | lib/Unicode/UCD.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 67e99d0b9d..7536e728e4 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -223,7 +223,7 @@ ok( charinrange($ranges, "13a0")); ok( charinrange($ranges, "13f4")); ok(!charinrange($ranges, "13f5")); -ok(Unicode::UCD::UnicodeVersion, 3.1); +ok(Unicode::UCD::UnicodeVersion, '3.1.1'); use Unicode::UCD qw(compexcl); @@ -264,8 +264,8 @@ ok($casespec->{code} eq '00DF' && $casespec = casespec(0x307); -ok($casespec->{code} eq '0307' && - $casespec->{lower} eq '0307' && - $casespec->{title} eq '' && - $casespec->{upper} eq '' && - $casespec->{condition} eq 'lt AFTER_i'); +ok($casespec->{az}->{code} eq '0307' && + $casespec->{az}->{lower} eq '' && + $casespec->{az}->{title} eq '0307' && + $casespec->{az}->{upper} eq '0307' && + $casespec->{az}->{condition} eq 'az AFTER_i NOT_MORE_ABOVE'); |