(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)
  )
)