library/test/math/float.factor

   1 IN: scratchpad
   2 USE: arithmetic
   3 USE: kernel
   4 USE: stack
   5 USE: test
   6
   7 [ t ] [ 0.0 float? ] unit-test
   8 [ t ] [ 3.1415 number? ] unit-test
   9 [ f ] [ 12 float? ] unit-test
  10
  11 [ t ] [ 1 1.0 = ] unit-test
  12 [ t ] [ 1 >bignum 1.0 = ] unit-test
  13 [ t ] [ 1.0 1 = ] unit-test
  14 [ t ] [ 1.0 1 >bignum = ] unit-test
  15
  16 [ f ] [ 1 1.3 = ] unit-test
  17 [ f ] [ 1 >bignum 1.3 = ] unit-test
  18 [ f ] [ 1.3 1 = ] unit-test
  19 [ f ] [ 1.3 1 >bignum = ] unit-test
  20
  21 [ t ] [ 134.3 >fixnum 134 = ] unit-test
  22
  23 [ 2.1 ] [ -2.1 neg ] unit-test
  24
  25 [ 1 ] [ 0.5 1/2 + ] unit-test
  26 [ 1 ] [ 1/2 0.5 + ] unit-test
  27
  28 [ 3 ] [ 3.1415 >fixnum ] unit-test
  29 [ 3 ] [ 3.1415 >bignum ] unit-test
  30
  31 [ t ] [ pi 3 > ] unit-test
  32 [ f ] [ e 2 <= ] unit-test