trie: add with test

1 files changed, 7 insertions, 0 deletions

diff --git a/tests.scm b/tests.scm
index a7b4b67..ae93237 100644
--- a/tests.scm
+++ b/tests.scm
@@ -18,6 +18,8 @@
 ;;; 
 ;;; TODO: Return test results as a list.
 
+(load "util.scm")
+
 (define verbose? #t)
 
 (define run-tests
@@ -67,3 +69,8 @@
 (display "running string BST-AVL tests")
 (newline)
 (report-tests %set:tests)
+
+(load "trie.scm")
+(display "char trie")
+(newline)
+(report-tests %trie:tests)