https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 68adb2b0 CBW |
1 | |
| 2 | BEGIN { | |
| 3 | unless ("A" eq pack('U', 0x41)) { | |
| 4 | print "1..0 # Unicode::Collate " . | |
| 5 | "cannot stringify a Unicode code point\n"; | |
| 6 | exit 0; | |
| 7 | } | |
| 8 | if ($ENV{PERL_CORE}) { | |
| 9 | chdir('t') if -d 't'; | |
| 10 | @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); | |
| 11 | } | |
| 12 | } | |
| 13 | ||
| 14 | use Test; | |
| 15 | BEGIN { plan tests => 235 }; | |
| 16 | ||
| 6709de88 CBW |
17 | use strict; |
| 18 | use warnings; | |
| 19 | use Unicode::Collate::Locale; | |
| 20 | ||
| 68adb2b0 CBW |
21 | ok(1); |
| 22 | ||
| 23 | ######################### | |
| 6709de88 CBW |
24 | |
| 25 | my $objHu = Unicode::Collate::Locale-> | |
| 26 | new(locale => 'HU', normalization => undef); | |
| 27 | ||
| 6709de88 CBW |
28 | ok($objHu->getlocale, 'hu'); |
| 29 | ||
| 30 | $objHu->change(level => 1); | |
| 31 | ||
| 32 | ok($objHu->lt("c", "cs")); | |
| 33 | ok($objHu->lt("cz","cs")); | |
| 34 | ok($objHu->gt("d", "cs")); | |
| 35 | ok($objHu->lt("d", "dz")); | |
| 36 | ok($objHu->gt("dz","d\x{292}")); | |
| 37 | ok($objHu->lt("dz", "dzs")); | |
| 38 | ok($objHu->lt("dzz","dzs")); | |
| 39 | ok($objHu->gt("e", "dzs")); | |
| 40 | ok($objHu->lt("g", "gy")); | |
| 41 | ok($objHu->lt("gz","gy")); | |
| 42 | ok($objHu->gt("h", "gy")); | |
| 43 | ok($objHu->lt("l", "ly")); | |
| 44 | ok($objHu->lt("lz","ly")); | |
| 45 | ok($objHu->gt("m", "ly")); | |
| 46 | ok($objHu->lt("n", "ny")); | |
| 47 | ok($objHu->lt("nz","ny")); | |
| 48 | ok($objHu->gt("o", "ny")); | |
| 49 | ok($objHu->lt("s", "sz")); | |
| 50 | ok($objHu->gt("sz","s\x{292}")); | |
| 51 | ok($objHu->gt("t", "sz")); | |
| 52 | ok($objHu->lt("t", "ty")); | |
| 53 | ok($objHu->lt("tz","ty")); | |
| 54 | ok($objHu->gt("u", "ty")); | |
| 55 | ok($objHu->lt("z", "zs")); | |
| 56 | ok($objHu->lt("zz", "zs")); | |
| 57 | ok($objHu->lt("zs", "\x{292}")); | |
| 58 | ||
| 59 | # 28 | |
| 60 | ||
| 61 | ok($objHu->lt("o", "o\x{308}")); | |
| 62 | ok($objHu->gt("p", "o\x{308}")); | |
| 63 | ok($objHu->lt("u", "u\x{308}")); | |
| 64 | ok($objHu->gt("v", "u\x{308}")); | |
| 65 | ||
| 66 | ok($objHu->eq("o\x{308}", "o\x{30B}")); | |
| 67 | ok($objHu->eq("u\x{308}", "u\x{30B}")); | |
| 68 | ||
| 69 | # 34 | |
| 70 | ||
| 71 | $objHu->change(level => 2); | |
| 72 | ||
| 73 | ok($objHu->eq("cs", "cS")); | |
| 74 | ok($objHu->eq("cS", "Cs")); | |
| 75 | ok($objHu->eq("Cs", "CS")); | |
| 76 | ok($objHu->eq("dz", "dZ")); | |
| 77 | ok($objHu->eq("dZ", "Dz")); | |
| 78 | ok($objHu->eq("Dz", "DZ")); | |
| 79 | ok($objHu->eq("dzs", "dzS")); | |
| 80 | ok($objHu->eq("dzS", "dZs")); | |
| 81 | ok($objHu->eq("dZs", "dZS")); | |
| 82 | ok($objHu->eq("dZS", "Dzs")); | |
| 83 | ok($objHu->eq("Dzs", "DzS")); | |
| 84 | ok($objHu->eq("DzS", "DZs")); | |
| 85 | ok($objHu->eq("DZs", "DZS")); | |
| 86 | ok($objHu->eq("gy", "gY")); | |
| 87 | ok($objHu->eq("gY", "Gy")); | |
| 88 | ok($objHu->eq("Gy", "GY")); | |
| 89 | ok($objHu->eq("ly", "lY")); | |
| 90 | ok($objHu->eq("lY", "Ly")); | |
| 91 | ok($objHu->eq("Ly", "LY")); | |
| 92 | ok($objHu->eq("ny", "nY")); | |
| 93 | ok($objHu->eq("nY", "Ny")); | |
| 94 | ok($objHu->eq("Ny", "NY")); | |
| 95 | ok($objHu->eq("sz", "sZ")); | |
| 96 | ok($objHu->eq("sZ", "Sz")); | |
| 97 | ok($objHu->eq("Sz", "SZ")); | |
| 98 | ok($objHu->eq("ty", "tY")); | |
| 99 | ok($objHu->eq("tY", "Ty")); | |
| 100 | ok($objHu->eq("Ty", "TY")); | |
| 101 | ok($objHu->eq("zs", "zS")); | |
| 102 | ok($objHu->eq("zS", "Zs")); | |
| 103 | ok($objHu->eq("Zs", "ZS")); | |
| 104 | ||
| 105 | # 65 | |
| 106 | ||
| 107 | ok($objHu->lt("o\x{308}", "o\x{30B}")); | |
| 108 | ok($objHu->lt("u\x{308}", "u\x{30B}")); | |
| 109 | ||
| 110 | ok($objHu->eq("o\x{308}", "O\x{308}")); | |
| 111 | ok($objHu->eq("o\x{30B}", "O\x{30B}")); | |
| 112 | ok($objHu->eq("u\x{308}", "U\x{308}")); | |
| 113 | ok($objHu->eq("u\x{30B}", "U\x{30B}")); | |
| 114 | ||
| 115 | # 71 | |
| 116 | ||
| 117 | $objHu->change(level => 3); | |
| 118 | ||
| 119 | ok($objHu->lt("cs", "cS")); | |
| 120 | ok($objHu->lt("cS", "Cs")); | |
| 121 | ok($objHu->lt("Cs", "CS")); | |
| 122 | ok($objHu->lt("dz", "dZ")); | |
| 123 | ok($objHu->lt("dZ", "Dz")); | |
| 124 | ok($objHu->lt("Dz", "DZ")); | |
| 125 | ok($objHu->lt("dzs", "dzS")); | |
| 126 | ok($objHu->lt("dzS", "dZs")); | |
| 127 | ok($objHu->lt("dZs", "dZS")); | |
| 128 | ok($objHu->lt("dZS", "Dzs")); | |
| 129 | ok($objHu->lt("Dzs", "DzS")); | |
| 130 | ok($objHu->lt("DzS", "DZs")); | |
| 131 | ok($objHu->lt("DZs", "DZS")); | |
| 132 | ok($objHu->lt("gy", "gY")); | |
| 133 | ok($objHu->lt("gY", "Gy")); | |
| 134 | ok($objHu->lt("Gy", "GY")); | |
| 135 | ok($objHu->lt("ly", "lY")); | |
| 136 | ok($objHu->lt("lY", "Ly")); | |
| 137 | ok($objHu->lt("Ly", "LY")); | |
| 138 | ok($objHu->lt("ny", "nY")); | |
| 139 | ok($objHu->lt("nY", "Ny")); | |
| 140 | ok($objHu->lt("Ny", "NY")); | |
| 141 | ok($objHu->lt("sz", "sZ")); | |
| 142 | ok($objHu->lt("sZ", "Sz")); | |
| 143 | ok($objHu->lt("Sz", "SZ")); | |
| 144 | ok($objHu->lt("ty", "tY")); | |
| 145 | ok($objHu->lt("tY", "Ty")); | |
| 146 | ok($objHu->lt("Ty", "TY")); | |
| 147 | ok($objHu->lt("zs", "zS")); | |
| 148 | ok($objHu->lt("zS", "Zs")); | |
| 149 | ok($objHu->lt("Zs", "ZS")); | |
| 150 | ||
| 151 | # 102 | |
| 152 | ||
| 153 | ok($objHu->lt("o\x{308}", "O\x{308}")); | |
| 154 | ok($objHu->lt("o\x{30B}", "O\x{30B}")); | |
| 155 | ok($objHu->lt("u\x{308}", "U\x{308}")); | |
| 156 | ok($objHu->lt("u\x{30B}", "U\x{30B}")); | |
| 157 | ||
| 158 | ok($objHu->eq("o\x{308}", pack('U', 0xF6))); | |
| 159 | ok($objHu->eq("O\x{308}", pack('U', 0xD6))); | |
| 160 | ok($objHu->eq("o\x{30B}", "\x{151}")); | |
| 161 | ok($objHu->eq("O\x{30B}", "\x{150}")); | |
| 162 | ok($objHu->eq("u\x{308}", pack('U', 0xFC))); | |
| 163 | ok($objHu->eq("U\x{308}", pack('U', 0xDC))); | |
| 164 | ok($objHu->eq("u\x{30B}", "\x{171}")); | |
| 165 | ok($objHu->eq("U\x{30B}", "\x{170}")); | |
| 166 | ||
| 167 | # 114 | |
| 168 | ||
| 169 | ok($objHu->eq("o\x{308}\x{304}", "\x{22B}")); | |
| 170 | ok($objHu->eq("O\x{308}\x{304}", "\x{22A}")); | |
| 171 | ok($objHu->eq("u\x{308}\x{300}", "\x{1DC}")); | |
| 172 | ok($objHu->eq("U\x{308}\x{300}", "\x{1DB}")); | |
| 173 | ok($objHu->eq("u\x{308}\x{301}", "\x{1D8}")); | |
| 174 | ok($objHu->eq("U\x{308}\x{301}", "\x{1D7}")); | |
| 175 | ok($objHu->eq("u\x{308}\x{304}", "\x{1D6}")); | |
| 176 | ok($objHu->eq("U\x{308}\x{304}", "\x{1D5}")); | |
| 177 | ok($objHu->eq("u\x{308}\x{30C}", "\x{1DA}")); | |
| 178 | ok($objHu->eq("U\x{308}\x{30C}", "\x{1D9}")); | |
| 179 | ||
| 180 | # 124 | |
| 181 | ||
| 182 | ok($objHu->eq("ccs", "cscs")); | |
| 183 | ok($objHu->eq("ccS", "cscS")); | |
| 184 | ok($objHu->eq("cCs", "csCs")); | |
| 185 | ok($objHu->eq("cCS", "csCS")); | |
| 186 | ok($objHu->eq("Ccs", "CScs")); | |
| 187 | ok($objHu->eq("CcS", "CScS")); | |
| 188 | ok($objHu->eq("CCs", "CSCs")); | |
| 189 | ok($objHu->eq("CCS", "CSCS")); | |
| 190 | ok($objHu->eq("ddz", "dzdz")); | |
| 191 | ok($objHu->eq("ddZ", "dzdZ")); | |
| 192 | ok($objHu->eq("dDz", "dzDz")); | |
| 193 | ok($objHu->eq("dDZ", "dzDZ")); | |
| 194 | ok($objHu->eq("Ddz", "DZdz")); | |
| 195 | ok($objHu->eq("DdZ", "DZdZ")); | |
| 196 | ok($objHu->eq("DDz", "DZDz")); | |
| 197 | ok($objHu->eq("DDZ", "DZDZ")); | |
| 198 | ok($objHu->eq("ddzs", "dzsdzs")); | |
| 199 | ok($objHu->eq("ddzS", "dzsdzS")); | |
| 200 | ok($objHu->eq("ddZs", "dzsdZs")); | |
| 201 | ok($objHu->eq("ddZS", "dzsdZS")); | |
| 202 | ok($objHu->eq("dDzs", "dzsDzs")); | |
| 203 | ok($objHu->eq("dDzS", "dzsDzS")); | |
| 204 | ok($objHu->eq("dDZs", "dzsDZs")); | |
| 205 | ok($objHu->eq("dDZS", "dzsDZS")); | |
| 206 | ok($objHu->eq("Ddzs", "DZSdzs")); | |
| 207 | ok($objHu->eq("DdzS", "DZSdzS")); | |
| 208 | ok($objHu->eq("DdZs", "DZSdZs")); | |
| 209 | ok($objHu->eq("DdZS", "DZSdZS")); | |
| 210 | ok($objHu->eq("DDzs", "DZSDzs")); | |
| 211 | ok($objHu->eq("DDzS", "DZSDzS")); | |
| 212 | ok($objHu->eq("DDZs", "DZSDZs")); | |
| 213 | ok($objHu->eq("DDZS", "DZSDZS")); | |
| 214 | ok($objHu->eq("ggy", "gygy")); | |
| 215 | ok($objHu->eq("ggY", "gygY")); | |
| 216 | ok($objHu->eq("gGy", "gyGy")); | |
| 217 | ok($objHu->eq("gGY", "gyGY")); | |
| 218 | ok($objHu->eq("Ggy", "GYgy")); | |
| 219 | ok($objHu->eq("GgY", "GYgY")); | |
| 220 | ok($objHu->eq("GGy", "GYGy")); | |
| 221 | ok($objHu->eq("GGY", "GYGY")); | |
| 222 | ok($objHu->eq("lly", "lyly")); | |
| 223 | ok($objHu->eq("llY", "lylY")); | |
| 224 | ok($objHu->eq("lLy", "lyLy")); | |
| 225 | ok($objHu->eq("lLY", "lyLY")); | |
| 226 | ok($objHu->eq("Lly", "LYly")); | |
| 227 | ok($objHu->eq("LlY", "LYlY")); | |
| 228 | ok($objHu->eq("LLy", "LYLy")); | |
| 229 | ok($objHu->eq("LLY", "LYLY")); | |
| 230 | ok($objHu->eq("nny", "nyny")); | |
| 231 | ok($objHu->eq("nnY", "nynY")); | |
| 232 | ok($objHu->eq("nNy", "nyNy")); | |
| 233 | ok($objHu->eq("nNY", "nyNY")); | |
| 234 | ok($objHu->eq("Nny", "NYny")); | |
| 235 | ok($objHu->eq("NnY", "NYnY")); | |
| 236 | ok($objHu->eq("NNy", "NYNy")); | |
| 237 | ok($objHu->eq("NNY", "NYNY")); | |
| 238 | ok($objHu->eq("ssz", "szsz")); | |
| 239 | ok($objHu->eq("ssZ", "szsZ")); | |
| 240 | ok($objHu->eq("sSz", "szSz")); | |
| 241 | ok($objHu->eq("sSZ", "szSZ")); | |
| 242 | ok($objHu->eq("Ssz", "SZsz")); | |
| 243 | ok($objHu->eq("SsZ", "SZsZ")); | |
| 244 | ok($objHu->eq("SSz", "SZSz")); | |
| 245 | ok($objHu->eq("SSZ", "SZSZ")); | |
| 246 | ok($objHu->eq("tty", "tyty")); | |
| 247 | ok($objHu->eq("ttY", "tytY")); | |
| 248 | ok($objHu->eq("tTy", "tyTy")); | |
| 249 | ok($objHu->eq("tTY", "tyTY")); | |
| 250 | ok($objHu->eq("Tty", "TYty")); | |
| 251 | ok($objHu->eq("TtY", "TYtY")); | |
| 252 | ok($objHu->eq("TTy", "TYTy")); | |
| 253 | ok($objHu->eq("TTY", "TYTY")); | |
| 254 | ok($objHu->eq("zzs", "zszs")); | |
| 255 | ok($objHu->eq("zzS", "zszS")); | |
| 256 | ok($objHu->eq("zZs", "zsZs")); | |
| 257 | ok($objHu->eq("zZS", "zsZS")); | |
| 258 | ok($objHu->eq("Zzs", "ZSzs")); | |
| 259 | ok($objHu->eq("ZzS", "ZSzS")); | |
| 260 | ok($objHu->eq("ZZs", "ZSZs")); | |
| 261 | ok($objHu->eq("ZZS", "ZSZS")); | |
| 262 | ||
| 263 | # 204 | |
| 264 | ||
| 265 | $objHu->change(upper_before_lower => 1); | |
| 266 | ||
| 267 | ok($objHu->gt("cs", "cS")); | |
| 268 | ok($objHu->gt("cS", "Cs")); | |
| 269 | ok($objHu->gt("Cs", "CS")); | |
| 270 | ok($objHu->gt("dz", "dZ")); | |
| 271 | ok($objHu->gt("dZ", "Dz")); | |
| 272 | ok($objHu->gt("Dz", "DZ")); | |
| 273 | ok($objHu->gt("dzs", "dzS")); | |
| 274 | ok($objHu->gt("dzS", "dZs")); | |
| 275 | ok($objHu->gt("dZs", "dZS")); | |
| 276 | ok($objHu->gt("dZS", "Dzs")); | |
| 277 | ok($objHu->gt("Dzs", "DzS")); | |
| 278 | ok($objHu->gt("DzS", "DZs")); | |
| 279 | ok($objHu->gt("DZs", "DZS")); | |
| 280 | ok($objHu->gt("gy", "gY")); | |
| 281 | ok($objHu->gt("gY", "Gy")); | |
| 282 | ok($objHu->gt("Gy", "GY")); | |
| 283 | ok($objHu->gt("ly", "lY")); | |
| 284 | ok($objHu->gt("lY", "Ly")); | |
| 285 | ok($objHu->gt("Ly", "LY")); | |
| 286 | ok($objHu->gt("ny", "nY")); | |
| 287 | ok($objHu->gt("nY", "Ny")); | |
| 288 | ok($objHu->gt("Ny", "NY")); | |
| 289 | ok($objHu->gt("sz", "sZ")); | |
| 290 | ok($objHu->gt("sZ", "Sz")); | |
| 291 | ok($objHu->gt("Sz", "SZ")); | |
| 292 | ok($objHu->gt("ty", "tY")); | |
| 293 | ok($objHu->gt("tY", "Ty")); | |
| 294 | ok($objHu->gt("Ty", "TY")); | |
| 295 | ok($objHu->gt("zs", "zS")); | |
| 296 | ok($objHu->gt("zS", "Zs")); | |
| 297 | ok($objHu->gt("Zs", "ZS")); | |
| 298 | ||
| 299 | # 235 |