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

Modification dans test-unitaire pour qu'il n'affiche pas toute la liste des fonctions lors d'un deftest / deftestvar.

Browse Source
This commit is contained in:
Georges Dupéron 2010-11-01 17:07:19 +01:00
parent 0d0e68fbee
commit 8282ad6161
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test-unitaire.lisp
View File

@ -40,14 +40,16 @@
(format t "~& expected : ~w~&" exp) (format t "~& expected : ~w~&" exp)
(format t "~& comparison : ~w~&" _compare) (format t "~& comparison : ~w~&" _compare)
nil)))) nil))))
(third (assoc ',module all-tests))))) (third (assoc ',module all-tests)))
t))
(defmacro deftestvar (module name value) (defmacro deftestvar (module name value)
`(progn `(progn
(if (not (assoc ',module all-tests)) (if (not (assoc ',module all-tests))
(setf all-tests (cons (list ',module nil nil) all-tests))) (setf all-tests (cons (list ',module nil nil) all-tests)))
(push (list ',name (list 'copy-seq ',value)) (push (list ',name (list 'copy-seq ',value))
(second (assoc ',module all-tests))))) (second (assoc ',module all-tests)))
t))
(defmacro run-tests (&rest modules) (defmacro run-tests (&rest modules)
(if (or (not modules) (if (or (not modules)