Branch: Tag:

1999-12-08

1999-12-08 11:31:43 by Fredrik Noring <noring@nocrew.org>

Added test case for bignum <op> float -> float.

Rev: src/testsuite.in:1.249

1: - test_true([["$Id: testsuite.in,v 1.248 1999/12/07 09:41:02 hubbe Exp $"]]); + test_true([["$Id: testsuite.in,v 1.249 1999/12/08 11:31:43 noring Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1677:    test_eq([[2147483648|17 ]], 2147483665)    test_eq([[2147483648<<17]], 281474976710656)    test_eq([[2147483648>>17]], 16384) +  +  test_true([[ floatp((1<<99)/3.14) ]]); +  test_true([[ floatp((1<<99)*3.14) ]]); +  test_true([[ floatp((1<<99)-3.14) ]]); +  test_true([[ floatp((1<<99)+3.14) ]]);   ]])    -  +    cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())