X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/239fa5bd3dff0b38b0cebdd3438311f21c24ba4f..3dca7758421664a838c54b273bd9221f02072045:/src/test-base.lisp

diff --git a/src/test-base.lisp b/src/test-base.lisp
index ffc8e19..203f918 100644
--- a/src/test-base.lisp
+++ b/src/test-base.lisp
@@ -52,6 +52,9 @@
 			       rather than `~A'."
 			  object print string))))
 
+(defclass base-test (test-case) ())
+(add-test *sod-test-suite* (get-suite base-test))
+
 (defun run-tests (&optional which)
   (textui-test-run (acond
 		     ((null which) *sod-test-suite*)