2 files changed, 20 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")
diff --git a/binary-search/binary-search.scm b/binary-search/binary-search.scm
new file mode 100644
index 0000000..95513df
--- /dev/null
+++ b/binary-search/binary-search.scm
@@ -0,0 +1,7 @@
+(define-module (binary-search))
+
+(define-public (make-empty-bst)
+  #t)
+
+(define-public (bst-member-p bst e)
+  #f)