cpan/Unicode-Collate/t/loc_japr.t

   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 => 602 };
  16
  17 use strict;
  18 use warnings;
  19 use Unicode::Collate::Locale;
  20
  21 ok(1);
  22
  23 #########################
  24
  25 my $objJa = Unicode::Collate::Locale->
  26     new(locale => 'JA', normalization => undef);
  27
  28 ok($objJa->getlocale, 'ja');
  29
  30 $objJa->change(level => 2);
  31
  32 ok($objJa->eq("\x{30A1}\x{30FC}", "\x{30A1}\x{30A1}"));
  33 ok($objJa->eq("\x{30A2}\x{30FC}", "\x{30A2}\x{30A1}"));
  34 ok($objJa->eq("\x{30AB}\x{30FC}", "\x{30AB}\x{30A1}"));
  35 ok($objJa->eq("\x{30AC}\x{30FC}", "\x{30AC}\x{30A1}"));
  36 ok($objJa->eq("\x{30B5}\x{30FC}", "\x{30B5}\x{30A1}"));
  37 ok($objJa->eq("\x{30B6}\x{30FC}", "\x{30B6}\x{30A1}"));
  38 ok($objJa->eq("\x{30BF}\x{30FC}", "\x{30BF}\x{30A1}"));
  39 ok($objJa->eq("\x{30C0}\x{30FC}", "\x{30C0}\x{30A1}"));
  40 ok($objJa->eq("\x{30CA}\x{30FC}", "\x{30CA}\x{30A1}"));
  41 ok($objJa->eq("\x{30CF}\x{30FC}", "\x{30CF}\x{30A1}"));
  42 ok($objJa->eq("\x{30D0}\x{30FC}", "\x{30D0}\x{30A1}"));
  43 ok($objJa->eq("\x{30D1}\x{30FC}", "\x{30D1}\x{30A1}"));
  44 ok($objJa->eq("\x{30DE}\x{30FC}", "\x{30DE}\x{30A1}"));
  45 ok($objJa->eq("\x{30E3}\x{30FC}", "\x{30E3}\x{30A1}"));
  46 ok($objJa->eq("\x{30E4}\x{30FC}", "\x{30E4}\x{30A1}"));
  47 ok($objJa->eq("\x{30E9}\x{30FC}", "\x{30E9}\x{30A1}"));
  48 ok($objJa->eq("\x{30EE}\x{30FC}", "\x{30EE}\x{30A1}"));
  49 ok($objJa->eq("\x{30EF}\x{30FC}", "\x{30EF}\x{30A1}"));
  50 ok($objJa->eq("\x{30F7}\x{30FC}", "\x{30F7}\x{30A1}"));
  51 ok($objJa->eq("\x{30F5}\x{30FC}", "\x{30F5}\x{30A1}"));
  52 ok($objJa->eq("\x{31F5}\x{30FC}", "\x{31F5}\x{30A1}"));
  53 ok($objJa->eq("\x{31FB}\x{30FC}", "\x{31FB}\x{30A1}"));
  54 ok($objJa->eq("\x{30A3}\x{30FC}", "\x{30A3}\x{30A3}"));
  55 ok($objJa->eq("\x{30A4}\x{30FC}", "\x{30A4}\x{30A3}"));
  56 ok($objJa->eq("\x{30AD}\x{30FC}", "\x{30AD}\x{30A3}"));
  57 ok($objJa->eq("\x{30AE}\x{30FC}", "\x{30AE}\x{30A3}"));
  58 ok($objJa->eq("\x{30B7}\x{30FC}", "\x{30B7}\x{30A3}"));
  59 ok($objJa->eq("\x{30B8}\x{30FC}", "\x{30B8}\x{30A3}"));
  60 ok($objJa->eq("\x{30C1}\x{30FC}", "\x{30C1}\x{30A3}"));
  61 ok($objJa->eq("\x{30C2}\x{30FC}", "\x{30C2}\x{30A3}"));
  62 ok($objJa->eq("\x{30CB}\x{30FC}", "\x{30CB}\x{30A3}"));
  63 ok($objJa->eq("\x{30D2}\x{30FC}", "\x{30D2}\x{30A3}"));
  64 ok($objJa->eq("\x{30D3}\x{30FC}", "\x{30D3}\x{30A3}"));
  65 ok($objJa->eq("\x{30D4}\x{30FC}", "\x{30D4}\x{30A3}"));
  66 ok($objJa->eq("\x{30DF}\x{30FC}", "\x{30DF}\x{30A3}"));
  67 ok($objJa->eq("\x{30EA}\x{30FC}", "\x{30EA}\x{30A3}"));
  68 ok($objJa->eq("\x{30F0}\x{30FC}", "\x{30F0}\x{30A3}"));
  69 ok($objJa->eq("\x{30F8}\x{30FC}", "\x{30F8}\x{30A3}"));
  70 ok($objJa->eq("\x{31F1}\x{30FC}", "\x{31F1}\x{30A3}"));
  71 ok($objJa->eq("\x{31F6}\x{30FC}", "\x{31F6}\x{30A3}"));
  72 ok($objJa->eq("\x{31FC}\x{30FC}", "\x{31FC}\x{30A3}"));
  73 ok($objJa->eq("\x{30A5}\x{30FC}", "\x{30A5}\x{30A5}"));
  74 ok($objJa->eq("\x{30A6}\x{30FC}", "\x{30A6}\x{30A5}"));
  75 ok($objJa->eq("\x{30AF}\x{30FC}", "\x{30AF}\x{30A5}"));
  76 ok($objJa->eq("\x{30B0}\x{30FC}", "\x{30B0}\x{30A5}"));
  77 ok($objJa->eq("\x{30B9}\x{30FC}", "\x{30B9}\x{30A5}"));
  78 ok($objJa->eq("\x{30BA}\x{30FC}", "\x{30BA}\x{30A5}"));
  79 ok($objJa->eq("\x{30C3}\x{30FC}", "\x{30C3}\x{30A5}"));
  80 ok($objJa->eq("\x{30C4}\x{30FC}", "\x{30C4}\x{30A5}"));
  81 ok($objJa->eq("\x{30C5}\x{30FC}", "\x{30C5}\x{30A5}"));
  82 ok($objJa->eq("\x{30CC}\x{30FC}", "\x{30CC}\x{30A5}"));
  83 ok($objJa->eq("\x{30D5}\x{30FC}", "\x{30D5}\x{30A5}"));
  84 ok($objJa->eq("\x{30D6}\x{30FC}", "\x{30D6}\x{30A5}"));
  85 ok($objJa->eq("\x{30D7}\x{30FC}", "\x{30D7}\x{30A5}"));
  86 ok($objJa->eq("\x{30E0}\x{30FC}", "\x{30E0}\x{30A5}"));
  87 ok($objJa->eq("\x{30E5}\x{30FC}", "\x{30E5}\x{30A5}"));
  88 ok($objJa->eq("\x{30E6}\x{30FC}", "\x{30E6}\x{30A5}"));
  89 ok($objJa->eq("\x{30EB}\x{30FC}", "\x{30EB}\x{30A5}"));
  90 ok($objJa->eq("\x{30F4}\x{30FC}", "\x{30F4}\x{30A5}"));
  91 ok($objJa->eq("\x{31F0}\x{30FC}", "\x{31F0}\x{30A5}"));
  92 ok($objJa->eq("\x{31F2}\x{30FC}", "\x{31F2}\x{30A5}"));
  93 ok($objJa->eq("\x{31F4}\x{30FC}", "\x{31F4}\x{30A5}"));
  94 ok($objJa->eq("\x{31F7}\x{30FC}", "\x{31F7}\x{30A5}"));
  95 ok($objJa->eq("\x{31FA}\x{30FC}", "\x{31FA}\x{30A5}"));
  96 ok($objJa->eq("\x{31FD}\x{30FC}", "\x{31FD}\x{30A5}"));
  97 ok($objJa->eq("\x{30A7}\x{30FC}", "\x{30A7}\x{30A7}"));
  98 ok($objJa->eq("\x{30A8}\x{30FC}", "\x{30A8}\x{30A7}"));
  99 ok($objJa->eq("\x{30B1}\x{30FC}", "\x{30B1}\x{30A7}"));
 100 ok($objJa->eq("\x{30B2}\x{30FC}", "\x{30B2}\x{30A7}"));
 101 ok($objJa->eq("\x{30BB}\x{30FC}", "\x{30BB}\x{30A7}"));
 102 ok($objJa->eq("\x{30BC}\x{30FC}", "\x{30BC}\x{30A7}"));
 103 ok($objJa->eq("\x{30C6}\x{30FC}", "\x{30C6}\x{30A7}"));
 104 ok($objJa->eq("\x{30C7}\x{30FC}", "\x{30C7}\x{30A7}"));
 105 ok($objJa->eq("\x{30CD}\x{30FC}", "\x{30CD}\x{30A7}"));
 106 ok($objJa->eq("\x{30D8}\x{30FC}", "\x{30D8}\x{30A7}"));
 107 ok($objJa->eq("\x{30D9}\x{30FC}", "\x{30D9}\x{30A7}"));
 108 ok($objJa->eq("\x{30DA}\x{30FC}", "\x{30DA}\x{30A7}"));
 109 ok($objJa->eq("\x{30E1}\x{30FC}", "\x{30E1}\x{30A7}"));
 110 ok($objJa->eq("\x{30EC}\x{30FC}", "\x{30EC}\x{30A7}"));
 111 ok($objJa->eq("\x{30F1}\x{30FC}", "\x{30F1}\x{30A7}"));
 112 ok($objJa->eq("\x{30F9}\x{30FC}", "\x{30F9}\x{30A7}"));
 113 ok($objJa->eq("\x{30F6}\x{30FC}", "\x{30F6}\x{30A7}"));
 114 ok($objJa->eq("\x{31F8}\x{30FC}", "\x{31F8}\x{30A7}"));
 115 ok($objJa->eq("\x{31FE}\x{30FC}", "\x{31FE}\x{30A7}"));
 116 ok($objJa->eq("\x{30A9}\x{30FC}", "\x{30A9}\x{30A9}"));
 117 ok($objJa->eq("\x{30AA}\x{30FC}", "\x{30AA}\x{30A9}"));
 118 ok($objJa->eq("\x{30B3}\x{30FC}", "\x{30B3}\x{30A9}"));
 119 ok($objJa->eq("\x{30B4}\x{30FC}", "\x{30B4}\x{30A9}"));
 120 ok($objJa->eq("\x{30BD}\x{30FC}", "\x{30BD}\x{30A9}"));
 121 ok($objJa->eq("\x{30BE}\x{30FC}", "\x{30BE}\x{30A9}"));
 122 ok($objJa->eq("\x{30C8}\x{30FC}", "\x{30C8}\x{30A9}"));
 123 ok($objJa->eq("\x{30C9}\x{30FC}", "\x{30C9}\x{30A9}"));
 124 ok($objJa->eq("\x{30CE}\x{30FC}", "\x{30CE}\x{30A9}"));
 125 ok($objJa->eq("\x{30DB}\x{30FC}", "\x{30DB}\x{30A9}"));
 126 ok($objJa->eq("\x{30DC}\x{30FC}", "\x{30DC}\x{30A9}"));
 127 ok($objJa->eq("\x{30DD}\x{30FC}", "\x{30DD}\x{30A9}"));
 128 ok($objJa->eq("\x{30E2}\x{30FC}", "\x{30E2}\x{30A9}"));
 129 ok($objJa->eq("\x{30E7}\x{30FC}", "\x{30E7}\x{30A9}"));
 130 ok($objJa->eq("\x{30E8}\x{30FC}", "\x{30E8}\x{30A9}"));
 131 ok($objJa->eq("\x{30ED}\x{30FC}", "\x{30ED}\x{30A9}"));
 132 ok($objJa->eq("\x{30F2}\x{30FC}", "\x{30F2}\x{30A9}"));
 133 ok($objJa->eq("\x{30FA}\x{30FC}", "\x{30FA}\x{30A9}"));
 134 ok($objJa->eq("\x{31F3}\x{30FC}", "\x{31F3}\x{30A9}"));
 135 ok($objJa->eq("\x{31F9}\x{30FC}", "\x{31F9}\x{30A9}"));
 136 ok($objJa->eq("\x{31FF}\x{30FC}", "\x{31FF}\x{30A9}"));
 137
 138 # 107
 139
 140 $objJa->change(level => 3);
 141
 142 ok($objJa->lt("\x{30A1}\x{30FC}", "\x{30A1}\x{30A1}"));
 143 ok($objJa->lt("\x{30A2}\x{30FC}", "\x{30A2}\x{30A1}"));
 144 ok($objJa->lt("\x{30AB}\x{30FC}", "\x{30AB}\x{30A1}"));
 145 ok($objJa->lt("\x{30AC}\x{30FC}", "\x{30AC}\x{30A1}"));
 146 ok($objJa->lt("\x{30B5}\x{30FC}", "\x{30B5}\x{30A1}"));
 147 ok($objJa->lt("\x{30B6}\x{30FC}", "\x{30B6}\x{30A1}"));
 148 ok($objJa->lt("\x{30BF}\x{30FC}", "\x{30BF}\x{30A1}"));
 149 ok($objJa->lt("\x{30C0}\x{30FC}", "\x{30C0}\x{30A1}"));
 150 ok($objJa->lt("\x{30CA}\x{30FC}", "\x{30CA}\x{30A1}"));
 151 ok($objJa->lt("\x{30CF}\x{30FC}", "\x{30CF}\x{30A1}"));
 152 ok($objJa->lt("\x{30D0}\x{30FC}", "\x{30D0}\x{30A1}"));
 153 ok($objJa->lt("\x{30D1}\x{30FC}", "\x{30D1}\x{30A1}"));
 154 ok($objJa->lt("\x{30DE}\x{30FC}", "\x{30DE}\x{30A1}"));
 155 ok($objJa->lt("\x{30E3}\x{30FC}", "\x{30E3}\x{30A1}"));
 156 ok($objJa->lt("\x{30E4}\x{30FC}", "\x{30E4}\x{30A1}"));
 157 ok($objJa->lt("\x{30E9}\x{30FC}", "\x{30E9}\x{30A1}"));
 158 ok($objJa->lt("\x{30EE}\x{30FC}", "\x{30EE}\x{30A1}"));
 159 ok($objJa->lt("\x{30EF}\x{30FC}", "\x{30EF}\x{30A1}"));
 160 ok($objJa->lt("\x{30F7}\x{30FC}", "\x{30F7}\x{30A1}"));
 161 ok($objJa->lt("\x{30F5}\x{30FC}", "\x{30F5}\x{30A1}"));
 162 ok($objJa->lt("\x{31F5}\x{30FC}", "\x{31F5}\x{30A1}"));
 163 ok($objJa->lt("\x{31FB}\x{30FC}", "\x{31FB}\x{30A1}"));
 164 ok($objJa->lt("\x{30A3}\x{30FC}", "\x{30A3}\x{30A3}"));
 165 ok($objJa->lt("\x{30A4}\x{30FC}", "\x{30A4}\x{30A3}"));
 166 ok($objJa->lt("\x{30AD}\x{30FC}", "\x{30AD}\x{30A3}"));
 167 ok($objJa->lt("\x{30AE}\x{30FC}", "\x{30AE}\x{30A3}"));
 168 ok($objJa->lt("\x{30B7}\x{30FC}", "\x{30B7}\x{30A3}"));
 169 ok($objJa->lt("\x{30B8}\x{30FC}", "\x{30B8}\x{30A3}"));
 170 ok($objJa->lt("\x{30C1}\x{30FC}", "\x{30C1}\x{30A3}"));
 171 ok($objJa->lt("\x{30C2}\x{30FC}", "\x{30C2}\x{30A3}"));
 172 ok($objJa->lt("\x{30CB}\x{30FC}", "\x{30CB}\x{30A3}"));
 173 ok($objJa->lt("\x{30D2}\x{30FC}", "\x{30D2}\x{30A3}"));
 174 ok($objJa->lt("\x{30D3}\x{30FC}", "\x{30D3}\x{30A3}"));
 175 ok($objJa->lt("\x{30D4}\x{30FC}", "\x{30D4}\x{30A3}"));
 176 ok($objJa->lt("\x{30DF}\x{30FC}", "\x{30DF}\x{30A3}"));
 177 ok($objJa->lt("\x{30EA}\x{30FC}", "\x{30EA}\x{30A3}"));
 178 ok($objJa->lt("\x{30F0}\x{30FC}", "\x{30F0}\x{30A3}"));
 179 ok($objJa->lt("\x{30F8}\x{30FC}", "\x{30F8}\x{30A3}"));
 180 ok($objJa->lt("\x{31F1}\x{30FC}", "\x{31F1}\x{30A3}"));
 181 ok($objJa->lt("\x{31F6}\x{30FC}", "\x{31F6}\x{30A3}"));
 182 ok($objJa->lt("\x{31FC}\x{30FC}", "\x{31FC}\x{30A3}"));
 183 ok($objJa->lt("\x{30A5}\x{30FC}", "\x{30A5}\x{30A5}"));
 184 ok($objJa->lt("\x{30A6}\x{30FC}", "\x{30A6}\x{30A5}"));
 185 ok($objJa->lt("\x{30AF}\x{30FC}", "\x{30AF}\x{30A5}"));
 186 ok($objJa->lt("\x{30B0}\x{30FC}", "\x{30B0}\x{30A5}"));
 187 ok($objJa->lt("\x{30B9}\x{30FC}", "\x{30B9}\x{30A5}"));
 188 ok($objJa->lt("\x{30BA}\x{30FC}", "\x{30BA}\x{30A5}"));
 189 ok($objJa->lt("\x{30C3}\x{30FC}", "\x{30C3}\x{30A5}"));
 190 ok($objJa->lt("\x{30C4}\x{30FC}", "\x{30C4}\x{30A5}"));
 191 ok($objJa->lt("\x{30C5}\x{30FC}", "\x{30C5}\x{30A5}"));
 192 ok($objJa->lt("\x{30CC}\x{30FC}", "\x{30CC}\x{30A5}"));
 193 ok($objJa->lt("\x{30D5}\x{30FC}", "\x{30D5}\x{30A5}"));
 194 ok($objJa->lt("\x{30D6}\x{30FC}", "\x{30D6}\x{30A5}"));
 195 ok($objJa->lt("\x{30D7}\x{30FC}", "\x{30D7}\x{30A5}"));
 196 ok($objJa->lt("\x{30E0}\x{30FC}", "\x{30E0}\x{30A5}"));
 197 ok($objJa->lt("\x{30E5}\x{30FC}", "\x{30E5}\x{30A5}"));
 198 ok($objJa->lt("\x{30E6}\x{30FC}", "\x{30E6}\x{30A5}"));
 199 ok($objJa->lt("\x{30EB}\x{30FC}", "\x{30EB}\x{30A5}"));
 200 ok($objJa->lt("\x{30F4}\x{30FC}", "\x{30F4}\x{30A5}"));
 201 ok($objJa->lt("\x{31F0}\x{30FC}", "\x{31F0}\x{30A5}"));
 202 ok($objJa->lt("\x{31F2}\x{30FC}", "\x{31F2}\x{30A5}"));
 203 ok($objJa->lt("\x{31F4}\x{30FC}", "\x{31F4}\x{30A5}"));
 204 ok($objJa->lt("\x{31F7}\x{30FC}", "\x{31F7}\x{30A5}"));
 205 ok($objJa->lt("\x{31FA}\x{30FC}", "\x{31FA}\x{30A5}"));
 206 ok($objJa->lt("\x{31FD}\x{30FC}", "\x{31FD}\x{30A5}"));
 207 ok($objJa->lt("\x{30A7}\x{30FC}", "\x{30A7}\x{30A7}"));
 208 ok($objJa->lt("\x{30A8}\x{30FC}", "\x{30A8}\x{30A7}"));
 209 ok($objJa->lt("\x{30B1}\x{30FC}", "\x{30B1}\x{30A7}"));
 210 ok($objJa->lt("\x{30B2}\x{30FC}", "\x{30B2}\x{30A7}"));
 211 ok($objJa->lt("\x{30BB}\x{30FC}", "\x{30BB}\x{30A7}"));
 212 ok($objJa->lt("\x{30BC}\x{30FC}", "\x{30BC}\x{30A7}"));
 213 ok($objJa->lt("\x{30C6}\x{30FC}", "\x{30C6}\x{30A7}"));
 214 ok($objJa->lt("\x{30C7}\x{30FC}", "\x{30C7}\x{30A7}"));
 215 ok($objJa->lt("\x{30CD}\x{30FC}", "\x{30CD}\x{30A7}"));
 216 ok($objJa->lt("\x{30D8}\x{30FC}", "\x{30D8}\x{30A7}"));
 217 ok($objJa->lt("\x{30D9}\x{30FC}", "\x{30D9}\x{30A7}"));
 218 ok($objJa->lt("\x{30DA}\x{30FC}", "\x{30DA}\x{30A7}"));
 219 ok($objJa->lt("\x{30E1}\x{30FC}", "\x{30E1}\x{30A7}"));
 220 ok($objJa->lt("\x{30EC}\x{30FC}", "\x{30EC}\x{30A7}"));
 221 ok($objJa->lt("\x{30F1}\x{30FC}", "\x{30F1}\x{30A7}"));
 222 ok($objJa->lt("\x{30F9}\x{30FC}", "\x{30F9}\x{30A7}"));
 223 ok($objJa->lt("\x{30F6}\x{30FC}", "\x{30F6}\x{30A7}"));
 224 ok($objJa->lt("\x{31F8}\x{30FC}", "\x{31F8}\x{30A7}"));
 225 ok($objJa->lt("\x{31FE}\x{30FC}", "\x{31FE}\x{30A7}"));
 226 ok($objJa->lt("\x{30A9}\x{30FC}", "\x{30A9}\x{30A9}"));
 227 ok($objJa->lt("\x{30AA}\x{30FC}", "\x{30AA}\x{30A9}"));
 228 ok($objJa->lt("\x{30B3}\x{30FC}", "\x{30B3}\x{30A9}"));
 229 ok($objJa->lt("\x{30B4}\x{30FC}", "\x{30B4}\x{30A9}"));
 230 ok($objJa->lt("\x{30BD}\x{30FC}", "\x{30BD}\x{30A9}"));
 231 ok($objJa->lt("\x{30BE}\x{30FC}", "\x{30BE}\x{30A9}"));
 232 ok($objJa->lt("\x{30C8}\x{30FC}", "\x{30C8}\x{30A9}"));
 233 ok($objJa->lt("\x{30C9}\x{30FC}", "\x{30C9}\x{30A9}"));
 234 ok($objJa->lt("\x{30CE}\x{30FC}", "\x{30CE}\x{30A9}"));
 235 ok($objJa->lt("\x{30DB}\x{30FC}", "\x{30DB}\x{30A9}"));
 236 ok($objJa->lt("\x{30DC}\x{30FC}", "\x{30DC}\x{30A9}"));
 237 ok($objJa->lt("\x{30DD}\x{30FC}", "\x{30DD}\x{30A9}"));
 238 ok($objJa->lt("\x{30E2}\x{30FC}", "\x{30E2}\x{30A9}"));
 239 ok($objJa->lt("\x{30E7}\x{30FC}", "\x{30E7}\x{30A9}"));
 240 ok($objJa->lt("\x{30E8}\x{30FC}", "\x{30E8}\x{30A9}"));
 241 ok($objJa->lt("\x{30ED}\x{30FC}", "\x{30ED}\x{30A9}"));
 242 ok($objJa->lt("\x{30F2}\x{30FC}", "\x{30F2}\x{30A9}"));
 243 ok($objJa->lt("\x{30FA}\x{30FC}", "\x{30FA}\x{30A9}"));
 244 ok($objJa->lt("\x{31F3}\x{30FC}", "\x{31F3}\x{30A9}"));
 245 ok($objJa->lt("\x{31F9}\x{30FC}", "\x{31F9}\x{30A9}"));
 246 ok($objJa->lt("\x{31FF}\x{30FC}", "\x{31FF}\x{30A9}"));
 247
 248 # 212
 249
 250 ok($objJa->eq("\x{3041}\x{30FC}", "\x{30A1}\x{30FC}"));
 251 ok($objJa->eq("\x{3042}\x{30FC}", "\x{30A2}\x{30FC}"));
 252 ok($objJa->eq("\x{304B}\x{30FC}", "\x{30AB}\x{30FC}"));
 253 ok($objJa->eq("\x{304C}\x{30FC}", "\x{30AC}\x{30FC}"));
 254 ok($objJa->eq("\x{3055}\x{30FC}", "\x{30B5}\x{30FC}"));
 255 ok($objJa->eq("\x{3056}\x{30FC}", "\x{30B6}\x{30FC}"));
 256 ok($objJa->eq("\x{305F}\x{30FC}", "\x{30BF}\x{30FC}"));
 257 ok($objJa->eq("\x{3060}\x{30FC}", "\x{30C0}\x{30FC}"));
 258 ok($objJa->eq("\x{306A}\x{30FC}", "\x{30CA}\x{30FC}"));
 259 ok($objJa->eq("\x{306F}\x{30FC}", "\x{30CF}\x{30FC}"));
 260 ok($objJa->eq("\x{3070}\x{30FC}", "\x{30D0}\x{30FC}"));
 261 ok($objJa->eq("\x{3071}\x{30FC}", "\x{30D1}\x{30FC}"));
 262 ok($objJa->eq("\x{307E}\x{30FC}", "\x{30DE}\x{30FC}"));
 263 ok($objJa->eq("\x{3083}\x{30FC}", "\x{30E3}\x{30FC}"));
 264 ok($objJa->eq("\x{3084}\x{30FC}", "\x{30E4}\x{30FC}"));
 265 ok($objJa->eq("\x{3089}\x{30FC}", "\x{30E9}\x{30FC}"));
 266 ok($objJa->eq("\x{308E}\x{30FC}", "\x{30EE}\x{30FC}"));
 267 ok($objJa->eq("\x{308F}\x{30FC}", "\x{30EF}\x{30FC}"));
 268 ok($objJa->eq("\x{3095}\x{30FC}", "\x{30F5}\x{30FC}"));
 269 ok($objJa->eq("\x{3043}\x{30FC}", "\x{30A3}\x{30FC}"));
 270 ok($objJa->eq("\x{3044}\x{30FC}", "\x{30A4}\x{30FC}"));
 271 ok($objJa->eq("\x{304D}\x{30FC}", "\x{30AD}\x{30FC}"));
 272 ok($objJa->eq("\x{304E}\x{30FC}", "\x{30AE}\x{30FC}"));
 273 ok($objJa->eq("\x{3057}\x{30FC}", "\x{30B7}\x{30FC}"));
 274 ok($objJa->eq("\x{3058}\x{30FC}", "\x{30B8}\x{30FC}"));
 275 ok($objJa->eq("\x{3061}\x{30FC}", "\x{30C1}\x{30FC}"));
 276 ok($objJa->eq("\x{3062}\x{30FC}", "\x{30C2}\x{30FC}"));
 277 ok($objJa->eq("\x{306B}\x{30FC}", "\x{30CB}\x{30FC}"));
 278 ok($objJa->eq("\x{3072}\x{30FC}", "\x{30D2}\x{30FC}"));
 279 ok($objJa->eq("\x{3073}\x{30FC}", "\x{30D3}\x{30FC}"));
 280 ok($objJa->eq("\x{3074}\x{30FC}", "\x{30D4}\x{30FC}"));
 281 ok($objJa->eq("\x{307F}\x{30FC}", "\x{30DF}\x{30FC}"));
 282 ok($objJa->eq("\x{308A}\x{30FC}", "\x{30EA}\x{30FC}"));
 283 ok($objJa->eq("\x{3090}\x{30FC}", "\x{30F0}\x{30FC}"));
 284 ok($objJa->eq("\x{3045}\x{30FC}", "\x{30A5}\x{30FC}"));
 285 ok($objJa->eq("\x{3046}\x{30FC}", "\x{30A6}\x{30FC}"));
 286 ok($objJa->eq("\x{304F}\x{30FC}", "\x{30AF}\x{30FC}"));
 287 ok($objJa->eq("\x{3050}\x{30FC}", "\x{30B0}\x{30FC}"));
 288 ok($objJa->eq("\x{3059}\x{30FC}", "\x{30B9}\x{30FC}"));
 289 ok($objJa->eq("\x{305A}\x{30FC}", "\x{30BA}\x{30FC}"));
 290 ok($objJa->eq("\x{3063}\x{30FC}", "\x{30C3}\x{30FC}"));
 291 ok($objJa->eq("\x{3064}\x{30FC}", "\x{30C4}\x{30FC}"));
 292 ok($objJa->eq("\x{3065}\x{30FC}", "\x{30C5}\x{30FC}"));
 293 ok($objJa->eq("\x{306C}\x{30FC}", "\x{30CC}\x{30FC}"));
 294 ok($objJa->eq("\x{3075}\x{30FC}", "\x{30D5}\x{30FC}"));
 295 ok($objJa->eq("\x{3076}\x{30FC}", "\x{30D6}\x{30FC}"));
 296 ok($objJa->eq("\x{3077}\x{30FC}", "\x{30D7}\x{30FC}"));
 297 ok($objJa->eq("\x{3080}\x{30FC}", "\x{30E0}\x{30FC}"));
 298 ok($objJa->eq("\x{3085}\x{30FC}", "\x{30E5}\x{30FC}"));
 299 ok($objJa->eq("\x{3086}\x{30FC}", "\x{30E6}\x{30FC}"));
 300 ok($objJa->eq("\x{308B}\x{30FC}", "\x{30EB}\x{30FC}"));
 301 ok($objJa->eq("\x{3094}\x{30FC}", "\x{30F4}\x{30FC}"));
 302 ok($objJa->eq("\x{3047}\x{30FC}", "\x{30A7}\x{30FC}"));
 303 ok($objJa->eq("\x{3048}\x{30FC}", "\x{30A8}\x{30FC}"));
 304 ok($objJa->eq("\x{3051}\x{30FC}", "\x{30B1}\x{30FC}"));
 305 ok($objJa->eq("\x{3052}\x{30FC}", "\x{30B2}\x{30FC}"));
 306 ok($objJa->eq("\x{305B}\x{30FC}", "\x{30BB}\x{30FC}"));
 307 ok($objJa->eq("\x{305C}\x{30FC}", "\x{30BC}\x{30FC}"));
 308 ok($objJa->eq("\x{3066}\x{30FC}", "\x{30C6}\x{30FC}"));
 309 ok($objJa->eq("\x{3067}\x{30FC}", "\x{30C7}\x{30FC}"));
 310 ok($objJa->eq("\x{306D}\x{30FC}", "\x{30CD}\x{30FC}"));
 311 ok($objJa->eq("\x{3078}\x{30FC}", "\x{30D8}\x{30FC}"));
 312 ok($objJa->eq("\x{3079}\x{30FC}", "\x{30D9}\x{30FC}"));
 313 ok($objJa->eq("\x{307A}\x{30FC}", "\x{30DA}\x{30FC}"));
 314 ok($objJa->eq("\x{3081}\x{30FC}", "\x{30E1}\x{30FC}"));
 315 ok($objJa->eq("\x{308C}\x{30FC}", "\x{30EC}\x{30FC}"));
 316 ok($objJa->eq("\x{3091}\x{30FC}", "\x{30F1}\x{30FC}"));
 317 ok($objJa->eq("\x{3096}\x{30FC}", "\x{30F6}\x{30FC}"));
 318 ok($objJa->eq("\x{3049}\x{30FC}", "\x{30A9}\x{30FC}"));
 319 ok($objJa->eq("\x{304A}\x{30FC}", "\x{30AA}\x{30FC}"));
 320 ok($objJa->eq("\x{3053}\x{30FC}", "\x{30B3}\x{30FC}"));
 321 ok($objJa->eq("\x{3054}\x{30FC}", "\x{30B4}\x{30FC}"));
 322 ok($objJa->eq("\x{305D}\x{30FC}", "\x{30BD}\x{30FC}"));
 323 ok($objJa->eq("\x{305E}\x{30FC}", "\x{30BE}\x{30FC}"));
 324 ok($objJa->eq("\x{3068}\x{30FC}", "\x{30C8}\x{30FC}"));
 325 ok($objJa->eq("\x{3069}\x{30FC}", "\x{30C9}\x{30FC}"));
 326 ok($objJa->eq("\x{306E}\x{30FC}", "\x{30CE}\x{30FC}"));
 327 ok($objJa->eq("\x{307B}\x{30FC}", "\x{30DB}\x{30FC}"));
 328 ok($objJa->eq("\x{307C}\x{30FC}", "\x{30DC}\x{30FC}"));
 329 ok($objJa->eq("\x{307D}\x{30FC}", "\x{30DD}\x{30FC}"));
 330 ok($objJa->eq("\x{3082}\x{30FC}", "\x{30E2}\x{30FC}"));
 331 ok($objJa->eq("\x{3087}\x{30FC}", "\x{30E7}\x{30FC}"));
 332 ok($objJa->eq("\x{3088}\x{30FC}", "\x{30E8}\x{30FC}"));
 333 ok($objJa->eq("\x{308D}\x{30FC}", "\x{30ED}\x{30FC}"));
 334 ok($objJa->eq("\x{3092}\x{30FC}", "\x{30F2}\x{30FC}"));
 335
 336 # 297
 337
 338 $objJa->change(level => 4);
 339
 340 $objJa->change(variable => 'Non-ignorable');
 341
 342 ok($objJa->lt("\x{3041}\x{30FC}", "\x{30A1}\x{30FC}"));
 343 ok($objJa->lt("\x{3042}\x{30FC}", "\x{30A2}\x{30FC}"));
 344 ok($objJa->lt("\x{304B}\x{30FC}", "\x{30AB}\x{30FC}"));
 345 ok($objJa->lt("\x{304C}\x{30FC}", "\x{30AC}\x{30FC}"));
 346 ok($objJa->lt("\x{3055}\x{30FC}", "\x{30B5}\x{30FC}"));
 347 ok($objJa->lt("\x{3056}\x{30FC}", "\x{30B6}\x{30FC}"));
 348 ok($objJa->lt("\x{305F}\x{30FC}", "\x{30BF}\x{30FC}"));
 349 ok($objJa->lt("\x{3060}\x{30FC}", "\x{30C0}\x{30FC}"));
 350 ok($objJa->lt("\x{306A}\x{30FC}", "\x{30CA}\x{30FC}"));
 351 ok($objJa->lt("\x{306F}\x{30FC}", "\x{30CF}\x{30FC}"));
 352 ok($objJa->lt("\x{3070}\x{30FC}", "\x{30D0}\x{30FC}"));
 353 ok($objJa->lt("\x{3071}\x{30FC}", "\x{30D1}\x{30FC}"));
 354 ok($objJa->lt("\x{307E}\x{30FC}", "\x{30DE}\x{30FC}"));
 355 ok($objJa->lt("\x{3083}\x{30FC}", "\x{30E3}\x{30FC}"));
 356 ok($objJa->lt("\x{3084}\x{30FC}", "\x{30E4}\x{30FC}"));
 357 ok($objJa->lt("\x{3089}\x{30FC}", "\x{30E9}\x{30FC}"));
 358 ok($objJa->lt("\x{308E}\x{30FC}", "\x{30EE}\x{30FC}"));
 359 ok($objJa->lt("\x{308F}\x{30FC}", "\x{30EF}\x{30FC}"));
 360 ok($objJa->lt("\x{3095}\x{30FC}", "\x{30F5}\x{30FC}"));
 361 ok($objJa->lt("\x{3043}\x{30FC}", "\x{30A3}\x{30FC}"));
 362 ok($objJa->lt("\x{3044}\x{30FC}", "\x{30A4}\x{30FC}"));
 363 ok($objJa->lt("\x{304D}\x{30FC}", "\x{30AD}\x{30FC}"));
 364 ok($objJa->lt("\x{304E}\x{30FC}", "\x{30AE}\x{30FC}"));
 365 ok($objJa->lt("\x{3057}\x{30FC}", "\x{30B7}\x{30FC}"));
 366 ok($objJa->lt("\x{3058}\x{30FC}", "\x{30B8}\x{30FC}"));
 367 ok($objJa->lt("\x{3061}\x{30FC}", "\x{30C1}\x{30FC}"));
 368 ok($objJa->lt("\x{3062}\x{30FC}", "\x{30C2}\x{30FC}"));
 369 ok($objJa->lt("\x{306B}\x{30FC}", "\x{30CB}\x{30FC}"));
 370 ok($objJa->lt("\x{3072}\x{30FC}", "\x{30D2}\x{30FC}"));
 371 ok($objJa->lt("\x{3073}\x{30FC}", "\x{30D3}\x{30FC}"));
 372 ok($objJa->lt("\x{3074}\x{30FC}", "\x{30D4}\x{30FC}"));
 373 ok($objJa->lt("\x{307F}\x{30FC}", "\x{30DF}\x{30FC}"));
 374 ok($objJa->lt("\x{308A}\x{30FC}", "\x{30EA}\x{30FC}"));
 375 ok($objJa->lt("\x{3090}\x{30FC}", "\x{30F0}\x{30FC}"));
 376 ok($objJa->lt("\x{3045}\x{30FC}", "\x{30A5}\x{30FC}"));
 377 ok($objJa->lt("\x{3046}\x{30FC}", "\x{30A6}\x{30FC}"));
 378 ok($objJa->lt("\x{304F}\x{30FC}", "\x{30AF}\x{30FC}"));
 379 ok($objJa->lt("\x{3050}\x{30FC}", "\x{30B0}\x{30FC}"));
 380 ok($objJa->lt("\x{3059}\x{30FC}", "\x{30B9}\x{30FC}"));
 381 ok($objJa->lt("\x{305A}\x{30FC}", "\x{30BA}\x{30FC}"));
 382 ok($objJa->lt("\x{3063}\x{30FC}", "\x{30C3}\x{30FC}"));
 383 ok($objJa->lt("\x{3064}\x{30FC}", "\x{30C4}\x{30FC}"));
 384 ok($objJa->lt("\x{3065}\x{30FC}", "\x{30C5}\x{30FC}"));
 385 ok($objJa->lt("\x{306C}\x{30FC}", "\x{30CC}\x{30FC}"));
 386 ok($objJa->lt("\x{3075}\x{30FC}", "\x{30D5}\x{30FC}"));
 387 ok($objJa->lt("\x{3076}\x{30FC}", "\x{30D6}\x{30FC}"));
 388 ok($objJa->lt("\x{3077}\x{30FC}", "\x{30D7}\x{30FC}"));
 389 ok($objJa->lt("\x{3080}\x{30FC}", "\x{30E0}\x{30FC}"));
 390 ok($objJa->lt("\x{3085}\x{30FC}", "\x{30E5}\x{30FC}"));
 391 ok($objJa->lt("\x{3086}\x{30FC}", "\x{30E6}\x{30FC}"));
 392 ok($objJa->lt("\x{308B}\x{30FC}", "\x{30EB}\x{30FC}"));
 393 ok($objJa->lt("\x{3094}\x{30FC}", "\x{30F4}\x{30FC}"));
 394 ok($objJa->lt("\x{3047}\x{30FC}", "\x{30A7}\x{30FC}"));
 395 ok($objJa->lt("\x{3048}\x{30FC}", "\x{30A8}\x{30FC}"));
 396 ok($objJa->lt("\x{3051}\x{30FC}", "\x{30B1}\x{30FC}"));
 397 ok($objJa->lt("\x{3052}\x{30FC}", "\x{30B2}\x{30FC}"));
 398 ok($objJa->lt("\x{305B}\x{30FC}", "\x{30BB}\x{30FC}"));
 399 ok($objJa->lt("\x{305C}\x{30FC}", "\x{30BC}\x{30FC}"));
 400 ok($objJa->lt("\x{3066}\x{30FC}", "\x{30C6}\x{30FC}"));
 401 ok($objJa->lt("\x{3067}\x{30FC}", "\x{30C7}\x{30FC}"));
 402 ok($objJa->lt("\x{306D}\x{30FC}", "\x{30CD}\x{30FC}"));
 403 ok($objJa->lt("\x{3078}\x{30FC}", "\x{30D8}\x{30FC}"));
 404 ok($objJa->lt("\x{3079}\x{30FC}", "\x{30D9}\x{30FC}"));
 405 ok($objJa->lt("\x{307A}\x{30FC}", "\x{30DA}\x{30FC}"));
 406 ok($objJa->lt("\x{3081}\x{30FC}", "\x{30E1}\x{30FC}"));
 407 ok($objJa->lt("\x{308C}\x{30FC}", "\x{30EC}\x{30FC}"));
 408 ok($objJa->lt("\x{3091}\x{30FC}", "\x{30F1}\x{30FC}"));
 409 ok($objJa->lt("\x{3096}\x{30FC}", "\x{30F6}\x{30FC}"));
 410 ok($objJa->lt("\x{3049}\x{30FC}", "\x{30A9}\x{30FC}"));
 411 ok($objJa->lt("\x{304A}\x{30FC}", "\x{30AA}\x{30FC}"));
 412 ok($objJa->lt("\x{3053}\x{30FC}", "\x{30B3}\x{30FC}"));
 413 ok($objJa->lt("\x{3054}\x{30FC}", "\x{30B4}\x{30FC}"));
 414 ok($objJa->lt("\x{305D}\x{30FC}", "\x{30BD}\x{30FC}"));
 415 ok($objJa->lt("\x{305E}\x{30FC}", "\x{30BE}\x{30FC}"));
 416 ok($objJa->lt("\x{3068}\x{30FC}", "\x{30C8}\x{30FC}"));
 417 ok($objJa->lt("\x{3069}\x{30FC}", "\x{30C9}\x{30FC}"));
 418 ok($objJa->lt("\x{306E}\x{30FC}", "\x{30CE}\x{30FC}"));
 419 ok($objJa->lt("\x{307B}\x{30FC}", "\x{30DB}\x{30FC}"));
 420 ok($objJa->lt("\x{307C}\x{30FC}", "\x{30DC}\x{30FC}"));
 421 ok($objJa->lt("\x{307D}\x{30FC}", "\x{30DD}\x{30FC}"));
 422 ok($objJa->lt("\x{3082}\x{30FC}", "\x{30E2}\x{30FC}"));
 423 ok($objJa->lt("\x{3087}\x{30FC}", "\x{30E7}\x{30FC}"));
 424 ok($objJa->lt("\x{3088}\x{30FC}", "\x{30E8}\x{30FC}"));
 425 ok($objJa->lt("\x{308D}\x{30FC}", "\x{30ED}\x{30FC}"));
 426 ok($objJa->lt("\x{3092}\x{30FC}", "\x{30F2}\x{30FC}"));
 427
 428 # 382
 429
 430 ok($objJa->eq("\x{30A1}\x{30FC}", "\x{FF67}\x{30FC}"));
 431 ok($objJa->eq("\x{30A1}\x{30FC}", "\x{FF67}\x{FF70}"));
 432 ok($objJa->eq("\x{30A2}\x{30FC}", "\x{FF71}\x{30FC}"));
 433 ok($objJa->eq("\x{30A2}\x{30FC}", "\x{FF71}\x{FF70}"));
 434 ok($objJa->eq("\x{30AB}\x{30FC}", "\x{FF76}\x{30FC}"));
 435 ok($objJa->eq("\x{30AB}\x{30FC}", "\x{FF76}\x{FF70}"));
 436 ok($objJa->eq("\x{30AC}\x{30FC}", "\x{30AB}\x{3099}\x{30FC}"));
 437 ok($objJa->eq("\x{30AC}\x{30FC}", "\x{FF76}\x{FF9E}\x{30FC}"));
 438 ok($objJa->eq("\x{30AC}\x{30FC}", "\x{FF76}\x{FF9E}\x{FF70}"));
 439 ok($objJa->eq("\x{304C}\x{30FC}", "\x{304B}\x{3099}\x{30FC}"));
 440 ok($objJa->eq("\x{30B5}\x{30FC}", "\x{FF7B}\x{30FC}"));
 441 ok($objJa->eq("\x{30B5}\x{30FC}", "\x{FF7B}\x{FF70}"));
 442 ok($objJa->eq("\x{30B6}\x{30FC}", "\x{30B5}\x{3099}\x{30FC}"));
 443 ok($objJa->eq("\x{30B6}\x{30FC}", "\x{FF7B}\x{FF9E}\x{30FC}"));
 444 ok($objJa->eq("\x{30B6}\x{30FC}", "\x{FF7B}\x{FF9E}\x{FF70}"));
 445 ok($objJa->eq("\x{3056}\x{30FC}", "\x{3055}\x{3099}\x{30FC}"));
 446 ok($objJa->eq("\x{30BF}\x{30FC}", "\x{FF80}\x{30FC}"));
 447 ok($objJa->eq("\x{30BF}\x{30FC}", "\x{FF80}\x{FF70}"));
 448 ok($objJa->eq("\x{30C0}\x{30FC}", "\x{30BF}\x{3099}\x{30FC}"));
 449 ok($objJa->eq("\x{30C0}\x{30FC}", "\x{FF80}\x{FF9E}\x{30FC}"));
 450 ok($objJa->eq("\x{30C0}\x{30FC}", "\x{FF80}\x{FF9E}\x{FF70}"));
 451 ok($objJa->eq("\x{3060}\x{30FC}", "\x{305F}\x{3099}\x{30FC}"));
 452 ok($objJa->eq("\x{30CA}\x{30FC}", "\x{FF85}\x{30FC}"));
 453 ok($objJa->eq("\x{30CA}\x{30FC}", "\x{FF85}\x{FF70}"));
 454 ok($objJa->eq("\x{30CF}\x{30FC}", "\x{FF8A}\x{30FC}"));
 455 ok($objJa->eq("\x{30CF}\x{30FC}", "\x{FF8A}\x{FF70}"));
 456 ok($objJa->eq("\x{30D0}\x{30FC}", "\x{30CF}\x{3099}\x{30FC}"));
 457 ok($objJa->eq("\x{30D0}\x{30FC}", "\x{FF8A}\x{FF9E}\x{30FC}"));
 458 ok($objJa->eq("\x{30D0}\x{30FC}", "\x{FF8A}\x{FF9E}\x{FF70}"));
 459 ok($objJa->eq("\x{3070}\x{30FC}", "\x{306F}\x{3099}\x{30FC}"));
 460 ok($objJa->eq("\x{30D1}\x{30FC}", "\x{30CF}\x{309A}\x{30FC}"));
 461 ok($objJa->eq("\x{30D1}\x{30FC}", "\x{FF8A}\x{FF9F}\x{30FC}"));
 462 ok($objJa->eq("\x{30D1}\x{30FC}", "\x{FF8A}\x{FF9F}\x{FF70}"));
 463 ok($objJa->eq("\x{3071}\x{30FC}", "\x{306F}\x{309A}\x{30FC}"));
 464 ok($objJa->eq("\x{30DE}\x{30FC}", "\x{FF8F}\x{30FC}"));
 465 ok($objJa->eq("\x{30DE}\x{30FC}", "\x{FF8F}\x{FF70}"));
 466 ok($objJa->eq("\x{30E3}\x{30FC}", "\x{FF6C}\x{30FC}"));
 467 ok($objJa->eq("\x{30E3}\x{30FC}", "\x{FF6C}\x{FF70}"));
 468 ok($objJa->eq("\x{30E4}\x{30FC}", "\x{FF94}\x{30FC}"));
 469 ok($objJa->eq("\x{30E4}\x{30FC}", "\x{FF94}\x{FF70}"));
 470 ok($objJa->eq("\x{30E9}\x{30FC}", "\x{FF97}\x{30FC}"));
 471 ok($objJa->eq("\x{30E9}\x{30FC}", "\x{FF97}\x{FF70}"));
 472 ok($objJa->eq("\x{30EF}\x{30FC}", "\x{FF9C}\x{30FC}"));
 473 ok($objJa->eq("\x{30EF}\x{30FC}", "\x{FF9C}\x{FF70}"));
 474 ok($objJa->eq("\x{30F7}\x{30FC}", "\x{30EF}\x{3099}\x{30FC}"));
 475 ok($objJa->eq("\x{30F7}\x{30FC}", "\x{FF9C}\x{FF9E}\x{30FC}"));
 476 ok($objJa->eq("\x{30F7}\x{30FC}", "\x{FF9C}\x{FF9E}\x{FF70}"));
 477 ok($objJa->eq("\x{30A3}\x{30FC}", "\x{FF68}\x{30FC}"));
 478 ok($objJa->eq("\x{30A3}\x{30FC}", "\x{FF68}\x{FF70}"));
 479 ok($objJa->eq("\x{30A4}\x{30FC}", "\x{FF72}\x{30FC}"));
 480 ok($objJa->eq("\x{30A4}\x{30FC}", "\x{FF72}\x{FF70}"));
 481 ok($objJa->eq("\x{30AD}\x{30FC}", "\x{FF77}\x{30FC}"));
 482 ok($objJa->eq("\x{30AD}\x{30FC}", "\x{FF77}\x{FF70}"));
 483 ok($objJa->eq("\x{30AE}\x{30FC}", "\x{30AD}\x{3099}\x{30FC}"));
 484 ok($objJa->eq("\x{30AE}\x{30FC}", "\x{FF77}\x{FF9E}\x{30FC}"));
 485 ok($objJa->eq("\x{30AE}\x{30FC}", "\x{FF77}\x{FF9E}\x{FF70}"));
 486 ok($objJa->eq("\x{304E}\x{30FC}", "\x{304D}\x{3099}\x{30FC}"));
 487 ok($objJa->eq("\x{30B7}\x{30FC}", "\x{FF7C}\x{30FC}"));
 488 ok($objJa->eq("\x{30B7}\x{30FC}", "\x{FF7C}\x{FF70}"));
 489 ok($objJa->eq("\x{30B8}\x{30FC}", "\x{30B7}\x{3099}\x{30FC}"));
 490 ok($objJa->eq("\x{30B8}\x{30FC}", "\x{FF7C}\x{FF9E}\x{30FC}"));
 491 ok($objJa->eq("\x{30B8}\x{30FC}", "\x{FF7C}\x{FF9E}\x{FF70}"));
 492 ok($objJa->eq("\x{3058}\x{30FC}", "\x{3057}\x{3099}\x{30FC}"));
 493 ok($objJa->eq("\x{30C1}\x{30FC}", "\x{FF81}\x{30FC}"));
 494 ok($objJa->eq("\x{30C1}\x{30FC}", "\x{FF81}\x{FF70}"));
 495 ok($objJa->eq("\x{30C2}\x{30FC}", "\x{30C1}\x{3099}\x{30FC}"));
 496 ok($objJa->eq("\x{30C2}\x{30FC}", "\x{FF81}\x{FF9E}\x{30FC}"));
 497 ok($objJa->eq("\x{30C2}\x{30FC}", "\x{FF81}\x{FF9E}\x{FF70}"));
 498 ok($objJa->eq("\x{3062}\x{30FC}", "\x{3061}\x{3099}\x{30FC}"));
 499 ok($objJa->eq("\x{30CB}\x{30FC}", "\x{FF86}\x{30FC}"));
 500 ok($objJa->eq("\x{30CB}\x{30FC}", "\x{FF86}\x{FF70}"));
 501 ok($objJa->eq("\x{30D2}\x{30FC}", "\x{FF8B}\x{30FC}"));
 502 ok($objJa->eq("\x{30D2}\x{30FC}", "\x{FF8B}\x{FF70}"));
 503 ok($objJa->eq("\x{30D3}\x{30FC}", "\x{30D2}\x{3099}\x{30FC}"));
 504 ok($objJa->eq("\x{30D3}\x{30FC}", "\x{FF8B}\x{FF9E}\x{30FC}"));
 505 ok($objJa->eq("\x{30D3}\x{30FC}", "\x{FF8B}\x{FF9E}\x{FF70}"));
 506 ok($objJa->eq("\x{3073}\x{30FC}", "\x{3072}\x{3099}\x{30FC}"));
 507 ok($objJa->eq("\x{30D4}\x{30FC}", "\x{30D2}\x{309A}\x{30FC}"));
 508 ok($objJa->eq("\x{30D4}\x{30FC}", "\x{FF8B}\x{FF9F}\x{30FC}"));
 509 ok($objJa->eq("\x{30D4}\x{30FC}", "\x{FF8B}\x{FF9F}\x{FF70}"));
 510 ok($objJa->eq("\x{3074}\x{30FC}", "\x{3072}\x{309A}\x{30FC}"));
 511 ok($objJa->eq("\x{30DF}\x{30FC}", "\x{FF90}\x{30FC}"));
 512 ok($objJa->eq("\x{30DF}\x{30FC}", "\x{FF90}\x{FF70}"));
 513 ok($objJa->eq("\x{30EA}\x{30FC}", "\x{FF98}\x{30FC}"));
 514 ok($objJa->eq("\x{30EA}\x{30FC}", "\x{FF98}\x{FF70}"));
 515 ok($objJa->eq("\x{30F8}\x{30FC}", "\x{30F0}\x{3099}\x{30FC}"));
 516 ok($objJa->eq("\x{30A5}\x{30FC}", "\x{FF69}\x{30FC}"));
 517 ok($objJa->eq("\x{30A5}\x{30FC}", "\x{FF69}\x{FF70}"));
 518 ok($objJa->eq("\x{30A6}\x{30FC}", "\x{FF73}\x{30FC}"));
 519 ok($objJa->eq("\x{30A6}\x{30FC}", "\x{FF73}\x{FF70}"));
 520 ok($objJa->eq("\x{30AF}\x{30FC}", "\x{FF78}\x{30FC}"));
 521 ok($objJa->eq("\x{30AF}\x{30FC}", "\x{FF78}\x{FF70}"));
 522 ok($objJa->eq("\x{30B0}\x{30FC}", "\x{30AF}\x{3099}\x{30FC}"));
 523 ok($objJa->eq("\x{30B0}\x{30FC}", "\x{FF78}\x{FF9E}\x{30FC}"));
 524 ok($objJa->eq("\x{30B0}\x{30FC}", "\x{FF78}\x{FF9E}\x{FF70}"));
 525 ok($objJa->eq("\x{3050}\x{30FC}", "\x{304F}\x{3099}\x{30FC}"));
 526 ok($objJa->eq("\x{30B9}\x{30FC}", "\x{FF7D}\x{30FC}"));
 527 ok($objJa->eq("\x{30B9}\x{30FC}", "\x{FF7D}\x{FF70}"));
 528 ok($objJa->eq("\x{30BA}\x{30FC}", "\x{30B9}\x{3099}\x{30FC}"));
 529 ok($objJa->eq("\x{30BA}\x{30FC}", "\x{FF7D}\x{FF9E}\x{30FC}"));
 530 ok($objJa->eq("\x{30BA}\x{30FC}", "\x{FF7D}\x{FF9E}\x{FF70}"));
 531 ok($objJa->eq("\x{305A}\x{30FC}", "\x{3059}\x{3099}\x{30FC}"));
 532 ok($objJa->eq("\x{30C3}\x{30FC}", "\x{FF6F}\x{30FC}"));
 533 ok($objJa->eq("\x{30C3}\x{30FC}", "\x{FF6F}\x{FF70}"));
 534 ok($objJa->eq("\x{30C4}\x{30FC}", "\x{FF82}\x{30FC}"));
 535 ok($objJa->eq("\x{30C4}\x{30FC}", "\x{FF82}\x{FF70}"));
 536 ok($objJa->eq("\x{30C5}\x{30FC}", "\x{30C4}\x{3099}\x{30FC}"));
 537 ok($objJa->eq("\x{30C5}\x{30FC}", "\x{FF82}\x{FF9E}\x{30FC}"));
 538 ok($objJa->eq("\x{30C5}\x{30FC}", "\x{FF82}\x{FF9E}\x{FF70}"));
 539 ok($objJa->eq("\x{3065}\x{30FC}", "\x{3064}\x{3099}\x{30FC}"));
 540 ok($objJa->eq("\x{30CC}\x{30FC}", "\x{FF87}\x{30FC}"));
 541 ok($objJa->eq("\x{30CC}\x{30FC}", "\x{FF87}\x{FF70}"));
 542 ok($objJa->eq("\x{30D5}\x{30FC}", "\x{FF8C}\x{30FC}"));
 543 ok($objJa->eq("\x{30D5}\x{30FC}", "\x{FF8C}\x{FF70}"));
 544 ok($objJa->eq("\x{30D6}\x{30FC}", "\x{30D5}\x{3099}\x{30FC}"));
 545 ok($objJa->eq("\x{30D6}\x{30FC}", "\x{FF8C}\x{FF9E}\x{30FC}"));
 546 ok($objJa->eq("\x{30D6}\x{30FC}", "\x{FF8C}\x{FF9E}\x{FF70}"));
 547 ok($objJa->eq("\x{3076}\x{30FC}", "\x{3075}\x{3099}\x{30FC}"));
 548 ok($objJa->eq("\x{30D7}\x{30FC}", "\x{30D5}\x{309A}\x{30FC}"));
 549 ok($objJa->eq("\x{30D7}\x{30FC}", "\x{FF8C}\x{FF9F}\x{30FC}"));
 550 ok($objJa->eq("\x{30D7}\x{30FC}", "\x{FF8C}\x{FF9F}\x{FF70}"));
 551 ok($objJa->eq("\x{3077}\x{30FC}", "\x{3075}\x{309A}\x{30FC}"));
 552 ok($objJa->eq("\x{30E0}\x{30FC}", "\x{FF91}\x{30FC}"));
 553 ok($objJa->eq("\x{30E0}\x{30FC}", "\x{FF91}\x{FF70}"));
 554 ok($objJa->eq("\x{30E5}\x{30FC}", "\x{FF6D}\x{30FC}"));
 555 ok($objJa->eq("\x{30E5}\x{30FC}", "\x{FF6D}\x{FF70}"));
 556 ok($objJa->eq("\x{30E6}\x{30FC}", "\x{FF95}\x{30FC}"));
 557 ok($objJa->eq("\x{30E6}\x{30FC}", "\x{FF95}\x{FF70}"));
 558 ok($objJa->eq("\x{30EB}\x{30FC}", "\x{FF99}\x{30FC}"));
 559 ok($objJa->eq("\x{30EB}\x{30FC}", "\x{FF99}\x{FF70}"));
 560 ok($objJa->eq("\x{30F4}\x{30FC}", "\x{30A6}\x{3099}\x{30FC}"));
 561 ok($objJa->eq("\x{30F4}\x{30FC}", "\x{FF73}\x{FF9E}\x{30FC}"));
 562 ok($objJa->eq("\x{30F4}\x{30FC}", "\x{FF73}\x{FF9E}\x{FF70}"));
 563 ok($objJa->eq("\x{3094}\x{30FC}", "\x{3046}\x{3099}\x{30FC}"));
 564 ok($objJa->eq("\x{30A7}\x{30FC}", "\x{FF6A}\x{30FC}"));
 565 ok($objJa->eq("\x{30A7}\x{30FC}", "\x{FF6A}\x{FF70}"));
 566 ok($objJa->eq("\x{30A8}\x{30FC}", "\x{FF74}\x{30FC}"));
 567 ok($objJa->eq("\x{30A8}\x{30FC}", "\x{FF74}\x{FF70}"));
 568 ok($objJa->eq("\x{30B1}\x{30FC}", "\x{FF79}\x{30FC}"));
 569 ok($objJa->eq("\x{30B1}\x{30FC}", "\x{FF79}\x{FF70}"));
 570 ok($objJa->eq("\x{30B2}\x{30FC}", "\x{30B1}\x{3099}\x{30FC}"));
 571 ok($objJa->eq("\x{30B2}\x{30FC}", "\x{FF79}\x{FF9E}\x{30FC}"));
 572 ok($objJa->eq("\x{30B2}\x{30FC}", "\x{FF79}\x{FF9E}\x{FF70}"));
 573 ok($objJa->eq("\x{3052}\x{30FC}", "\x{3051}\x{3099}\x{30FC}"));
 574 ok($objJa->eq("\x{30BB}\x{30FC}", "\x{FF7E}\x{30FC}"));
 575 ok($objJa->eq("\x{30BB}\x{30FC}", "\x{FF7E}\x{FF70}"));
 576 ok($objJa->eq("\x{30BC}\x{30FC}", "\x{30BB}\x{3099}\x{30FC}"));
 577 ok($objJa->eq("\x{30BC}\x{30FC}", "\x{FF7E}\x{FF9E}\x{30FC}"));
 578 ok($objJa->eq("\x{30BC}\x{30FC}", "\x{FF7E}\x{FF9E}\x{FF70}"));
 579 ok($objJa->eq("\x{305C}\x{30FC}", "\x{305B}\x{3099}\x{30FC}"));
 580 ok($objJa->eq("\x{30C6}\x{30FC}", "\x{FF83}\x{30FC}"));
 581 ok($objJa->eq("\x{30C6}\x{30FC}", "\x{FF83}\x{FF70}"));
 582 ok($objJa->eq("\x{30C7}\x{30FC}", "\x{30C6}\x{3099}\x{30FC}"));
 583 ok($objJa->eq("\x{30C7}\x{30FC}", "\x{FF83}\x{FF9E}\x{30FC}"));
 584 ok($objJa->eq("\x{30C7}\x{30FC}", "\x{FF83}\x{FF9E}\x{FF70}"));
 585 ok($objJa->eq("\x{3067}\x{30FC}", "\x{3066}\x{3099}\x{30FC}"));
 586 ok($objJa->eq("\x{30CD}\x{30FC}", "\x{FF88}\x{30FC}"));
 587 ok($objJa->eq("\x{30CD}\x{30FC}", "\x{FF88}\x{FF70}"));
 588 ok($objJa->eq("\x{30D8}\x{30FC}", "\x{FF8D}\x{30FC}"));
 589 ok($objJa->eq("\x{30D8}\x{30FC}", "\x{FF8D}\x{FF70}"));
 590 ok($objJa->eq("\x{30D9}\x{30FC}", "\x{30D8}\x{3099}\x{30FC}"));
 591 ok($objJa->eq("\x{30D9}\x{30FC}", "\x{FF8D}\x{FF9E}\x{30FC}"));
 592 ok($objJa->eq("\x{30D9}\x{30FC}", "\x{FF8D}\x{FF9E}\x{FF70}"));
 593 ok($objJa->eq("\x{3079}\x{30FC}", "\x{3078}\x{3099}\x{30FC}"));
 594 ok($objJa->eq("\x{30DA}\x{30FC}", "\x{30D8}\x{309A}\x{30FC}"));
 595 ok($objJa->eq("\x{30DA}\x{30FC}", "\x{FF8D}\x{FF9F}\x{30FC}"));
 596 ok($objJa->eq("\x{30DA}\x{30FC}", "\x{FF8D}\x{FF9F}\x{FF70}"));
 597 ok($objJa->eq("\x{307A}\x{30FC}", "\x{3078}\x{309A}\x{30FC}"));
 598 ok($objJa->eq("\x{30E1}\x{30FC}", "\x{FF92}\x{30FC}"));
 599 ok($objJa->eq("\x{30E1}\x{30FC}", "\x{FF92}\x{FF70}"));
 600 ok($objJa->eq("\x{30EC}\x{30FC}", "\x{FF9A}\x{30FC}"));
 601 ok($objJa->eq("\x{30EC}\x{30FC}", "\x{FF9A}\x{FF70}"));
 602 ok($objJa->eq("\x{30F9}\x{30FC}", "\x{30F1}\x{3099}\x{30FC}"));
 603 ok($objJa->eq("\x{30A9}\x{30FC}", "\x{FF6B}\x{30FC}"));
 604 ok($objJa->eq("\x{30A9}\x{30FC}", "\x{FF6B}\x{FF70}"));
 605 ok($objJa->eq("\x{30AA}\x{30FC}", "\x{FF75}\x{30FC}"));
 606 ok($objJa->eq("\x{30AA}\x{30FC}", "\x{FF75}\x{FF70}"));
 607 ok($objJa->eq("\x{30B3}\x{30FC}", "\x{FF7A}\x{30FC}"));
 608 ok($objJa->eq("\x{30B3}\x{30FC}", "\x{FF7A}\x{FF70}"));
 609 ok($objJa->eq("\x{30B4}\x{30FC}", "\x{30B3}\x{3099}\x{30FC}"));
 610 ok($objJa->eq("\x{30B4}\x{30FC}", "\x{FF7A}\x{FF9E}\x{30FC}"));
 611 ok($objJa->eq("\x{30B4}\x{30FC}", "\x{FF7A}\x{FF9E}\x{FF70}"));
 612 ok($objJa->eq("\x{3054}\x{30FC}", "\x{3053}\x{3099}\x{30FC}"));
 613 ok($objJa->eq("\x{30BD}\x{30FC}", "\x{FF7F}\x{30FC}"));
 614 ok($objJa->eq("\x{30BD}\x{30FC}", "\x{FF7F}\x{FF70}"));
 615 ok($objJa->eq("\x{30BE}\x{30FC}", "\x{30BD}\x{3099}\x{30FC}"));
 616 ok($objJa->eq("\x{30BE}\x{30FC}", "\x{FF7F}\x{FF9E}\x{30FC}"));
 617 ok($objJa->eq("\x{30BE}\x{30FC}", "\x{FF7F}\x{FF9E}\x{FF70}"));
 618 ok($objJa->eq("\x{305E}\x{30FC}", "\x{305D}\x{3099}\x{30FC}"));
 619 ok($objJa->eq("\x{30C8}\x{30FC}", "\x{FF84}\x{30FC}"));
 620 ok($objJa->eq("\x{30C8}\x{30FC}", "\x{FF84}\x{FF70}"));
 621 ok($objJa->eq("\x{30C9}\x{30FC}", "\x{30C8}\x{3099}\x{30FC}"));
 622 ok($objJa->eq("\x{30C9}\x{30FC}", "\x{FF84}\x{FF9E}\x{30FC}"));
 623 ok($objJa->eq("\x{30C9}\x{30FC}", "\x{FF84}\x{FF9E}\x{FF70}"));
 624 ok($objJa->eq("\x{3069}\x{30FC}", "\x{3068}\x{3099}\x{30FC}"));
 625 ok($objJa->eq("\x{30CE}\x{30FC}", "\x{FF89}\x{30FC}"));
 626 ok($objJa->eq("\x{30CE}\x{30FC}", "\x{FF89}\x{FF70}"));
 627 ok($objJa->eq("\x{30DB}\x{30FC}", "\x{FF8E}\x{30FC}"));
 628 ok($objJa->eq("\x{30DB}\x{30FC}", "\x{FF8E}\x{FF70}"));
 629 ok($objJa->eq("\x{30DC}\x{30FC}", "\x{30DB}\x{3099}\x{30FC}"));
 630 ok($objJa->eq("\x{30DC}\x{30FC}", "\x{FF8E}\x{FF9E}\x{30FC}"));
 631 ok($objJa->eq("\x{30DC}\x{30FC}", "\x{FF8E}\x{FF9E}\x{FF70}"));
 632 ok($objJa->eq("\x{307C}\x{30FC}", "\x{307B}\x{3099}\x{30FC}"));
 633 ok($objJa->eq("\x{30DD}\x{30FC}", "\x{30DB}\x{309A}\x{30FC}"));
 634 ok($objJa->eq("\x{30DD}\x{30FC}", "\x{FF8E}\x{FF9F}\x{30FC}"));
 635 ok($objJa->eq("\x{30DD}\x{30FC}", "\x{FF8E}\x{FF9F}\x{FF70}"));
 636 ok($objJa->eq("\x{307D}\x{30FC}", "\x{307B}\x{309A}\x{30FC}"));
 637 ok($objJa->eq("\x{30E2}\x{30FC}", "\x{FF93}\x{30FC}"));
 638 ok($objJa->eq("\x{30E2}\x{30FC}", "\x{FF93}\x{FF70}"));
 639 ok($objJa->eq("\x{30E7}\x{30FC}", "\x{FF6E}\x{30FC}"));
 640 ok($objJa->eq("\x{30E7}\x{30FC}", "\x{FF6E}\x{FF70}"));
 641 ok($objJa->eq("\x{30E8}\x{30FC}", "\x{FF96}\x{30FC}"));
 642 ok($objJa->eq("\x{30E8}\x{30FC}", "\x{FF96}\x{FF70}"));
 643 ok($objJa->eq("\x{30ED}\x{30FC}", "\x{FF9B}\x{30FC}"));
 644 ok($objJa->eq("\x{30ED}\x{30FC}", "\x{FF9B}\x{FF70}"));
 645 ok($objJa->eq("\x{30F2}\x{30FC}", "\x{FF66}\x{30FC}"));
 646 ok($objJa->eq("\x{30F2}\x{30FC}", "\x{FF66}\x{FF70}"));
 647 ok($objJa->eq("\x{30FA}\x{30FC}", "\x{30F2}\x{3099}\x{30FC}"));
 648 ok($objJa->eq("\x{30FA}\x{30FC}", "\x{FF66}\x{FF9E}\x{30FC}"));
 649 ok($objJa->eq("\x{30FA}\x{30FC}", "\x{FF66}\x{FF9E}\x{FF70}"));
 650
 651 # 602