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: 