From 7e8425562de2bcfd1b4c4d335ceeeaa460a4ebc3 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 1 May 2013 22:27:32 +0100 Subject: [PATCH] Use defparameter instead of defvar to reset test reporting data It is useful to call run-tests-in-host multiple times --- tests.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/tests.lisp b/tests.lisp index 8c57af4..65b4ae2 100644 --- a/tests.lisp +++ b/tests.lisp @@ -1,9 +1,8 @@ -(defvar *total-tests* 0) -(defvar *passed-tests* 0) -(defvar *failed-tests* 0) - -(defvar *expected-failures* 0) -(defvar *unexpected-passes* 0) +(defparameter *total-tests* 0) +(defparameter *passed-tests* 0) +(defparameter *failed-tests* 0) +(defparameter *expected-failures* 0) +(defparameter *unexpected-passes* 0) (defvar *use-html-output-p* t) (defun if-html (string) (if *use-html-output-p* string "")) -- 1.7.10.4