diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2001-12-17 06:22:12 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-16 14:49:18 +0000 |
| commit | 905aa9f0848ed318032cdb14109ace09a223b727 (patch) | |
| tree | 362d17720b1dbaf5a222db32dd17f2b1447276c7 /lib/Unicode/Collate | |
| parent | 4ef28c72ed49aa6b9d3f54cb581962eceee8c546 (diff) | |
| download | perl-905aa9f0848ed318032cdb14109ace09a223b727.tar.gz | |
[patch @13687] Unicode::Collate 0.10
Message-Id: <20011216211615.8ED5.BQW10602@nifty.com>
p4raw-id: //depot/perl@13720
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( |