commit b6990e68d116ca391af98f08edb6b91104658361 parent 36d79d03de43ad191e3770814c26566482457b06 Author: Georges Dupéron <jahvascriptmaniac+github@free.fr> Date: Sun, 31 Oct 2010 02:14:35 +0100 Effacement des tests un module à la fois (ou tous en même temps, au choix). Diffstat:
| M | test-unitaire.lisp | | | 9 | +++++++-- |
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/test-unitaire.lisp b/test-unitaire.lisp @@ -67,8 +67,13 @@ and return nil finally (return t))) -(defun erase-tests () - (setf all-tests nil)) +(defun erase-tests-1 (module) + (if module + (setf (assoc module all-tests) nil) + (setf all-tests nil))) + +(defmacro erase-tests (&optional module) + `(erase-tests-1 ',module)) ;(deftest moda nil nil) ;(deftest moda (eq 42 42) t)