From b6990e68d116ca391af98f08edb6b91104658361 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <jahvascriptmaniac+github@free.fr>
Date: Sun, 31 Oct 2010 02:14:35 +0100
Subject: [PATCH] =?UTF-8?q?Effacement=20des=20tests=20un=20module=20=C3=A0?=
 =?UTF-8?q?=20la=20fois=20(ou=20tous=20en=20m=C3=AAme=20temps,=20au=20choi?=
 =?UTF-8?q?x).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 test-unitaire.lisp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/test-unitaire.lisp b/test-unitaire.lisp
index b6ec536..c24d55a 100644
--- 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)