(use-modules (srfi srfi-64)
             (binary-search))

(test-begin "harness")


(define bst (make-empty-bst))

(test-assert "empty-bst-missing-zero"
  (not (bst-member-p bst 0)))


(test-end "harness")