diff options
Diffstat (limited to 'lib/Unicode/Collate')
| -rw-r--r-- | lib/Unicode/Collate/Changes | 4 | ||||
| -rw-r--r-- | lib/Unicode/Collate/README | 2 | ||||
| -rw-r--r-- | lib/Unicode/Collate/t/test.t | 25 |
3 files changed, 28 insertions, 3 deletions
diff --git a/lib/Unicode/Collate/Changes b/lib/Unicode/Collate/Changes index 3d6acdb52f..d0ad3c124e 100644 --- a/lib/Unicode/Collate/Changes +++ b/lib/Unicode/Collate/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension Unicode::Collate. +0.10 Tue Dec 11 23:26:42 2001 + - now you are allowed to use no table file. + - fix: fetching CE with two or more combining characters. + 0.09 Sun Nov 11 17:02:40:18 2001 - add the following methods: eq, ne, lt, le, gt, le. - relies on &Unicode::Normalize::getCombinClass() diff --git a/lib/Unicode/Collate/README b/lib/Unicode/Collate/README index c84a73ce5d..3ff073f3d4 100644 --- a/lib/Unicode/Collate/README +++ b/lib/Unicode/Collate/README @@ -1,4 +1,4 @@ -Unicode/Collate version 0.09 +Unicode/Collate version 0.10 =============================== use UCA (Unicode Collation Algorithm) diff --git a/lib/Unicode/Collate/t/test.t b/lib/Unicode/Collate/t/test.t index 48bf412857..d9ee1fe2e3 100644 --- a/lib/Unicode/Collate/t/test.t +++ b/lib/Unicode/Collate/t/test.t @@ -4,7 +4,7 @@ ######################### use Test; -BEGIN { plan tests => 50 }; +BEGIN { plan tests => 54 }; use Unicode::Collate; ok(1); # If we made it this far, we're ok. @@ -42,11 +42,32 @@ eval "use Unicode::Normalize"; if(!$@){ my $NFD = Unicode::Collate->new( table => 'keys.txt', + entry => <<'ENTRIES', +0430 ; [.0B01.0020.0002.0430] # CYRILLIC SMALL LETTER A +0410 ; [.0B01.0020.0008.0410] # CYRILLIC CAPITAL LETTER A +04D3 ; [.0B09.0020.0002.04D3] # CYRILLIC SMALL LETTER A WITH DIAERESIS +0430 0308 ; [.0B09.0020.0002.04D3] # CYRILLIC SMALL LETTER A WITH DIAERESIS +04D3 ; [.0B09.0020.0002.04D3] # CYRILLIC SMALL LETTER A WITH DIAERESIS +0430 0308 ; [.0B09.0020.0002.04D3] # CYRILLIC SMALL LETTER A WITH DIAERESIS +04D2 ; [.0B09.0020.0008.04D2] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS +0410 0308 ; [.0B09.0020.0008.04D2] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS +0430 3099 ; [.0B10.0020.0002.04D3] # A WITH KATAKANA VOICED +0430 3099 0308 ; [.0B11.0020.0002.04D3] # A WITH KATAKANA VOICED, DIAERESIS +ENTRIES ); - ok($NFD->cmp("A$acute", $A_acute), 0); + ok($NFD->eq("A$acute", $A_acute)); + ok($NFD->eq("\x{4D3}\x{325}", "\x{430}\x{308}\x{325}")); + ok($NFD->lt("\x{430}\x{308}A", "\x{430}\x{308}B")); + ok($NFD->lt("\x{430}\x{3099}B", "\x{430}\x{308}\x{3099}A")); + ok($NFD->eq("\x{0430}\x{3099}\x{309A}\x{0308}", + "\x{0430}\x{309A}\x{3099}\x{0308}") ); } else{ ok(1); + ok(1); + ok(1); + ok(1); + ok(1); } my $tr = Unicode::Collate->new( |