Merge remote-tracking branch 'cddr/introspection'

[fiveam.git] / t / tests.lisp

diff --git a/t/tests.lisp b/t/tests.lisp
index 3592ee5..e03435f 100644 (file)
--- a/t/tests.lisp
+++ b/t/tests.lisp
@@ -259,6 +259,10 @@
     (is (= 1 a))
     (is (= 1 b))))
 
+(def-test introspection ()
+  (is (= (length (list-all-suites))
+         (hash-table-count *suites*))))
+
 (defvar *special-variable* nil)
 
 (def-fixture fixture-for-suite (value)