triptest
・VIP Service/0ch+系対応
@@ -11,6 +11,8 @@ | ||
11 | 11 | 'tsGpSwX8mo', |
12 | 12 | 'tsGpSwX8mo', |
13 | 13 | 'tsGpSwX8mo', |
14 | + 'tsGpSwX8mo', | |
15 | + 'tsGpSwX8mo', | |
14 | 16 | ); |
15 | 17 | test('12345678', |
16 | 18 | 'WBRXcNtpf.', |
@@ -18,6 +20,8 @@ | ||
18 | 20 | 'WBRXcNtpf.', |
19 | 21 | 'WBRXcNtpf.', |
20 | 22 | 'WBRXcNtpf.', |
23 | + 'WBRXcNtpf.', | |
24 | + 'WBRXcNtpf.', | |
21 | 25 | ); |
22 | 26 | test('ア23エオカキク', |
23 | 27 | 'WBRXcNtpf.', |
@@ -25,6 +29,8 @@ | ||
25 | 29 | 'WBRXcNtpf.', |
26 | 30 | 'XrlOBrDwyU', |
27 | 31 | 'WBRXcNtpf.', |
32 | + 'WBRXcNtpf.', | |
33 | + 'WBRXcNtpf.', | |
28 | 34 | ); |
29 | 35 | test('アイウエオカキク', |
30 | 36 | 'XlUiP8mHCU', |
@@ -32,6 +38,8 @@ | ||
32 | 38 | 'XlUiP8mHCU', |
33 | 39 | 'xmvISdVBK2', |
34 | 40 | 'XlUiP8mHCU', |
41 | + 'XlUiP8mHCU', | |
42 | + 'XlUiP8mHCU', | |
35 | 43 | ); |
36 | 44 | test('kami', |
37 | 45 | 'yGAhoNiShI', |
@@ -39,6 +47,8 @@ | ||
39 | 47 | 'yGAhoNiShI', |
40 | 48 | 'eRrBb7O29A', |
41 | 49 | 'yGAhoNiShI', |
50 | + 'yGAhoNiShI', | |
51 | + 'yGAhoNiShI', | |
42 | 52 | ); |
43 | 53 | test('#828b8281828d8289', |
44 | 54 | 'yGAhoNiShI', |
@@ -46,6 +56,8 @@ | ||
46 | 56 | 'yGAhoNiShI', |
47 | 57 | 'NXUZ00CMW6', |
48 | 58 | 'NXUZ00CMW6', |
59 | + 'yGAhoNiShI', | |
60 | + 'yGAhoNiShI', | |
49 | 61 | ); |
50 | 62 | test('#828b8281828d8289.', |
51 | 63 | 'yGAhoNiShI', |
@@ -53,6 +65,8 @@ | ||
53 | 65 | 'yGAhoNiShI', |
54 | 66 | 'NXUZ00CMW6', |
55 | 67 | 'NXUZ00CMW6', |
68 | + 'yGAhoNiShI', | |
69 | + 'yGAhoNiShI', | |
56 | 70 | ); |
57 | 71 | test('#828b8281828d8289..', |
58 | 72 | 'yGAhoNiShI', |
@@ -60,6 +74,8 @@ | ||
60 | 74 | 'yGAhoNiShI', |
61 | 75 | 'NXUZ00CMW6', |
62 | 76 | 'NXUZ00CMW6', |
77 | + 'yGAhoNiShI', | |
78 | + 'yGAhoNiShI', | |
63 | 79 | ); |
64 | 80 | test('騨レNWKJ諤', |
65 | 81 | 'YYYYYYYYYY', |
@@ -67,6 +83,8 @@ | ||
67 | 83 | 'YYYYYYYYYY', |
68 | 84 | 'lOOFR1xhP.', |
69 | 85 | 'YYYYYYYYYY', |
86 | + 'YYYYYYYYYY', | |
87 | + 'YYYYYYYYYY', | |
70 | 88 | ); |
71 | 89 | test('#3132333435363738', |
72 | 90 | 'XlUiP8mHCU', |
@@ -74,6 +92,8 @@ | ||
74 | 92 | 'XlUiP8mHCU', |
75 | 93 | 'ULUFJt9VDM', |
76 | 94 | 'ULUFJt9VDM', |
95 | + 'XlUiP8mHCU', | |
96 | + 'XlUiP8mHCU', | |
77 | 97 | ); |
78 | 98 | test('#31323334353637382', |
79 | 99 | '1tWQFkUcLU', |
@@ -81,6 +101,8 @@ | ||
81 | 101 | '1tWQFkUcLU', |
82 | 102 | 'ULUFJt9VDM', |
83 | 103 | 'ULUFJt9VDM', |
104 | + '1tWQFkUcLU', | |
105 | + '1tWQFkUcLU', | |
84 | 106 | ); |
85 | 107 | test('#313233343536373823', |
86 | 108 | 'WBRXcNtpf.', |
@@ -88,6 +110,8 @@ | ||
88 | 110 | 'WBRXcNtpf.', |
89 | 111 | 'ULUFJt9VDM', |
90 | 112 | 'ULUFJt9VDM', |
113 | + 'WBRXcNtpf.', | |
114 | + 'WBRXcNtpf.', | |
91 | 115 | ); |
92 | 116 | test('#3100000000000000H.', |
93 | 117 | 'tsGpSwX8mo', |
@@ -95,6 +119,8 @@ | ||
95 | 119 | 'tsGpSwX8mo', |
96 | 120 | '6O5ptllf5k', |
97 | 121 | '6O5ptllf5k', |
122 | + 'tsGpSwX8mo', | |
123 | + 'tsGpSwX8mo', | |
98 | 124 | ); |
99 | 125 | test('123456789', |
100 | 126 | 'WBRXcNtpf.', |
@@ -102,6 +128,8 @@ | ||
102 | 128 | 'WBRXcNtpf.', |
103 | 129 | 'WBRXcNtpf.', |
104 | 130 | 'WBRXcNtpf.', |
131 | + 'WBRXcNtpf.', | |
132 | + 'WBRXcNtpf.', | |
105 | 133 | ); |
106 | 134 | test('1234567890', |
107 | 135 | 'WBRXcNtpf.', |
@@ -109,6 +137,8 @@ | ||
109 | 137 | 'WBRXcNtpf.', |
110 | 138 | 'WBRXcNtpf.', |
111 | 139 | 'WBRXcNtpf.', |
140 | + 'WBRXcNtpf.', | |
141 | + 'WBRXcNtpf.', | |
112 | 142 | ); |
113 | 143 | test('12345678901', |
114 | 144 | 'WBRXcNtpf.', |
@@ -116,6 +146,8 @@ | ||
116 | 146 | 'WBRXcNtpf.', |
117 | 147 | 'WBRXcNtpf.', |
118 | 148 | 'WBRXcNtpf.', |
149 | + 'WBRXcNtpf.', | |
150 | + 'WBRXcNtpf.', | |
119 | 151 | ); |
120 | 152 | test('123456789012', |
121 | 153 | 'jZk8zfYo4m4X', |
@@ -123,6 +155,8 @@ | ||
123 | 155 | 'jZk8zfYo4m4X', |
124 | 156 | 'WBRXcNtpf.', |
125 | 157 | 'WBRXcNtpf.', |
158 | + 'jZk8zfYo4m4X', | |
159 | + 'jZk8zfYo4m4X', | |
126 | 160 | ); |
127 | 161 | test('1234567890123', |
128 | 162 | 'CNfebL9sP6Ci', |
@@ -130,6 +164,8 @@ | ||
130 | 164 | 'CNfebL9sP6Ci', |
131 | 165 | 'WBRXcNtpf.', |
132 | 166 | 'WBRXcNtpf.', |
167 | + 'CNfebL9sP6Ci', | |
168 | + 'CNfebL9sP6Ci', | |
133 | 169 | ); |
134 | 170 | test('あいうえおか', |
135 | 171 | 'N0mUb9Yq8DyS', |
@@ -137,6 +173,8 @@ | ||
137 | 173 | 'N0mUb9Yq8DyS', |
138 | 174 | 'hhorpR4oiM', |
139 | 175 | 'AU/OjWxByc', |
176 | + 'N0mUb9Yq8DyS', | |
177 | + 'N0mUb9Yq8DyS', | |
140 | 178 | ); |
141 | 179 | test('$2345678901', |
142 | 180 | 'BaNAE36vrg', |
@@ -144,6 +182,8 @@ | ||
144 | 182 | 'BaNAE36vrg', |
145 | 183 | 'BaNAE36vrg', |
146 | 184 | 'BaNAE36vrg', |
185 | + 'BaNAE36vrg', | |
186 | + 'BaNAE36vrg', | |
147 | 187 | ); |
148 | 188 | test('$23456789012', |
149 | 189 | '???', |
@@ -151,6 +191,8 @@ | ||
151 | 191 | '???', |
152 | 192 | 'BaNAE36vrg', |
153 | 193 | 'BaNAE36vrg', |
194 | + '???', | |
195 | + '???', | |
154 | 196 | ); |
155 | 197 | test('$..........2', |
156 | 198 | '???', |
@@ -158,6 +200,8 @@ | ||
158 | 200 | '???', |
159 | 201 | 'bwOnxXJup.', |
160 | 202 | 'bwOnxXJup.', |
203 | + '???', | |
204 | + '???', | |
161 | 205 | ); |
162 | 206 | test('$。3456789012', |
163 | 207 | '???', |
@@ -165,6 +209,8 @@ | ||
165 | 209 | '???', |
166 | 210 | '3A/Hqpzc9c', |
167 | 211 | 'RhQIlLvzs6', |
212 | + '???', | |
213 | + '???', | |
168 | 214 | ); |
169 | 215 | test('$。1008343131', |
170 | 216 | '???', |
@@ -172,6 +218,8 @@ | ||
172 | 218 | '???', |
173 | 219 | 'hkjDnZZGPM', |
174 | 220 | 'lEjCdVtEDo', |
221 | + '???', | |
222 | + '???', | |
175 | 223 | ); |
176 | 224 | test('$アイウエオアイウエオアイウエオ', |
177 | 225 | '???', |
@@ -179,6 +227,8 @@ | ||
179 | 227 | '???', |
180 | 228 | 'OS8Cx1YIIk', |
181 | 229 | 'Nxf9REt3eA', |
230 | + '???', | |
231 | + '???', | |
182 | 232 | ); |
183 | 233 | test('#23456789012', |
184 | 234 | '???', |
@@ -186,6 +236,8 @@ | ||
186 | 236 | '???', |
187 | 237 | 'y3.ScW8dbE', |
188 | 238 | 'y3.ScW8dbE', |
239 | + '???', | |
240 | + '???', | |
189 | 241 | ); |
190 | 242 | test('#1234567890123456..abc', |
191 | 243 | '???', |
@@ -193,6 +245,8 @@ | ||
193 | 245 | '???', |
194 | 246 | 'Oi/x1UMuw.', |
195 | 247 | 'Oi/x1UMuw.', |
248 | + '???', | |
249 | + '???', | |
196 | 250 | ); |
197 | 251 | test('ホムホム', |
198 | 252 | 'QD4TDVpNOM', |
@@ -200,6 +254,8 @@ | ||
200 | 254 | 'L809q.Wvdk', |
201 | 255 | 'C93qWoB2hg', |
202 | 256 | 'L809q.Wvdk', |
257 | + 'L809q.Wvdk', | |
258 | + 'QD4TDVpNOM', | |
203 | 259 | ); |
204 | 260 | test('#837a8380837a8380z.', |
205 | 261 | 'QD4TDVpNOM', |
@@ -207,6 +263,8 @@ | ||
207 | 263 | 'L809q.Wvdk', |
208 | 264 | 'RzVraEhVVs', |
209 | 265 | 'RzVraEhVVs', |
266 | + 'L809q.Wvdk', | |
267 | + 'QD4TDVpNOM', | |
210 | 268 | ); |
211 | 269 | test('◆●★', |
212 | 270 | 'dTHrbNrOw.', |
@@ -214,6 +272,8 @@ | ||
214 | 272 | 'RNM4OlZz7s', |
215 | 273 | 'yNZt80OfCs', |
216 | 274 | 'YZQgr.7WNI', |
275 | + 'dTHrbNrOw.', | |
276 | + 'dTHrbNrOw.', | |
217 | 277 | ); |
218 | 278 | test('■▲▼', |
219 | 279 | 'GExJOqup6A', |
@@ -221,6 +281,8 @@ | ||
221 | 281 | 'MOZcYuJkdU', |
222 | 282 | 'qkC5YKQWyg', |
223 | 283 | 'GExJOqup6A', |
284 | + 'GExJOqup6A', | |
285 | + 'GExJOqup6A', | |
224 | 286 | ); |
225 | 287 | test('◆★', |
226 | 288 | '9hhQmDPmK2', |
@@ -228,6 +290,8 @@ | ||
228 | 290 | 'DVlEzgbdkE', |
229 | 291 | 'pF26cWkf/Q', |
230 | 292 | 'wJ5itNiesE', |
293 | + '9hhQmDPmK2', | |
294 | + '9hhQmDPmK2', | |
231 | 295 | ); |
232 | 296 | test('<>"&', |
233 | 297 | 'f0abm3NbDw', |
@@ -235,6 +299,8 @@ | ||
235 | 299 | '7gGRCKani97t', |
236 | 300 | 'Gw/f5wZwNg', |
237 | 301 | 'Gw/f5wZwNg', |
302 | + '7gGRCKani97t', | |
303 | + 'f0abm3NbDw', | |
238 | 304 | ); |
239 | 305 | test('<>', |
240 | 306 | '3wNccY4njg', |
@@ -242,6 +308,8 @@ | ||
242 | 308 | 'Gw/f5wZwNg', |
243 | 309 | 'Gw/f5wZwNg', |
244 | 310 | 'Gw/f5wZwNg', |
311 | + 'Gw/f5wZwNg', | |
312 | + '3wNccY4njg', | |
245 | 313 | ); |
246 | 314 | test('"', |
247 | 315 | '4eqVTkonjE', |
@@ -249,6 +317,8 @@ | ||
249 | 317 | 'gt1azVccY2', |
250 | 318 | 'gt1azVccY2', |
251 | 319 | 'gt1azVccY2', |
320 | + 'gt1azVccY2', | |
321 | + '4eqVTkonjE', | |
252 | 322 | ); |
253 | 323 | test("'", |
254 | 324 | '8/08awL.AE', |
@@ -256,6 +326,8 @@ | ||
256 | 326 | 'HA0pkXpKB6', |
257 | 327 | 'UtX4XpdDog', |
258 | 328 | '8/08awL.AE', |
329 | + 'HA0pkXpKB6', | |
330 | + '8/08awL.AE', | |
259 | 331 | ); |
260 | 332 | test("&", |
261 | 333 | '2r2Ga7GHRc', |
@@ -263,6 +335,8 @@ | ||
263 | 335 | '2r2Ga7GHRc', |
264 | 336 | 'MhCJJ7GVT.', |
265 | 337 | '2r2Ga7GHRc', |
338 | + '2r2Ga7GHRc', | |
339 | + '2r2Ga7GHRc', | |
266 | 340 | ); |
267 | 341 | test('1234567&', |
268 | 342 | 'q3.yfaIC5s', |
@@ -270,6 +344,8 @@ | ||
270 | 344 | 'q3.yfaIC5s', |
271 | 345 | 'q3.yfaIC5s', |
272 | 346 | 'q3.yfaIC5s', |
347 | + 'q3.yfaIC5s', | |
348 | + 'q3.yfaIC5s', | |
273 | 349 | ); |
274 | 350 | test('1234567"', |
275 | 351 | '4qJVtuc8yc', |
@@ -277,6 +353,8 @@ | ||
277 | 353 | 'DWQ0QMJveuYp', |
278 | 354 | 'q3.yfaIC5s', |
279 | 355 | 'q3.yfaIC5s', |
356 | + 'DWQ0QMJveuYp', | |
357 | + '4qJVtuc8yc', | |
280 | 358 | ); |
281 | 359 | test('#', |
282 | 360 | 'u2YjtUz8MU', |
@@ -284,6 +362,8 @@ | ||
284 | 362 | 'e57oZ1fb1o', |
285 | 363 | 'By6DvOdjOA', |
286 | 364 | 'u2YjtUz8MU', |
365 | + 'e57oZ1fb1o', | |
366 | + 'u2YjtUz8MU', | |
287 | 367 | ); |
288 | 368 | test(' #', |
289 | 369 | '68NHrw0u9M', |
@@ -291,6 +371,8 @@ | ||
291 | 371 | 'PlnfWZhzek', |
292 | 372 | '.Agbc1OR8c', |
293 | 373 | '68NHrw0u9M', |
374 | + 'PlnfWZhzek', | |
375 | + '68NHrw0u9M', | |
294 | 376 | ); |
295 | 377 | test('##', |
296 | 378 | 'xSK1SiC5MI', |
@@ -298,6 +380,8 @@ | ||
298 | 380 | 'dn4m8J5vno', |
299 | 381 | '8SjNjRYO8U', |
300 | 382 | 'xSK1SiC5MI', |
383 | + 'dn4m8J5vno', | |
384 | + '48cw0iifQw', | |
301 | 385 | ); |
302 | 386 | test('=煤#', |
303 | 387 | '0ZaZ6Ph9YM', |
@@ -305,6 +389,8 @@ | ||
305 | 389 | 'pnkCIOJmhY', |
306 | 390 | 'u/UThijc9k', |
307 | 391 | '0ZaZ6Ph9YM', |
392 | + 'pnkCIOJmhY', | |
393 | + '0ZaZ6Ph9YM', | |
308 | 394 | ); |
309 | 395 | test('123456789012#', |
310 | 396 | 'RITzbxS2I3J9', |
@@ -312,6 +398,8 @@ | ||
312 | 398 | '.sf3a0vVPg6Q', |
313 | 399 | 'WBRXcNtpf.', |
314 | 400 | 'WBRXcNtpf.', |
401 | + '.sf3a0vVPg6Q', | |
402 | + 'RITzbxS2I3J9', | |
315 | 403 | ); |
316 | 404 | test('1234567890#', |
317 | 405 | 'WBRXcNtpf.', |
@@ -319,6 +407,8 @@ | ||
319 | 407 | 'VIJJSV7/Fqfl', |
320 | 408 | 'WBRXcNtpf.', |
321 | 409 | 'WBRXcNtpf.', |
410 | + 'VIJJSV7/Fqfl', | |
411 | + 'WBRXcNtpf.', | |
322 | 412 | ); |
323 | 413 | test('#3456789012', |
324 | 414 | 'lg6Q/4u.i.', |
@@ -326,6 +416,8 @@ | ||
326 | 416 | 'fbYpKBXnp7Oj', |
327 | 417 | 'p2nGyNlkqo', |
328 | 418 | 'lg6Q/4u.i.', |
419 | + 'fbYpKBXnp7Oj', | |
420 | + 'lg6Q/4u.i.', | |
329 | 421 | ); |
330 | 422 | test('#31318194313100001.', |
331 | 423 | '7ZE59iVq1I', |
@@ -333,6 +425,8 @@ | ||
333 | 425 | 'f9AYGqFM9G6T', |
334 | 426 | 'wHuJ.Rjqa2', |
335 | 427 | 'JFUJu00dRM', |
428 | + 'f9AYGqFM9G6T', | |
429 | + '7ZE59iVq1I', | |
336 | 430 | ); |
337 | 431 | test('=噤=氈', |
338 | 432 | 'Pcn5KeK8IQ', |
@@ -340,6 +434,8 @@ | ||
340 | 434 | 'Pcn5KeK8IQ', |
341 | 435 | 'cZaFShsneI', |
342 | 436 | 'Pcn5KeK8IQ', |
437 | + 'Pcn5KeK8IQ', | |
438 | + 'Pcn5KeK8IQ', | |
343 | 439 | ); |
344 | 440 | test('fusianasan', |
345 | 441 | 'M2TLe2H2No', |
@@ -347,6 +443,8 @@ | ||
347 | 443 | 'M2TLe2H2No', |
348 | 444 | 'M2TLe2H2No', |
349 | 445 | 'M2TLe2H2No', |
446 | + 'M2TLe2H2No', | |
447 | + 'M2TLe2H2No', | |
350 | 448 | ); |
351 | 449 | test('①Ⅰ㍉㈱', |
352 | 450 | 'Az6yZqa0I2', |
@@ -354,6 +452,8 @@ | ||
354 | 452 | 'Vyfxi/dpqw', |
355 | 453 | 'e3LOKfsWv2', |
356 | 454 | 'Az6yZqa0I2', |
455 | + 'Az6yZqa0I2', | |
456 | + 'Az6yZqa0I2', | |
357 | 457 | ); |
358 | 458 | test('~', |
359 | 459 | 'Fg7tQabTMc', |
@@ -361,6 +461,8 @@ | ||
361 | 461 | 'cPUZU5OGFs', |
362 | 462 | '2nUHWotKCQ', |
363 | 463 | 'Fg7tQabTMc', |
464 | + 'Fg7tQabTMc', | |
465 | + 'Fg7tQabTMc', | |
364 | 466 | ); |
365 | 467 | test('一一', |
366 | 468 | 'b3B4i2sLpY', |
@@ -368,6 +470,8 @@ | ||
368 | 470 | 'b3B4i2sLpY', |
369 | 471 | 'VAhc1fHCZ2', |
370 | 472 | 'b3B4i2sLpY', |
473 | + 'b3B4i2sLpY', | |
474 | + 'b3B4i2sLpY', | |
371 | 475 | ); |
372 | 476 | test('0 !', |
373 | 477 | 'ZIJx7G/pyg', |
@@ -375,6 +479,8 @@ | ||
375 | 479 | 'ZIJx7G/pyg', |
376 | 480 | 'JB1xkjXQ86', |
377 | 481 | 'ZIJx7G/pyg', |
482 | + 'ZIJx7G/pyg', | |
483 | + 'ZIJx7G/pyg', | |
378 | 484 | ); |
379 | 485 | test('0-:', |
380 | 486 | 'NE0mkZ2TpI', |
@@ -382,6 +488,8 @@ | ||
382 | 488 | 'NE0mkZ2TpI', |
383 | 489 | 'tHGdgYtE5Y', |
384 | 490 | 'NE0mkZ2TpI', |
491 | + 'NE0mkZ2TpI', | |
492 | + 'NE0mkZ2TpI', | |
385 | 493 | ); |
386 | 494 | test('0@[', |
387 | 495 | 'gkmryCvLz6', |
@@ -389,6 +497,8 @@ | ||
389 | 497 | 'gkmryCvLz6', |
390 | 498 | 'gkmryCvLz6', |
391 | 499 | 'gkmryCvLz6', |
500 | + 'gkmryCvLz6', | |
501 | + 'gkmryCvLz6', | |
392 | 502 | ); |
393 | 503 | test('0`{', |
394 | 504 | 'WtDsB59Wrk', |
@@ -396,6 +506,8 @@ | ||
396 | 506 | 'WtDsB59Wrk', |
397 | 507 | 'WtDsB59Wrk', |
398 | 508 | 'WtDsB59Wrk', |
509 | + 'WtDsB59Wrk', | |
510 | + 'WtDsB59Wrk', | |
399 | 511 | ); |
400 | 512 | test('0|}', |
401 | 513 | 'M6kra150Vk', |
@@ -403,6 +515,8 @@ | ||
403 | 515 | 'M6kra150Vk', |
404 | 516 | 'M6kra150Vk', |
405 | 517 | 'M6kra150Vk', |
518 | + 'M6kra150Vk', | |
519 | + 'M6kra150Vk', | |
406 | 520 | ); |
407 | 521 | test("0\x090", |
408 | 522 | 'sXoB65CSvY', |
@@ -410,24 +524,24 @@ | ||
410 | 524 | '/lQMO72QVo', |
411 | 525 | 'sXoB65CSvY', |
412 | 526 | 'OeKveLL.YQ', |
527 | + 'sXoB65CSvY', | |
528 | + 'sXoB65CSvY', | |
413 | 529 | ); |
414 | 530 | } |
415 | 531 | |
416 | 532 | sub test { |
417 | - my ($key, $tripnet, $tripsc, $tripopen, $tripnext, $tripstrb) = @_; | |
418 | - my ($tripnet_, undef, undef, undef, undef) = trip($key, 'net'); | |
419 | - my ($tripsc_, undef, undef, undef, undef) = trip($key, 'sc'); | |
420 | - my ($tripopen_, undef, undef, undef, undef) = trip($key, 'open'); | |
421 | - my ($tripnext_, undef, undef, undef, undef) = trip($key, 'next'); | |
422 | - my ($tripstrb_, undef, undef, undef, undef) = trip($key, 'strb'); | |
423 | - if ($tripnet_ eq $tripnet && $tripsc_ eq $tripsc && | |
424 | - $tripopen_ eq $tripopen && $tripnext_ eq $tripnext && $tripstrb_ eq $tripstrb) { | |
425 | - #print "key #$key\n"; | |
426 | - #print " ...ok\n"; | |
427 | - } else { | |
533 | + my ($key, @expects) = @_; | |
534 | + my @modes = qw(net sc open next strb vips 0chp); | |
535 | + my @results = (); | |
536 | + for my $i (0 .. $#modes) { | |
537 | + my ($result, undef, undef, undef, undef) = trip($key, $modes[$i]); | |
538 | + $results[$i] = $result; | |
539 | + if ($results[$i] ne $expects[$i]) { | |
428 | 540 | print "key #$key\n"; |
429 | - print " result net:$tripnet_ sc:$tripsc_ open:$tripopen_ next:$tripnext_ strb:$tripstrb_\n"; | |
430 | - print " expect net:$tripnet sc:$tripsc open:$tripopen next:$tripnext strb:$tripstrb\n"; | |
541 | + print " mode $modes[$i]\n"; | |
542 | + print " result $results[$i]\n"; | |
543 | + print " expect $expects[$i]\n"; | |
544 | + } | |
431 | 545 | } |
432 | 546 | } |
433 | 547 |