Add function list-all-suites

[fiveam.git] / t / tests.lisp

diff --git a/t/tests.lisp b/t/tests.lisp
index 6bef836..0b95b8c 100644 (file)
--- a/t/tests.lisp
+++ b/t/tests.lisp
@@ -254,3 +254,7 @@
   (for-all (((a b) (dummy-mv-generator)))
     (is (= 1 a))
     (is (= 1 b))))
+
+(def-test introspection ()
+  (is (= (length (list-all-suites))
+         (hash-table-count *suites*))))
\ No newline at end of file