From 0803523fc510fca573dd0a9bc5bdcc3a89872833 Mon Sep 17 00:00:00 2001 From: "Thomas M. Hermann" Date: Fri, 14 Dec 2012 16:58:43 -0600 Subject: [PATCH] Warn if there are no tests for a tag. --- lisp-unit.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp-unit.lisp b/lisp-unit.lisp index 0f2ffd9..d440f53 100644 --- a/lisp-unit.lisp +++ b/lisp-unit.lisp @@ -263,7 +263,8 @@ assertion.") (loop with table = (package-tags package) for tag in tags as tests = (gethash tag table) - nconc (copy-list tests) into all-tests + if (null tests) do (warn "No tests tagged with ~S." tag) + else nconc (copy-list tests) into all-tests finally (return (delete-duplicates all-tests)))) (defun list-tags (&optional (package *package*)) @@ -273,7 +274,7 @@ assertion.") (loop for tag being each hash-key in tags collect tag)))) (defun tagged-tests (tags &optional (package *package*)) - "Run the tests associated with the specified tags in package." + "Return a list of the tests associated with the tags." (if (eq :all tags) (%tests-from-all-tags package) (%tests-from-tags tags package))) -- 2.11.4.GIT