(use-modules (srfi srfi-64)
             (booleans))

(test-begin "harness")


(test-equal "test-true-inverted-is-false"
  #f
  (boolean-invert #t))

(test-equal "test-true-inverted-is-false"
  #t
  (boolean-invert #f))


(test-end "harness")