From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Sun, 3 Feb 2013 02:57:39 +0000 (-0600)
Subject: Warn on missing tests to remove and continue on.
X-Git-Tag: 0.9.4~1^2~3
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/be664d99fd7fea868fef71d5d53cabb6e132bd1d

Warn on missing tests to remove and continue on.

Do no collect the removed names, the collected list wasn't used.
---

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 5290ddc..dacd99c 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -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