www

commit 8282ad61617646eca8849fc67b9f44beec696b57
parent 0d0e68fbee966473da7ab6a692007d1ab4ece065
Author: Georges Dupéron <jahvascriptmaniac+github@free.fr>
Date:   Mon,  1 Nov 2010 17:07:19 +0100

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

Diffstat:
M
test-unitaire.lisp
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/test-unitaire.lisp b/test-unitaire.lisp
@@ -40,14 +40,16 @@
                      (format t "~&              expected   : ~w~&" exp)
                      (format t "~&              comparison : ~w~&" _compare)
                      nil))))
-           (third (assoc ',module all-tests)))))
+           (third (assoc ',module all-tests)))
+     t))
 
 (defmacro deftestvar (module name value)
   `(progn
      (if (not (assoc ',module all-tests))
          (setf all-tests (cons (list ',module nil nil) all-tests)))
      (push (list ',name (list 'copy-seq ',value))
-           (second (assoc ',module all-tests)))))
+           (second (assoc ',module all-tests)))
+     t))
 
 (defmacro run-tests (&rest modules)
   (if (or (not modules)