commit b14701f20a0877a36294231f895787fdd5f4392b parent 99364ac205defc364c7403416e53cfde1b09566c Author: Bertrand BRUN <bertrand.brun@me.com> Date: Sun, 31 Oct 2010 02:35:28 +0100 Merge branch 'master' of https://github.com/dumbs/2010-m1s1-compilation 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)