1 files changed, 13 insertions, 0 deletions
diff --git a/binary-search/binary-search-test.scm b/binary-search/binary-search-test.scm
new file mode 100644
index 0000000..adbeacb
--- /dev/null
+++ b/binary-search/binary-search-test.scm
@@ -0,0 +1,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")