38 lines
917 B
Text
38 lines
917 B
Text
(namespace tests.bool
|
|
(test.case "bool.bool?"
|
|
(assert.ok! (bool? true))
|
|
(assert.ok! (bool? false))
|
|
(assert.not! (bool? 1))
|
|
)
|
|
|
|
(test.case "bool.not"
|
|
(assert.eq! (bool.not true) false)
|
|
(assert.eq! (bool.not false) true)
|
|
)
|
|
|
|
(test.case "bool.and"
|
|
(assert.ok! (bool.and true true))
|
|
(assert.not! (bool.and true false))
|
|
(assert.not! (bool.and false true))
|
|
(assert.not! (bool.and false false))
|
|
)
|
|
|
|
(test.case "bool.or"
|
|
(assert.ok! (bool.or true true))
|
|
(assert.ok! (bool.or true false))
|
|
(assert.ok! (bool.or false true))
|
|
(assert.not! (bool.or false false))
|
|
)
|
|
|
|
(test.case "bool.nand"
|
|
(assert.not! (bool.nand true true))
|
|
(assert.ok! (bool.nand true false))
|
|
(assert.ok! (bool.nand false true))
|
|
(assert.ok! (bool.nand false false))
|
|
)
|
|
|
|
(test.case "bool.new"
|
|
(assert.eq! (bool.new true) true)
|
|
(assert.eq! (bool.new false) false)
|
|
)
|
|
)
|