Warn on missing tests to remove and continue on.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Sun, 3 Feb 2013 02:57:39 +0000 (2 20:57 -0600)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Sun, 3 Feb 2013 02:57:39 +0000 (2 20:57 -0600)
Do no collect the removed names, the collected list wasn't used.

lisp-unit.lisp

index 5290ddc..dacd99c 100644 (file)
@@ -251,9 +251,9 @@ assertion.")
         (unless (null table)
           ;; Remove tests
           (loop for name in names
-                always (remhash name table)
-                collect name into removed
-                finally (return removed))
+                unless (remhash name table) do
+                (warn "No test ~A in package ~A to remove."
+                      name (package-name package)))
           ;; Remove tests from tags
           (loop with tags = (package-tags package)
                 for tag being each hash-key in tags