core/test/math/rational.factor

   1 IN: temporary
   2 USE: kernel
   3 USE: math
   4 USE: test
   5
   6 [ 1 2 ] [ 1/2 >fraction ] unit-test
   7
   8 [ 1/2 ] [ 1 >bignum 2 >bignum / ] unit-test
   9 [ t ] [ 10 3 / ratio? ] unit-test
  10 [ f ] [ 10 2 / ratio? ] unit-test
  11 [ 10 ] [ 10 numerator ] unit-test
  12 [ 1 ] [ 10 denominator ] unit-test
  13 [ 12 ] [ -12 -13 / numerator ] unit-test
  14 [ 13 ] [ -12 -13 / denominator ] unit-test
  15 [ 1 ] [ -1 -1 / numerator ] unit-test
  16 [ 1 ] [ -1 -1 / denominator ] unit-test
  17
  18 [ -1 ] [ 2 -2 / ] unit-test
  19 [ -1 ] [ -2 2 / ] unit-test
  20
  21 [ t ] [ 1 3 / 1 3 / = ] unit-test
  22
  23 [ -10 ] [ -100 10 /i ] unit-test
  24 [ 10 ] [ -100 -10 /i ] unit-test
  25 [ -10 ] [ 100 -10 /i ] unit-test
  26 [ -10 ] [ -100 >bignum 10 >bignum /i ] unit-test
  27 [ 10  ] [ -100 >bignum -10 >bignum /i ] unit-test
  28 [ -10 ] [ 100 >bignum -10 >bignum /i ] unit-test
  29
  30 [ 3/2 ] [ 1 1/2 + ] unit-test
  31 [ 3/2 ] [ 1 >bignum 1/2 + ] unit-test
  32 [ -1/2 ] [ 1/2 1 - ] unit-test
  33 [ -1/2 ] [ 1/2 1 >bignum - ] unit-test
  34 [ 41/20 ] [ 5/4 4/5 + ] unit-test
  35
  36 [ 1 ] [ 1/2 2 * ] unit-test
  37 [ 1/3 ] [ 1/2 2/3 * ] unit-test
  38
  39 [ 1 ] [ 1/2 1/2 / ] unit-test
  40 [ 27/4 ] [ 3/2 2/9 / ] unit-test
  41
  42 [ t ] [ 5768 476343 < ] unit-test
  43 [ t ] [ 5768 476343 <= ] unit-test
  44 [ f ] [ 5768 476343 > ] unit-test
  45 [ f ] [ 5768 476343 >= ] unit-test
  46 [ t ] [ 3434 >bignum 3434 >= ] unit-test
  47 [ t ] [ 3434 3434 >bignum <= ] unit-test
  48
  49 [ t ] [ 1 1/3 > ] unit-test
  50 [ t ] [ 2/3 3/4 <= ] unit-test
  51 [ f ] [ -2/3 1/3 > ] unit-test
  52
  53 [ t ] [ 1000000000/999999 1000 > ] unit-test
  54 [ f ] [ 100000 100000000000/999999 > ] unit-test
  55 [ t ]
  56 [ 1000000000000/999999999999 1000000000001/999999999998 < ]
  57 unit-test
  58
  59 [ -3 ] [ -3 10 mod ] unit-test
  60 [ 7 ] [ -3 10 rem ] unit-test
  61 [ 7 ] [ -13 10 rem ] unit-test
  62 [ 0 ] [ 37 37 rem ] unit-test
  63
  64 [ -1 ] [ -12.55 sgn ] unit-test
  65 [ 1 ] [ 100000000000000000000000000000000 sgn ] unit-test
  66 [ 0 ] [ 0.0 sgn ] unit-test
  67
  68 [ 1/2 ] [ 1/2 1 mod ] unit-test
  69 [ 1/3 ] [ 10/3 3 mod ] unit-test
  70 [ -1/3 ] [ -10/3 3 mod ] unit-test
  71
  72 [ 5 ] [ 5 floor ] unit-test
  73 [ -5 ] [ -5 floor ] unit-test
  74 [ 6 ] [ 6 truncate ] unit-test
  75 [ 3 ] [ 10/3 floor ] unit-test
  76 [ -4 ] [ -10/3 floor ] unit-test
  77 [ 4 ] [ 10/3 ceiling ] unit-test
  78 [ -3 ] [ -10/3 ceiling ] unit-test
  79 [ 3 ] [ 10/3 truncate ] unit-test
  80 [ -3 ] [ -10/3 truncate ] unit-test
  81
  82 [ -1/2 ] [ 1/2 1- ] unit-test
  83 [ 3/2 ] [ 1/2 1+ ] unit-test