core/math/order/order-tests.factor

   1 USING: kernel math.order tools.test ;
   2 IN: math.order.tests
   3
   4 [ +lt+ ] [ "ab" "abc" <=> ] unit-test
   5 [ +gt+ ] [ "abc" "ab" <=> ] unit-test
   6 [ +lt+ ] [ 3 4 <=> ] unit-test
   7 [ +eq+ ] [ 4 4 <=> ] unit-test
   8 [ +gt+ ] [ 4 3 <=> ] unit-test
   9