From de8ec8026b3fbf60cfa95ef1c48ad53e1b922d38 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 19 May 2024 00:18:44 -0600 Subject: Initial binary search tree --- binary-search/binary-search-test.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 binary-search/binary-search-test.scm (limited to 'binary-search/binary-search-test.scm') 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") -- cgit v1.2.3