← Back to branch summary

~ubuntu-branches/ubuntu/raring/libunicode-collate-perl/raring-proposed

« back to all changes in this revision

Viewing changes to t/loc_ja.t

  • Committer: Bazaar Package Importer
  • Author(s): Danai SAE-HAN (韓達耐)
  • Date: 2010-11-04 21:58:23 UTC
  • Revision ID: james.westby@ubuntu.com-20101104215823-wr6wrwudp0em3fm4
Tags: upstream-0.66
Import upstream version 0.66

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/loc_ja.t
 
1
#!perl
 
2
use strict;
 
3
use warnings;
 
4
use Unicode::Collate::Locale;
 
5
 
 
6
use Test;
 
7
plan tests => 475;
 
8
 
 
9
my $objJa = Unicode::Collate::Locale->
 
10
    new(locale => 'JA', normalization => undef);
 
11
 
 
12
ok(1);
 
13
ok($objJa->getlocale, 'ja');
 
14
 
 
15
$objJa->change(level => 1);
 
16
 
 
17
# first ten kanji
 
18
ok($objJa->lt("\x{4E9C}", "\x{5516}"));
 
19
ok($objJa->lt("\x{5516}", "\x{5A03}"));
 
20
ok($objJa->lt("\x{5A03}", "\x{963F}"));
 
21
ok($objJa->lt("\x{963F}", "\x{54C0}"));
 
22
ok($objJa->lt("\x{54C0}", "\x{611B}"));
 
23
ok($objJa->lt("\x{611B}", "\x{6328}"));
 
24
ok($objJa->lt("\x{6328}", "\x{59F6}"));
 
25
ok($objJa->lt("\x{59F6}", "\x{9022}"));
 
26
ok($objJa->lt("\x{9022}", "\x{8475}"));
 
27
 
 
28
# last five kanji and undef
 
29
ok($objJa->lt("\x{69C7}", "\x{9059}"));
 
30
ok($objJa->lt("\x{9059}", "\x{7464}"));
 
31
ok($objJa->lt("\x{7464}", "\x{51DC}"));
 
32
ok($objJa->lt("\x{51DC}", "\x{7199}"));
 
33
ok($objJa->lt("\x{7199}", "\x{4E02}")); # 4E02: UIdeo undef in JIS X 0208
 
34
ok($objJa->lt("\x{4E02}", "\x{3400}")); # 3400: Ext.A undef in JIS X 0208
 
35
 
 
36
# 17
 
37
 
 
38
$objJa->change(level => 3);
 
39
 
 
40
ok($objJa->eq("\x{3041}", "\x{30A1}"));
 
41
ok($objJa->eq("\x{3042}", "\x{30A2}"));
 
42
ok($objJa->eq("\x{3043}", "\x{30A3}"));
 
43
ok($objJa->eq("\x{3044}", "\x{30A4}"));
 
44
ok($objJa->eq("\x{3045}", "\x{30A5}"));
 
45
ok($objJa->eq("\x{3046}", "\x{30A6}"));
 
46
ok($objJa->eq("\x{3047}", "\x{30A7}"));
 
47
ok($objJa->eq("\x{3048}", "\x{30A8}"));
 
48
ok($objJa->eq("\x{3049}", "\x{30A9}"));
 
49
ok($objJa->eq("\x{304A}", "\x{30AA}"));
 
50
ok($objJa->eq("\x{304B}", "\x{30AB}"));
 
51
ok($objJa->eq("\x{304C}", "\x{30AC}"));
 
52
ok($objJa->eq("\x{304D}", "\x{30AD}"));
 
53
ok($objJa->eq("\x{304E}", "\x{30AE}"));
 
54
ok($objJa->eq("\x{304F}", "\x{30AF}"));
 
55
ok($objJa->eq("\x{3050}", "\x{30B0}"));
 
56
ok($objJa->eq("\x{3051}", "\x{30B1}"));
 
57
ok($objJa->eq("\x{3052}", "\x{30B2}"));
 
58
ok($objJa->eq("\x{3053}", "\x{30B3}"));
 
59
ok($objJa->eq("\x{3054}", "\x{30B4}"));
 
60
ok($objJa->eq("\x{3055}", "\x{30B5}"));
 
61
ok($objJa->eq("\x{3056}", "\x{30B6}"));
 
62
ok($objJa->eq("\x{3057}", "\x{30B7}"));
 
63
ok($objJa->eq("\x{3058}", "\x{30B8}"));
 
64
ok($objJa->eq("\x{3059}", "\x{30B9}"));
 
65
ok($objJa->eq("\x{305A}", "\x{30BA}"));
 
66
ok($objJa->eq("\x{305B}", "\x{30BB}"));
 
67
ok($objJa->eq("\x{305C}", "\x{30BC}"));
 
68
ok($objJa->eq("\x{305D}", "\x{30BD}"));
 
69
ok($objJa->eq("\x{305E}", "\x{30BE}"));
 
70
ok($objJa->eq("\x{305F}", "\x{30BF}"));
 
71
ok($objJa->eq("\x{3060}", "\x{30C0}"));
 
72
ok($objJa->eq("\x{3061}", "\x{30C1}"));
 
73
ok($objJa->eq("\x{3062}", "\x{30C2}"));
 
74
ok($objJa->eq("\x{3063}", "\x{30C3}"));
 
75
ok($objJa->eq("\x{3064}", "\x{30C4}"));
 
76
ok($objJa->eq("\x{3065}", "\x{30C5}"));
 
77
ok($objJa->eq("\x{3066}", "\x{30C6}"));
 
78
ok($objJa->eq("\x{3067}", "\x{30C7}"));
 
79
ok($objJa->eq("\x{3068}", "\x{30C8}"));
 
80
ok($objJa->eq("\x{3069}", "\x{30C9}"));
 
81
ok($objJa->eq("\x{306A}", "\x{30CA}"));
 
82
ok($objJa->eq("\x{306B}", "\x{30CB}"));
 
83
ok($objJa->eq("\x{306C}", "\x{30CC}"));
 
84
ok($objJa->eq("\x{306D}", "\x{30CD}"));
 
85
ok($objJa->eq("\x{306E}", "\x{30CE}"));
 
86
ok($objJa->eq("\x{306F}", "\x{30CF}"));
 
87
ok($objJa->eq("\x{3070}", "\x{30D0}"));
 
88
ok($objJa->eq("\x{3071}", "\x{30D1}"));
 
89
ok($objJa->eq("\x{3072}", "\x{30D2}"));
 
90
ok($objJa->eq("\x{3073}", "\x{30D3}"));
 
91
ok($objJa->eq("\x{3074}", "\x{30D4}"));
 
92
ok($objJa->eq("\x{3075}", "\x{30D5}"));
 
93
ok($objJa->eq("\x{3076}", "\x{30D6}"));
 
94
ok($objJa->eq("\x{3077}", "\x{30D7}"));
 
95
ok($objJa->eq("\x{3078}", "\x{30D8}"));
 
96
ok($objJa->eq("\x{3079}", "\x{30D9}"));
 
97
ok($objJa->eq("\x{307A}", "\x{30DA}"));
 
98
ok($objJa->eq("\x{307B}", "\x{30DB}"));
 
99
ok($objJa->eq("\x{307C}", "\x{30DC}"));
 
100
ok($objJa->eq("\x{307D}", "\x{30DD}"));
 
101
ok($objJa->eq("\x{307E}", "\x{30DE}"));
 
102
ok($objJa->eq("\x{307F}", "\x{30DF}"));
 
103
ok($objJa->eq("\x{3080}", "\x{30E0}"));
 
104
ok($objJa->eq("\x{3081}", "\x{30E1}"));
 
105
ok($objJa->eq("\x{3082}", "\x{30E2}"));
 
106
ok($objJa->eq("\x{3083}", "\x{30E3}"));
 
107
ok($objJa->eq("\x{3084}", "\x{30E4}"));
 
108
ok($objJa->eq("\x{3085}", "\x{30E5}"));
 
109
ok($objJa->eq("\x{3086}", "\x{30E6}"));
 
110
ok($objJa->eq("\x{3087}", "\x{30E7}"));
 
111
ok($objJa->eq("\x{3088}", "\x{30E8}"));
 
112
ok($objJa->eq("\x{3089}", "\x{30E9}"));
 
113
ok($objJa->eq("\x{308A}", "\x{30EA}"));
 
114
ok($objJa->eq("\x{308B}", "\x{30EB}"));
 
115
ok($objJa->eq("\x{308C}", "\x{30EC}"));
 
116
ok($objJa->eq("\x{308D}", "\x{30ED}"));
 
117
ok($objJa->eq("\x{308E}", "\x{30EE}"));
 
118
ok($objJa->eq("\x{308F}", "\x{30EF}"));
 
119
ok($objJa->eq("\x{3090}", "\x{30F0}"));
 
120
ok($objJa->eq("\x{3091}", "\x{30F1}"));
 
121
ok($objJa->eq("\x{3092}", "\x{30F2}"));
 
122
ok($objJa->eq("\x{3093}", "\x{30F3}"));
 
123
ok($objJa->eq("\x{3094}", "\x{30F4}"));
 
124
ok($objJa->eq("\x{3095}", "\x{30F5}"));
 
125
ok($objJa->eq("\x{3096}", "\x{30F6}"));
 
126
 
 
127
# 103
 
128
 
 
129
$objJa->change(variable => 'Non-ignorable');
 
130
 
 
131
ok($objJa->eq("\x{3000}", "\ "));
 
132
ok($objJa->eq("\x{FF01}", "\!"));
 
133
ok($objJa->eq("\x{FF02}", "\""));
 
134
ok($objJa->eq("\x{FF03}", "\#"));
 
135
ok($objJa->eq("\x{FF04}", "\$"));
 
136
ok($objJa->eq("\x{FF05}", "\%"));
 
137
ok($objJa->eq("\x{FF06}", "\&"));
 
138
ok($objJa->eq("\x{FF07}", "\'"));
 
139
ok($objJa->eq("\x{FF08}", "\("));
 
140
ok($objJa->eq("\x{FF09}", "\)"));
 
141
ok($objJa->eq("\x{FF0A}", "\*"));
 
142
ok($objJa->eq("\x{FF0B}", "\+"));
 
143
ok($objJa->eq("\x{FF0C}", "\,"));
 
144
ok($objJa->eq("\x{FF0D}", "\-"));
 
145
ok($objJa->eq("\x{FF0E}", "\."));
 
146
ok($objJa->eq("\x{FF0F}", "\/"));
 
147
ok($objJa->eq("\x{FF10}", "0"));
 
148
ok($objJa->eq("\x{FF11}", "1"));
 
149
ok($objJa->eq("\x{FF12}", "2"));
 
150
ok($objJa->eq("\x{FF13}", "3"));
 
151
ok($objJa->eq("\x{FF14}", "4"));
 
152
ok($objJa->eq("\x{FF15}", "5"));
 
153
ok($objJa->eq("\x{FF16}", "6"));
 
154
ok($objJa->eq("\x{FF17}", "7"));
 
155
ok($objJa->eq("\x{FF18}", "8"));
 
156
ok($objJa->eq("\x{FF19}", "9"));
 
157
ok($objJa->eq("\x{FF1A}", "\:"));
 
158
ok($objJa->eq("\x{FF1B}", "\;"));
 
159
ok($objJa->eq("\x{FF1C}", "\<"));
 
160
ok($objJa->eq("\x{FF1D}", "\="));
 
161
ok($objJa->eq("\x{FF1E}", "\>"));
 
162
ok($objJa->eq("\x{FF1F}", "\?"));
 
163
ok($objJa->eq("\x{FF20}", "\@"));
 
164
ok($objJa->eq("\x{FF21}", "A"));
 
165
ok($objJa->eq("\x{FF22}", "B"));
 
166
ok($objJa->eq("\x{FF23}", "C"));
 
167
ok($objJa->eq("\x{FF24}", "D"));
 
168
ok($objJa->eq("\x{FF25}", "E"));
 
169
ok($objJa->eq("\x{FF26}", "F"));
 
170
ok($objJa->eq("\x{FF27}", "G"));
 
171
ok($objJa->eq("\x{FF28}", "H"));
 
172
ok($objJa->eq("\x{FF29}", "I"));
 
173
ok($objJa->eq("\x{FF2A}", "J"));
 
174
ok($objJa->eq("\x{FF2B}", "K"));
 
175
ok($objJa->eq("\x{FF2C}", "L"));
 
176
ok($objJa->eq("\x{FF2D}", "M"));
 
177
ok($objJa->eq("\x{FF2E}", "N"));
 
178
ok($objJa->eq("\x{FF2F}", "O"));
 
179
ok($objJa->eq("\x{FF30}", "P"));
 
180
ok($objJa->eq("\x{FF31}", "Q"));
 
181
ok($objJa->eq("\x{FF32}", "R"));
 
182
ok($objJa->eq("\x{FF33}", "S"));
 
183
ok($objJa->eq("\x{FF34}", "T"));
 
184
ok($objJa->eq("\x{FF35}", "U"));
 
185
ok($objJa->eq("\x{FF36}", "V"));
 
186
ok($objJa->eq("\x{FF37}", "W"));
 
187
ok($objJa->eq("\x{FF38}", "X"));
 
188
ok($objJa->eq("\x{FF39}", "Y"));
 
189
ok($objJa->eq("\x{FF3A}", "Z"));
 
190
ok($objJa->eq("\x{FF3B}", "\["));
 
191
ok($objJa->eq("\x{FF3C}", "\'"));
 
192
ok($objJa->eq("\x{FF3D}", "\]"));
 
193
ok($objJa->eq("\x{FF3E}", "\^"));
 
194
ok($objJa->eq("\x{FF3F}", "_"));
 
195
ok($objJa->eq("\x{FF40}", "\`"));
 
196
ok($objJa->eq("\x{FF41}", "a"));
 
197
ok($objJa->eq("\x{FF42}", "b"));
 
198
ok($objJa->eq("\x{FF43}", "c"));
 
199
ok($objJa->eq("\x{FF44}", "d"));
 
200
ok($objJa->eq("\x{FF45}", "e"));
 
201
ok($objJa->eq("\x{FF46}", "f"));
 
202
ok($objJa->eq("\x{FF47}", "g"));
 
203
ok($objJa->eq("\x{FF48}", "h"));
 
204
ok($objJa->eq("\x{FF49}", "i"));
 
205
ok($objJa->eq("\x{FF4A}", "j"));
 
206
ok($objJa->eq("\x{FF4B}", "k"));
 
207
ok($objJa->eq("\x{FF4C}", "l"));
 
208
ok($objJa->eq("\x{FF4D}", "m"));
 
209
ok($objJa->eq("\x{FF4E}", "n"));
 
210
ok($objJa->eq("\x{FF4F}", "o"));
 
211
ok($objJa->eq("\x{FF50}", "p"));
 
212
ok($objJa->eq("\x{FF51}", "q"));
 
213
ok($objJa->eq("\x{FF52}", "r"));
 
214
ok($objJa->eq("\x{FF53}", "s"));
 
215
ok($objJa->eq("\x{FF54}", "t"));
 
216
ok($objJa->eq("\x{FF55}", "u"));
 
217
ok($objJa->eq("\x{FF56}", "v"));
 
218
ok($objJa->eq("\x{FF57}", "w"));
 
219
ok($objJa->eq("\x{FF58}", "x"));
 
220
ok($objJa->eq("\x{FF59}", "y"));
 
221
ok($objJa->eq("\x{FF5A}", "z"));
 
222
ok($objJa->eq("\x{FF5B}", "\{"));
 
223
ok($objJa->eq("\x{FF5C}", "\|"));
 
224
ok($objJa->eq("\x{FF5D}", "\}"));
 
225
ok($objJa->eq("\x{FF5E}", "\~"));
 
226
ok($objJa->eq("\x{FF5F}", "\x{2985}"));
 
227
ok($objJa->eq("\x{FF60}", "\x{2986}"));
 
228
ok($objJa->eq("\x{FF61}", "\x{3002}"));
 
229
ok($objJa->eq("\x{FF62}", "\x{300C}"));
 
230
ok($objJa->eq("\x{FF63}", "\x{300D}"));
 
231
ok($objJa->eq("\x{FF64}", "\x{3001}"));
 
232
ok($objJa->eq("\x{FF65}", "\x{30FB}"));
 
233
ok($objJa->eq("\x{FF66}", "\x{30F2}"));
 
234
ok($objJa->eq("\x{FF67}", "\x{30A1}"));
 
235
ok($objJa->eq("\x{FF68}", "\x{30A3}"));
 
236
ok($objJa->eq("\x{FF69}", "\x{30A5}"));
 
237
ok($objJa->eq("\x{FF6A}", "\x{30A7}"));
 
238
ok($objJa->eq("\x{FF6B}", "\x{30A9}"));
 
239
ok($objJa->eq("\x{FF6C}", "\x{30E3}"));
 
240
ok($objJa->eq("\x{FF6D}", "\x{30E5}"));
 
241
ok($objJa->eq("\x{FF6E}", "\x{30E7}"));
 
242
ok($objJa->eq("\x{FF6F}", "\x{30C3}"));
 
243
ok($objJa->eq("\x{FF70}", "\x{30FC}"));
 
244
ok($objJa->eq("\x{FF71}", "\x{30A2}"));
 
245
ok($objJa->eq("\x{FF72}", "\x{30A4}"));
 
246
ok($objJa->eq("\x{FF73}", "\x{30A6}"));
 
247
ok($objJa->eq("\x{FF74}", "\x{30A8}"));
 
248
ok($objJa->eq("\x{FF75}", "\x{30AA}"));
 
249
ok($objJa->eq("\x{FF76}", "\x{30AB}"));
 
250
ok($objJa->eq("\x{FF77}", "\x{30AD}"));
 
251
ok($objJa->eq("\x{FF78}", "\x{30AF}"));
 
252
ok($objJa->eq("\x{FF79}", "\x{30B1}"));
 
253
ok($objJa->eq("\x{FF7A}", "\x{30B3}"));
 
254
ok($objJa->eq("\x{FF7B}", "\x{30B5}"));
 
255
ok($objJa->eq("\x{FF7C}", "\x{30B7}"));
 
256
ok($objJa->eq("\x{FF7D}", "\x{30B9}"));
 
257
ok($objJa->eq("\x{FF7E}", "\x{30BB}"));
 
258
ok($objJa->eq("\x{FF7F}", "\x{30BD}"));
 
259
ok($objJa->eq("\x{FF80}", "\x{30BF}"));
 
260
ok($objJa->eq("\x{FF81}", "\x{30C1}"));
 
261
ok($objJa->eq("\x{FF82}", "\x{30C4}"));
 
262
ok($objJa->eq("\x{FF83}", "\x{30C6}"));
 
263
ok($objJa->eq("\x{FF84}", "\x{30C8}"));
 
264
ok($objJa->eq("\x{FF85}", "\x{30CA}"));
 
265
ok($objJa->eq("\x{FF86}", "\x{30CB}"));
 
266
ok($objJa->eq("\x{FF87}", "\x{30CC}"));
 
267
ok($objJa->eq("\x{FF88}", "\x{30CD}"));
 
268
ok($objJa->eq("\x{FF89}", "\x{30CE}"));
 
269
ok($objJa->eq("\x{FF8A}", "\x{30CF}"));
 
270
ok($objJa->eq("\x{FF8B}", "\x{30D2}"));
 
271
ok($objJa->eq("\x{FF8C}", "\x{30D5}"));
 
272
ok($objJa->eq("\x{FF8D}", "\x{30D8}"));
 
273
ok($objJa->eq("\x{FF8E}", "\x{30DB}"));
 
274
ok($objJa->eq("\x{FF8F}", "\x{30DE}"));
 
275
ok($objJa->eq("\x{FF90}", "\x{30DF}"));
 
276
ok($objJa->eq("\x{FF91}", "\x{30E0}"));
 
277
ok($objJa->eq("\x{FF92}", "\x{30E1}"));
 
278
ok($objJa->eq("\x{FF93}", "\x{30E2}"));
 
279
ok($objJa->eq("\x{FF94}", "\x{30E4}"));
 
280
ok($objJa->eq("\x{FF95}", "\x{30E6}"));
 
281
ok($objJa->eq("\x{FF96}", "\x{30E8}"));
 
282
ok($objJa->eq("\x{FF97}", "\x{30E9}"));
 
283
ok($objJa->eq("\x{FF98}", "\x{30EA}"));
 
284
ok($objJa->eq("\x{FF99}", "\x{30EB}"));
 
285
ok($objJa->eq("\x{FF9A}", "\x{30EC}"));
 
286
ok($objJa->eq("\x{FF9B}", "\x{30ED}"));
 
287
ok($objJa->eq("\x{FF9C}", "\x{30EF}"));
 
288
ok($objJa->eq("\x{FF9D}", "\x{30F3}"));
 
289
ok($objJa->eq("\x{FF9E}", "\x{3099}"));
 
290
ok($objJa->eq("\x{FF9F}", "\x{309A}"));
 
291
ok($objJa->eq("\x{FFE0}", pack('U', 0xA2)));
 
292
ok($objJa->eq("\x{FFE1}", pack('U', 0xA3)));
 
293
ok($objJa->eq("\x{FFE2}", pack('U', 0xAC)));
 
294
ok($objJa->eq("\x{FFE3}", "\ "));
 
295
ok($objJa->eq("\x{FFE4}", pack('U', 0xA6)));
 
296
ok($objJa->eq("\x{FFE5}", pack('U', 0xA5)));
 
297
ok($objJa->eq("\x{FFE6}", "\x{20A9}"));
 
298
ok($objJa->eq("\x{FFE8}", "\x{2502}"));
 
299
ok($objJa->eq("\x{FFE9}", "\x{2190}"));
 
300
ok($objJa->eq("\x{FFEA}", "\x{2191}"));
 
301
ok($objJa->eq("\x{FFEB}", "\x{2192}"));
 
302
ok($objJa->eq("\x{FFEC}", "\x{2193}"));
 
303
ok($objJa->eq("\x{FFED}", "\x{25A0}"));
 
304
ok($objJa->eq("\x{FFEE}", "\x{25CB}"));
 
305
 
 
306
# 277
 
307
 
 
308
$objJa->change(level => 4);
 
309
 
 
310
ok($objJa->lt("\x{3041}", "\x{30A1}"));
 
311
ok($objJa->lt("\x{3042}", "\x{30A2}"));
 
312
ok($objJa->lt("\x{3043}", "\x{30A3}"));
 
313
ok($objJa->lt("\x{3044}", "\x{30A4}"));
 
314
ok($objJa->lt("\x{3045}", "\x{30A5}"));
 
315
ok($objJa->lt("\x{3046}", "\x{30A6}"));
 
316
ok($objJa->lt("\x{3047}", "\x{30A7}"));
 
317
ok($objJa->lt("\x{3048}", "\x{30A8}"));
 
318
ok($objJa->lt("\x{3049}", "\x{30A9}"));
 
319
ok($objJa->lt("\x{304A}", "\x{30AA}"));
 
320
ok($objJa->lt("\x{304B}", "\x{30AB}"));
 
321
ok($objJa->lt("\x{304C}", "\x{30AC}"));
 
322
ok($objJa->lt("\x{304D}", "\x{30AD}"));
 
323
ok($objJa->lt("\x{304E}", "\x{30AE}"));
 
324
ok($objJa->lt("\x{304F}", "\x{30AF}"));
 
325
ok($objJa->lt("\x{3050}", "\x{30B0}"));
 
326
ok($objJa->lt("\x{3051}", "\x{30B1}"));
 
327
ok($objJa->lt("\x{3052}", "\x{30B2}"));
 
328
ok($objJa->lt("\x{3053}", "\x{30B3}"));
 
329
ok($objJa->lt("\x{3054}", "\x{30B4}"));
 
330
ok($objJa->lt("\x{3055}", "\x{30B5}"));
 
331
ok($objJa->lt("\x{3056}", "\x{30B6}"));
 
332
ok($objJa->lt("\x{3057}", "\x{30B7}"));
 
333
ok($objJa->lt("\x{3058}", "\x{30B8}"));
 
334
ok($objJa->lt("\x{3059}", "\x{30B9}"));
 
335
ok($objJa->lt("\x{305A}", "\x{30BA}"));
 
336
ok($objJa->lt("\x{305B}", "\x{30BB}"));
 
337
ok($objJa->lt("\x{305C}", "\x{30BC}"));
 
338
ok($objJa->lt("\x{305D}", "\x{30BD}"));
 
339
ok($objJa->lt("\x{305E}", "\x{30BE}"));
 
340
ok($objJa->lt("\x{305F}", "\x{30BF}"));
 
341
ok($objJa->lt("\x{3060}", "\x{30C0}"));
 
342
ok($objJa->lt("\x{3061}", "\x{30C1}"));
 
343
ok($objJa->lt("\x{3062}", "\x{30C2}"));
 
344
ok($objJa->lt("\x{3063}", "\x{30C3}"));
 
345
ok($objJa->lt("\x{3064}", "\x{30C4}"));
 
346
ok($objJa->lt("\x{3065}", "\x{30C5}"));
 
347
ok($objJa->lt("\x{3066}", "\x{30C6}"));
 
348
ok($objJa->lt("\x{3067}", "\x{30C7}"));
 
349
ok($objJa->lt("\x{3068}", "\x{30C8}"));
 
350
ok($objJa->lt("\x{3069}", "\x{30C9}"));
 
351
ok($objJa->lt("\x{306A}", "\x{30CA}"));
 
352
ok($objJa->lt("\x{306B}", "\x{30CB}"));
 
353
ok($objJa->lt("\x{306C}", "\x{30CC}"));
 
354
ok($objJa->lt("\x{306D}", "\x{30CD}"));
 
355
ok($objJa->lt("\x{306E}", "\x{30CE}"));
 
356
ok($objJa->lt("\x{306F}", "\x{30CF}"));
 
357
ok($objJa->lt("\x{3070}", "\x{30D0}"));
 
358
ok($objJa->lt("\x{3071}", "\x{30D1}"));
 
359
ok($objJa->lt("\x{3072}", "\x{30D2}"));
 
360
ok($objJa->lt("\x{3073}", "\x{30D3}"));
 
361
ok($objJa->lt("\x{3074}", "\x{30D4}"));
 
362
ok($objJa->lt("\x{3075}", "\x{30D5}"));
 
363
ok($objJa->lt("\x{3076}", "\x{30D6}"));
 
364
ok($objJa->lt("\x{3077}", "\x{30D7}"));
 
365
ok($objJa->lt("\x{3078}", "\x{30D8}"));
 
366
ok($objJa->lt("\x{3079}", "\x{30D9}"));
 
367
ok($objJa->lt("\x{307A}", "\x{30DA}"));
 
368
ok($objJa->lt("\x{307B}", "\x{30DB}"));
 
369
ok($objJa->lt("\x{307C}", "\x{30DC}"));
 
370
ok($objJa->lt("\x{307D}", "\x{30DD}"));
 
371
ok($objJa->lt("\x{307E}", "\x{30DE}"));
 
372
ok($objJa->lt("\x{307F}", "\x{30DF}"));
 
373
ok($objJa->lt("\x{3080}", "\x{30E0}"));
 
374
ok($objJa->lt("\x{3081}", "\x{30E1}"));
 
375
ok($objJa->lt("\x{3082}", "\x{30E2}"));
 
376
ok($objJa->lt("\x{3083}", "\x{30E3}"));
 
377
ok($objJa->lt("\x{3084}", "\x{30E4}"));
 
378
ok($objJa->lt("\x{3085}", "\x{30E5}"));
 
379
ok($objJa->lt("\x{3086}", "\x{30E6}"));
 
380
ok($objJa->lt("\x{3087}", "\x{30E7}"));
 
381
ok($objJa->lt("\x{3088}", "\x{30E8}"));
 
382
ok($objJa->lt("\x{3089}", "\x{30E9}"));
 
383
ok($objJa->lt("\x{308A}", "\x{30EA}"));
 
384
ok($objJa->lt("\x{308B}", "\x{30EB}"));
 
385
ok($objJa->lt("\x{308C}", "\x{30EC}"));
 
386
ok($objJa->lt("\x{308D}", "\x{30ED}"));
 
387
ok($objJa->lt("\x{308E}", "\x{30EE}"));
 
388
ok($objJa->lt("\x{308F}", "\x{30EF}"));
 
389
ok($objJa->lt("\x{3090}", "\x{30F0}"));
 
390
ok($objJa->lt("\x{3091}", "\x{30F1}"));
 
391
ok($objJa->lt("\x{3092}", "\x{30F2}"));
 
392
ok($objJa->lt("\x{3093}", "\x{30F3}"));
 
393
ok($objJa->lt("\x{3094}", "\x{30F4}"));
 
394
ok($objJa->lt("\x{3095}", "\x{30F5}"));
 
395
ok($objJa->lt("\x{3096}", "\x{30F6}"));
 
396
 
 
397
# 363
 
398
 
 
399
ok($objJa->eq("\x{304C}", "\x{304B}\x{3099}"));
 
400
ok($objJa->eq("\x{304E}", "\x{304D}\x{3099}"));
 
401
ok($objJa->eq("\x{3050}", "\x{304F}\x{3099}"));
 
402
ok($objJa->eq("\x{3052}", "\x{3051}\x{3099}"));
 
403
ok($objJa->eq("\x{3054}", "\x{3053}\x{3099}"));
 
404
ok($objJa->eq("\x{3056}", "\x{3055}\x{3099}"));
 
405
ok($objJa->eq("\x{3058}", "\x{3057}\x{3099}"));
 
406
ok($objJa->eq("\x{305A}", "\x{3059}\x{3099}"));
 
407
ok($objJa->eq("\x{305C}", "\x{305B}\x{3099}"));
 
408
ok($objJa->eq("\x{305E}", "\x{305D}\x{3099}"));
 
409
ok($objJa->eq("\x{3060}", "\x{305F}\x{3099}"));
 
410
ok($objJa->eq("\x{3062}", "\x{3061}\x{3099}"));
 
411
ok($objJa->eq("\x{3065}", "\x{3064}\x{3099}"));
 
412
ok($objJa->eq("\x{3067}", "\x{3066}\x{3099}"));
 
413
ok($objJa->eq("\x{3069}", "\x{3068}\x{3099}"));
 
414
ok($objJa->eq("\x{3070}", "\x{306F}\x{3099}"));
 
415
ok($objJa->eq("\x{3071}", "\x{306F}\x{309A}"));
 
416
ok($objJa->eq("\x{3073}", "\x{3072}\x{3099}"));
 
417
ok($objJa->eq("\x{3074}", "\x{3072}\x{309A}"));
 
418
ok($objJa->eq("\x{3076}", "\x{3075}\x{3099}"));
 
419
ok($objJa->eq("\x{3077}", "\x{3075}\x{309A}"));
 
420
ok($objJa->eq("\x{3079}", "\x{3078}\x{3099}"));
 
421
ok($objJa->eq("\x{307A}", "\x{3078}\x{309A}"));
 
422
ok($objJa->eq("\x{307C}", "\x{307B}\x{3099}"));
 
423
ok($objJa->eq("\x{307D}", "\x{307B}\x{309A}"));
 
424
ok($objJa->eq("\x{3094}", "\x{3046}\x{3099}"));
 
425
 
 
426
# 389
 
427
 
 
428
$objJa->change(katakana_before_hiragana => 1);
 
429
 
 
430
ok($objJa->lt("\x{3041}", "\x{30A1}"));
 
431
ok($objJa->lt("\x{3042}", "\x{30A2}"));
 
432
ok($objJa->lt("\x{3043}", "\x{30A3}"));
 
433
ok($objJa->lt("\x{3044}", "\x{30A4}"));
 
434
ok($objJa->lt("\x{3045}", "\x{30A5}"));
 
435
ok($objJa->lt("\x{3046}", "\x{30A6}"));
 
436
ok($objJa->lt("\x{3047}", "\x{30A7}"));
 
437
ok($objJa->lt("\x{3048}", "\x{30A8}"));
 
438
ok($objJa->lt("\x{3049}", "\x{30A9}"));
 
439
ok($objJa->lt("\x{304A}", "\x{30AA}"));
 
440
ok($objJa->lt("\x{304B}", "\x{30AB}"));
 
441
ok($objJa->lt("\x{304C}", "\x{30AC}"));
 
442
ok($objJa->lt("\x{304D}", "\x{30AD}"));
 
443
ok($objJa->lt("\x{304E}", "\x{30AE}"));
 
444
ok($objJa->lt("\x{304F}", "\x{30AF}"));
 
445
ok($objJa->lt("\x{3050}", "\x{30B0}"));
 
446
ok($objJa->lt("\x{3051}", "\x{30B1}"));
 
447
ok($objJa->lt("\x{3052}", "\x{30B2}"));
 
448
ok($objJa->lt("\x{3053}", "\x{30B3}"));
 
449
ok($objJa->lt("\x{3054}", "\x{30B4}"));
 
450
ok($objJa->lt("\x{3055}", "\x{30B5}"));
 
451
ok($objJa->lt("\x{3056}", "\x{30B6}"));
 
452
ok($objJa->lt("\x{3057}", "\x{30B7}"));
 
453
ok($objJa->lt("\x{3058}", "\x{30B8}"));
 
454
ok($objJa->lt("\x{3059}", "\x{30B9}"));
 
455
ok($objJa->lt("\x{305A}", "\x{30BA}"));
 
456
ok($objJa->lt("\x{305B}", "\x{30BB}"));
 
457
ok($objJa->lt("\x{305C}", "\x{30BC}"));
 
458
ok($objJa->lt("\x{305D}", "\x{30BD}"));
 
459
ok($objJa->lt("\x{305E}", "\x{30BE}"));
 
460
ok($objJa->lt("\x{305F}", "\x{30BF}"));
 
461
ok($objJa->lt("\x{3060}", "\x{30C0}"));
 
462
ok($objJa->lt("\x{3061}", "\x{30C1}"));
 
463
ok($objJa->lt("\x{3062}", "\x{30C2}"));
 
464
ok($objJa->lt("\x{3063}", "\x{30C3}"));
 
465
ok($objJa->lt("\x{3064}", "\x{30C4}"));
 
466
ok($objJa->lt("\x{3065}", "\x{30C5}"));
 
467
ok($objJa->lt("\x{3066}", "\x{30C6}"));
 
468
ok($objJa->lt("\x{3067}", "\x{30C7}"));
 
469
ok($objJa->lt("\x{3068}", "\x{30C8}"));
 
470
ok($objJa->lt("\x{3069}", "\x{30C9}"));
 
471
ok($objJa->lt("\x{306A}", "\x{30CA}"));
 
472
ok($objJa->lt("\x{306B}", "\x{30CB}"));
 
473
ok($objJa->lt("\x{306C}", "\x{30CC}"));
 
474
ok($objJa->lt("\x{306D}", "\x{30CD}"));
 
475
ok($objJa->lt("\x{306E}", "\x{30CE}"));
 
476
ok($objJa->lt("\x{306F}", "\x{30CF}"));
 
477
ok($objJa->lt("\x{3070}", "\x{30D0}"));
 
478
ok($objJa->lt("\x{3071}", "\x{30D1}"));
 
479
ok($objJa->lt("\x{3072}", "\x{30D2}"));
 
480
ok($objJa->lt("\x{3073}", "\x{30D3}"));
 
481
ok($objJa->lt("\x{3074}", "\x{30D4}"));
 
482
ok($objJa->lt("\x{3075}", "\x{30D5}"));
 
483
ok($objJa->lt("\x{3076}", "\x{30D6}"));
 
484
ok($objJa->lt("\x{3077}", "\x{30D7}"));
 
485
ok($objJa->lt("\x{3078}", "\x{30D8}"));
 
486
ok($objJa->lt("\x{3079}", "\x{30D9}"));
 
487
ok($objJa->lt("\x{307A}", "\x{30DA}"));
 
488
ok($objJa->lt("\x{307B}", "\x{30DB}"));
 
489
ok($objJa->lt("\x{307C}", "\x{30DC}"));
 
490
ok($objJa->lt("\x{307D}", "\x{30DD}"));
 
491
ok($objJa->lt("\x{307E}", "\x{30DE}"));
 
492
ok($objJa->lt("\x{307F}", "\x{30DF}"));
 
493
ok($objJa->lt("\x{3080}", "\x{30E0}"));
 
494
ok($objJa->lt("\x{3081}", "\x{30E1}"));
 
495
ok($objJa->lt("\x{3082}", "\x{30E2}"));
 
496
ok($objJa->lt("\x{3083}", "\x{30E3}"));
 
497
ok($objJa->lt("\x{3084}", "\x{30E4}"));
 
498
ok($objJa->lt("\x{3085}", "\x{30E5}"));
 
499
ok($objJa->lt("\x{3086}", "\x{30E6}"));
 
500
ok($objJa->lt("\x{3087}", "\x{30E7}"));
 
501
ok($objJa->lt("\x{3088}", "\x{30E8}"));
 
502
ok($objJa->lt("\x{3089}", "\x{30E9}"));
 
503
ok($objJa->lt("\x{308A}", "\x{30EA}"));
 
504
ok($objJa->lt("\x{308B}", "\x{30EB}"));
 
505
ok($objJa->lt("\x{308C}", "\x{30EC}"));
 
506
ok($objJa->lt("\x{308D}", "\x{30ED}"));
 
507
ok($objJa->lt("\x{308E}", "\x{30EE}"));
 
508
ok($objJa->lt("\x{308F}", "\x{30EF}"));
 
509
ok($objJa->lt("\x{3090}", "\x{30F0}"));
 
510
ok($objJa->lt("\x{3091}", "\x{30F1}"));
 
511
ok($objJa->lt("\x{3092}", "\x{30F2}"));
 
512
ok($objJa->lt("\x{3093}", "\x{30F3}"));
 
513
ok($objJa->lt("\x{3094}", "\x{30F4}"));
 
514
ok($objJa->lt("\x{3095}", "\x{30F5}"));
 
515
ok($objJa->lt("\x{3096}", "\x{30F6}"));
 
516
 
 
517
# 475