egison-3.9.4: nons-test/test/lib/core/order.egi

assertEqual "compare - case 1"
  (compare 10 10)
  Equal

assertEqual "compare - case 2"
  (compare 11 10)
  Greater

assertEqual "compare - case 3"
  (compare 10 11)
  Less

assertEqual "min"
  (min [20, 5])
  5

-- assertEqual "min/fn"
--   (min/fn compare [10, 20, 5, 20, 30])
--   5

assertEqual "max"
  (max [5, 30])
  30

-- assertEqual "max/fn"
--   (max/fn compare [10, 20, 5, 20, 30])
--   30

assertEqual "sort"
  (sort [10, 20, 5, 20, 30])
  [5, 10, 20, 20, 30]

-- assertEqual "sort/fn"
--   (sort/fn compare [10, 20, 5, 20, 30])
--   [5, 10, 20, 20, 30]