(use-modules (srfi srfi-64)
             ((bit-operations) #:prefix bo:))


(test-begin "bit-operations-test")

(test-group
 "xor-test"
 (test-assert (not (bo:xor #t #t)))
 (test-assert (not (bo:xor #f #f)))
 (test-assert (bo:xor #t #f))
 (test-assert (bo:xor #f #t)))

(test-end "bit-operations-test")
