suzanne.soy/2010-m1s1-compilation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Effacement des tests un module à la fois (ou tous en même temps, au choix).

Browse Source
This commit is contained in:
Georges Dupéron 2010-10-31 02:14:35 +01:00
parent 36d79d03de
commit b6990e68d1
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test-unitaire.lisp
View File

@ -67,8 +67,13 @@
and return nil and return nil
finally (return t))) finally (return t)))
(defun erase-tests () (defun erase-tests-1 (module)
(setf all-tests nil)) (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 nil nil)
;(deftest moda (eq 42 42) t) ;(deftest moda (eq 42 42) t)