Actually run test cases in test/conditions.lisp

* test/conditions.lisp (define-condition-suite): generate unique names for test cases; placing them in different test suites is not enough
scymtym · Jan 2, 2014 · 776d672 · 776d672
1 parent 89093d3
commit 776d672
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/test/conditions.lisp b/test/conditions.lisp
@@ -96,7 +96,11 @@
 
 (defmacro define-condition-suite ((name &key (constructor name))
                                   &body cases)
-  (let ((suite-name (make-keyword name)))
+  (let ((suite-name            (make-keyword name))
+        (condition-case-name   (symbolicate
+                                name '#:.construct-and-print/make-condition))
+        (constructor-case-name (symbolicate
+                                name '#:.construct-and-print/constructor)))
     `(progn
        (def-suite ,suite-name
          :in :more-conditions
@@ -105,7 +109,7 @@
                   name))
        (in-suite ,suite-name)
 
-       (test construct-and-print/make-condition
+       (test ,condition-case-name
          ,(format nil "Test printing instances of the `~(~A~)' condition class"
                   name)
 
@@ -117,7 +121,7 @@
                (list ,@cases)))
 
        ,@(when (fboundp constructor)
-           `((test construct-and-print/constructor
+           `((test ,constructor-case-name
                ,(format nil "Test printing instances of the `~(~A~)' condition class"
                         name)