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