core/math/order/order-tests.factor

   1 USING: math.order tools.test ;
   2
   3 { +lt+ } [ "ab" "abc" <=> ] unit-test
   4 { +gt+ } [ "abc" "ab" <=> ] unit-test
   5 { +lt+ } [ 3 4 <=> ] unit-test
   6 { +eq+ } [ 4 4 <=> ] unit-test
   7 { +gt+ } [ 4 3 <=> ] unit-test
   8
   9 { 20 } [ 20 0 100 clamp ] unit-test
  10 { 0 } [ -20 0 100 clamp ] unit-test
  11 { 100 } [ 120 0 100 clamp ] unit-test