41 lines
769 B
Text
41 lines
769 B
Text
(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))
|
|
)
|
|
)
|