(namespace tests.cmp
  (test.case "cmp.eq?"
    (assert.ok! (eq? 1 1))
    (assert.not! (eq? 1 2))
  )

  (test.case "cmp.nq?"
    (assert.ok! (nq? 1 2))
    (assert.not! (nq? 1 1))
  )

  (test.case "cmp.cmp"
    (assert.eq! (cmp 1 2) :less)
    (assert.eq! (cmp 2 1) :greater)
    (assert.eq! (cmp 1 1) :equal)
  )

  (test.case "cmp.lt?"
    (assert.ok! (lt? 1 2))
    (assert.not! (lt? 2 1))
    (assert.not! (lt? 1 1))
  )

  (test.case "cmp.lte?"
    (assert.ok! (lte? 1 2))
    (assert.ok! (lte? 1 1))
    (assert.not! (lte? 2 1))
  )

  (test.case "cmp.gt?"
    (assert.ok! (gt? 2 1))
    (assert.not! (gt? 1 2))
    (assert.not! (gt? 1 1))
  )

  (test.case "cmp.gte?"
    (assert.ok! (gte? 2 1))
    (assert.ok! (gte? 1 1))
    (assert.not! (gte? 1 2))
  )
)