Unicode-Collate/t/cjkrange.t

31 my $coll = Unicode::Collate->new(
68     ok($coll->cmp("\x{3400}", "\x{9FA6}") == ($v >= 14 ? 1 : -1)); # new
69     ok($coll->cmp("\x{3400}", "\x{9FBB}") == ($v >= 14 ? 1 : -1)); # new
70     ok($coll->cmp("\x{3400}", "\x{9FBC}") == ($v >= 18 ? 1 : -1)); # new
71     ok($coll->cmp("\x{3400}", "\x{9FC3}") == ($v >= 18 ? 1 : -1)); # new
72     ok($coll->cmp("\x{3400}", "\x{9FC4}") == ($v >= 20 ? 1 : -1)); # new
73     ok($coll->cmp("\x{3400}", "\x{9FCB}") == ($v >= 20 ? 1 : -1)); # new
74     ok($coll->cmp("\x{3400}", "\x{9FCC}") == ($v >= 24 ? 1 : -1)); # new
75     ok($coll->cmp("\x{3400}", "\x{9FCD}") == ($v >= 32 ? 1 : -1)); # new
76     ok($coll->cmp("\x{3400}", "\x{9FD5}") == ($v >= 32 ? 1 : -1)); # new
77     ok($coll->cmp("\x{3400}", "\x{9FD6}") == ($v >= 36 ? 1 : -1)); # new
78     ok($coll->cmp("\x{3400}", "\x{9FEA}") == ($v >= 36 ? 1 : -1)); # new
79     ok($coll->cmp("\x{3400}", "\x{9FEB}") == ($v >= 38 ? 1 : -1)); # new
80     ok($coll->cmp("\x{3400}", "\x{9FEF}") == ($v >= 38 ? 1 : -1)); # new
81     ok($coll->cmp("\x{3400}", "\x{9FF0}") == ($v >= 43 ? 1 : -1)); # new
82     ok($coll->cmp("\x{3400}", "\x{9FFC}") == ($v >= 43 ? 1 : -1)); # new
88     ok($coll->cmp("\x{9FA5}", "\x{9FA6}") == -1); # UI  < new
89     ok($coll->cmp("\x{9FA6}", "\x{9FBB}") == -1); # new < new
90     ok($coll->cmp("\x{9FBB}", "\x{9FBC}") == -1); # new < new
91     ok($coll->cmp("\x{9FBC}", "\x{9FC3}") == -1); # new < new
92     ok($coll->cmp("\x{9FC3}", "\x{9FC4}") == -1); # new < new
93     ok($coll->cmp("\x{9FC4}", "\x{9FCB}") == -1); # new < new
94     ok($coll->cmp("\x{9FCB}", "\x{9FCC}") == -1); # new < new
95     ok($coll->cmp("\x{9FCC}", "\x{9FCD}") == -1); # new < new
96     ok($coll->cmp("\x{9FCD}", "\x{9FD5}") == -1); # new < new
97     ok($coll->cmp("\x{9FD5}", "\x{9FD6}") == -1); # new < new
98     ok($coll->cmp("\x{9FD6}", "\x{9FEA}") == -1); # new < new
99     ok($coll->cmp("\x{9FEA}", "\x{9FEB}") == -1); # new < new
100     ok($coll->cmp("\x{9FEB}", "\x{9FEF}") == -1); # new < new
101     ok($coll->cmp("\x{9FEF}", "\x{9FF0}") == -1); # new < new
102     ok($coll->cmp("\x{9FF0}", "\x{9FFC}") == -1); # new < new
103     ok($coll->cmp("\x{9FFC}", "\x{9FFD}") == -1); # new < na