booleans/booleans-test.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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