extra/math/compare/compare-tests.factor

   1 USING: kernel math math.compare math.functions tools.test ;
   2 IN: math.compare.tests
   3
   4 [ -1 ] [ -1 5 absmin ] unit-test
   5 [ -1 ] [ -1 -5 absmin ] unit-test
   6
   7 [ -5 ] [ 1 -5 absmax ] unit-test
   8 [ 5 ] [ 1 5 absmax ] unit-test
   9
  10 [ 0 ] [ -1 -3 posmax ] unit-test
  11 [ 1 ] [ 1 -3 posmax ] unit-test
  12 [ 3 ] [ -1 3 posmax ] unit-test
  13
  14 [ 0 ] [ 1 3 negmin ] unit-test
  15 [ -3 ] [ 1 -3 negmin ] unit-test
  16 [ -1 ] [ -1 3 negmin ] unit-test
  17
  18 [ 0 ] [ -1 0 2 clamp ] unit-test
  19 [ 1 ] [ 1 0 2 clamp ] unit-test
  20 [ 2 ] [ 3 0 2 clamp ] unit-test
  21