add sets

1 files changed, 16 insertions, 4 deletions

diff --git a/tests.scm b/tests.scm
index 717a0be..a7b4b67 100644
--- a/tests.scm
+++ b/tests.scm
@@ -48,10 +48,22 @@
                         (loop (cdr rest)))))))))
       (loop tests))))
 
+(define report-tests
+  (lambda (tests)
+    (let ((res (run-tests tests)))
+      (if (eq? res #t)
+          (display "passed")
+          (begin
+            (display "failed: ")
+            (display res))))
+    (newline)))
+
 (load "doubly-linked-list.scm")
-(display "running doubly linked list tests")
+(display "running doubly linked list tests: ")
 (newline)
-(if (run-tests %dl:tests)
-    (display "doubly linked list tests: passed")
-    (display "doubly linked list tests: failed"))
+(report-tests %dl:tests)
+
+(load "set.scm")
+(display "running string BST-AVL tests")
 (newline)
+(report-tests %set:tests)