Ticket #1302: t_op_inf_nan_t.patch

File t_op_inf_nan_t.patch, 5.6 KB (added by bubaflub, 5 years ago)

patch to change todo to skip in t/op/inf_nan.t

  • t/op/inf_nan.t

    diff --git t/op/inf_nan.t t/op/inf_nan.t
    index e31db51..4a94d7d 100644
     
    234234    $N0 = 'Inf' 
    235235    #$N1 = cot $N0 
    236236    #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') 
    238238    $N0 = '-Inf' 
    239239    #$N1 = cot $N0 
    240240    #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') 
    242242    $N0 = 'NaN' 
    243243    #$N1 = cot $N0 
    244244    #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') 
    246246.end 
    247247 
    248248.sub test_coth 
    249249    $N0 = 'Inf' 
    250250    #$N1 = coth $N0 
    251251    #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') 
    253253    $N0 = '-Inf' 
    254254    #$N1 = coth $N0 
    255255    #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') 
    257257    $N0 = 'NaN' 
    258258    #$N1 = coth $N0 
    259259    #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') 
    261261.end 
    262262 
    263263.sub test_acot  
    264264    $N0 = 'Inf' 
    265265    #$N1 = acot $N0 
    266266    #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') 
    268268    $N0 = '-Inf' 
    269269    #$N1 = acot $N0 
    270270    #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') 
    272272    $N0 = 'NaN' 
    273273    #$N1 = acot $N0 
    274274    #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') 
    276276    $N0 = '-2' 
    277277    #$N1 = acot $N0 
    278278    #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') 
    280280    $N0 = '2' 
    281281    #$N1 = acot $N0 
    282282    #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') 
    284284.end 
    285285 
    286286.sub test_sec 
     
    416416    $N0 = 'Inf' 
    417417    $I0 = floor $N0 
    418418    #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') 
    420420    $N0 = 'NaN' 
    421421    $I0 = floor $N0 
    422422    #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') 
    424424    $N0 = 'Inf' 
    425425    $I0 = ceil $N0 
    426426    #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') 
    428428    $N0 = 'NaN' 
    429429    $I0 = ceil $N0 
    430430    #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') 
    432432.end 
    433433 
    434434.sub test_nan_complex 
     
    437437    set $P1, "1 + i" 
    438438    $P1 += $N0 
    439439    #is($P1, 'NaN', '1+i + NaN') 
    440     todo(0, '1+i + NaN should be NaN') 
     440    skip(1, '1+i + NaN should be NaN') 
    441441.end 
    442442 
    443443.sub test_fdiv_integer_pmc_nan 
     
    447447    $N0 = 'NaN' 
    448448    fdiv $P1, $P2, $N0 
    449449    #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') 
    451451.end 
    452452 
    453453.sub test_fdiv_float_pmc_nan 
     
    457457    $N0 = 'NaN' 
    458458    fdiv $P1, $P2, $N0 
    459459    #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') 
    461461.end 
    462462 
    463463.sub test_fdiv_float_integer_pmc_nan 
     
    467467    $N0 = 'NaN' 
    468468    fdiv $P1, $P2, $N0 
    469469    #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')     
    471471.end 
    472472 
    473473.sub test_cmod_float_integer_pmc_nan 
     
    477477    $N0 = 'NaN' 
    478478    cmod $P1, $P2, $N0 
    479479    #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') 
    481481.end 
    482482 
    483483.sub test_mod_float_integer_pmc_nan 
     
    487487    $N0 = 'NaN' 
    488488    mod $P1, $P2, $N0 
    489489    #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') 
    491491.end 
    492492 
    493493# Local Variables: