Simpler suites list.

diff --git a/src/suite.lisp b/src/suite.lisp
index 4e96bfb..03e232e 100644 (file)
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -52,6 +52,10 @@ Overrides any existing suite named NAME."
     (setf (get-test name) suite)
     suite))
 
+(defun list-all-suites ()
+  "Returns an unordered LIST of all suites."
+  (hash-table-values *suites*))
+
 ;;;; ** Managing the Current Suite
 
 (defvar *suite* (setf (get-test 'NIL)