binary-search/binary-search-test.scm


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

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