src/method-aggregate.lisp: `and' and `or' combinations return decisive value.

[sod] / src / test-base.lisp

diff --git a/src/test-base.lisp b/src/test-base.lisp
index ffc8e19..e629357 100644 (file)
--- a/src/test-base.lisp
+++ b/src/test-base.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -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*)