rus07tam/owa-rs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

release 0.1.0

Browse source
This commit is contained in:
rus07tam 2026-05-06 12:21:06 +03:00
commit 30d94536a9
90 changed files with 7722 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

41
modules/core/tests/cmp.owa Normal file
View file

@ -0,0 +1,41 @@
(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))
)
)