diff --git t/op/inf_nan.t t/op/inf_nan.t
index e31db51..4a94d7d 100644
|
|
|
234 | 234 | $N0 = 'Inf' |
235 | 235 | #$N1 = cot $N0 |
236 | 236 | #is($N1, 'NaN', 'cot: cot Inf') |
237 | | todo(0, 'cot Inf', 'cot/coth/acot not implemented for real numbers') |
| 237 | skip(1, 'cot/coth/acot not implemented for real numbers') |
238 | 238 | $N0 = '-Inf' |
239 | 239 | #$N1 = cot $N0 |
240 | 240 | #is($N1, 'NaN', '... cot -Inf') |
241 | | todo(0, 'cot -Inf', 'cot/coth/acot not implemented for real numbers') |
| 241 | skip(1, 'cot/coth/acot not implemented for real numbers') |
242 | 242 | $N0 = 'NaN' |
243 | 243 | #$N1 = cot $N0 |
244 | 244 | #is($N1, 'NaN', '... cot NaN') |
245 | | todo(0, 'cot NaN', 'cot/coth/acot not implemented for real numbers') |
| 245 | skip(1, 'cot/coth/acot not implemented for real numbers') |
246 | 246 | .end |
247 | 247 | |
248 | 248 | .sub test_coth |
249 | 249 | $N0 = 'Inf' |
250 | 250 | #$N1 = coth $N0 |
251 | 251 | #is($N1, 1, 'coth: coth Inf') |
252 | | todo(0, 'coth Inf', 'cot/coth/acot not implemented for real numbers') |
| 252 | skip(1, 'cot/coth/acot not implemented for real numbers') |
253 | 253 | $N0 = '-Inf' |
254 | 254 | #$N1 = coth $N0 |
255 | 255 | #is($N1, -1, '... coth -Inf') |
256 | | todo(0, 'coth -Inf', 'cot/coth/acot not implemented for real numbers') |
| 256 | skip(1, 'cot/coth/acot not implemented for real numbers') |
257 | 257 | $N0 = 'NaN' |
258 | 258 | #$N1 = coth $N0 |
259 | 259 | #is($N1, 'NaN', '... coth NaN') |
260 | | todo(0, 'coth NaN', 'cot/coth/acot not implemented for real numbers') |
| 260 | skip(1, 'cot/coth/acot not implemented for real numbers') |
261 | 261 | .end |
262 | 262 | |
263 | 263 | .sub test_acot |
264 | 264 | $N0 = 'Inf' |
265 | 265 | #$N1 = acot $N0 |
266 | 266 | #is($N1, 'NaN', 'acot: acot Inf') |
267 | | todo(0, 'acot Inf', 'cot/coth/acot not implemented for real numbers') |
| 267 | skip(1, 'cot/coth/acot not implemented for real numbers') |
268 | 268 | $N0 = '-Inf' |
269 | 269 | #$N1 = acot $N0 |
270 | 270 | #is($N1, 'NaN', '... acot -Inf') |
271 | | todo(0, 'acot -Inf', 'cot/coth/acot not implemented for real numbers') |
| 271 | skip(1, 'cot/coth/acot not implemented for real numbers') |
272 | 272 | $N0 = 'NaN' |
273 | 273 | #$N1 = acot $N0 |
274 | 274 | #is($N1, 'NaN', '... acot NaN') |
275 | | todo(0, 'acot NaN', 'cot/coth/acot not implemented for real numbers') |
| 275 | skip(1, 'cot/coth/acot not implemented for real numbers') |
276 | 276 | $N0 = '-2' |
277 | 277 | #$N1 = acot $N0 |
278 | 278 | #is($N1, 'NaN', '... acot -2') |
279 | | todo(0, 'acot -2', 'cot/coth/acot not implemented for real numbers') |
| 279 | skip(1, 'cot/coth/acot not implemented for real numbers') |
280 | 280 | $N0 = '2' |
281 | 281 | #$N1 = acot $N0 |
282 | 282 | #is($N1, 'NaN', '... acot 2') |
283 | | todo(0, 'acot 2', 'cot/coth/acot not implemented for real numbers') |
| 283 | skip(1, 'cot/coth/acot not implemented for real numbers') |
284 | 284 | .end |
285 | 285 | |
286 | 286 | .sub test_sec |
… |
… |
|
416 | 416 | $N0 = 'Inf' |
417 | 417 | $I0 = floor $N0 |
418 | 418 | #is($I0, 'Inf', 'floor Inf') |
419 | | todo(0, 'floor Inf', 'rounding nan/inf gives something like -2147483648') |
| 419 | skip(1, 'rounding nan/inf gives something like -2147483648') |
420 | 420 | $N0 = 'NaN' |
421 | 421 | $I0 = floor $N0 |
422 | 422 | #is($I0, 'NaN', 'floor Inf') |
423 | | todo(0, 'floor NaN', 'rounding nan/inf gives something like -2147483648') |
| 423 | skip(1, 'rounding nan/inf gives something like -2147483648') |
424 | 424 | $N0 = 'Inf' |
425 | 425 | $I0 = ceil $N0 |
426 | 426 | #is($I0, 'Inf', 'floor Inf') |
427 | | todo(0, 'ceil Inf', 'rounding nan/inf gives something like -2147483648') |
| 427 | skip(1, 'rounding nan/inf gives something like -2147483648') |
428 | 428 | $N0 = 'NaN' |
429 | 429 | $I0 = ceil $N0 |
430 | 430 | #is($I0, 'NaN', 'floor Inf') |
431 | | todo(0, 'ceil NaN', 'rounding nan/inf gives something like -2147483648') |
| 431 | skip(1, 'rounding nan/inf gives something like -2147483648') |
432 | 432 | .end |
433 | 433 | |
434 | 434 | .sub test_nan_complex |
… |
… |
|
437 | 437 | set $P1, "1 + i" |
438 | 438 | $P1 += $N0 |
439 | 439 | #is($P1, 'NaN', '1+i + NaN') |
440 | | todo(0, '1+i + NaN should be NaN') |
| 440 | skip(1, '1+i + NaN should be NaN') |
441 | 441 | .end |
442 | 442 | |
443 | 443 | .sub test_fdiv_integer_pmc_nan |
… |
… |
|
447 | 447 | $N0 = 'NaN' |
448 | 448 | fdiv $P1, $P2, $N0 |
449 | 449 | #is($P1, 'NaN', 'fdiv with Integer PMCs and NaN') |
450 | | todo(0, 'fdiv with Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
| 450 | skip(1, 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
451 | 451 | .end |
452 | 452 | |
453 | 453 | .sub test_fdiv_float_pmc_nan |
… |
… |
|
457 | 457 | $N0 = 'NaN' |
458 | 458 | fdiv $P1, $P2, $N0 |
459 | 459 | #is($P1, 'NaN','fdiv with Float PMCs and NaN') |
460 | | todo(0,'fdiv with Float PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
| 460 | skip(1, 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
461 | 461 | .end |
462 | 462 | |
463 | 463 | .sub test_fdiv_float_integer_pmc_nan |
… |
… |
|
467 | 467 | $N0 = 'NaN' |
468 | 468 | fdiv $P1, $P2, $N0 |
469 | 469 | #is($P1, 'NaN', 'fdiv with Float and Integer PMCs and NaN') |
470 | | todo(0, 'fdiv with Float and Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
| 470 | skip(1, 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
471 | 471 | .end |
472 | 472 | |
473 | 473 | .sub test_cmod_float_integer_pmc_nan |
… |
… |
|
477 | 477 | $N0 = 'NaN' |
478 | 478 | cmod $P1, $P2, $N0 |
479 | 479 | #is($P1, 'NaN', 'cmod with Float and Integer PMCs and NaN') |
480 | | todo(0, 'cmod with Float and Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
| 480 | skip(1, 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
481 | 481 | .end |
482 | 482 | |
483 | 483 | .sub test_mod_float_integer_pmc_nan |
… |
… |
|
487 | 487 | $N0 = 'NaN' |
488 | 488 | mod $P1, $P2, $N0 |
489 | 489 | #is($P1, 'NaN', 'mod with Float and Integer PMCs and NaN') |
490 | | todo(0, 'mod with Float and Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
| 490 | skip(1, 'fdiv/mod/cmod do not play nicely with PMCs and NaN') |
491 | 491 | .end |
492 | 492 | |
493 | 493 | # Local Variables: |