From c26d6a3c601d29e4de039bbea429fc2d3353a6c9 Mon Sep 17 00:00:00 2001
From: Gabor Melis <mega@hotpop.com>
Date: Mon, 16 Feb 2009 21:32:58 +0000
Subject: [PATCH] 1.0.25.20: test util: print names, status
---
tests/test-util.lisp | 13 +++++++++++--
version.lisp-expr | 2 +-
2 files changed, 12 insertions(+), 3 deletions(-)
diff --git a/tests/test-util.lisp b/tests/test-util.lisp
index e49c627..7ef6b6b 100644
--- a/tests/test-util.lisp
+++ b/tests/test-util.lisp
@@ -12,6 +12,12 @@
(defvar *break-on-failure* nil)
(defvar *break-on-expected-failure* nil)
+(defun log-msg (&rest args)
+ (format *trace-output* "~&::: ")
+ (apply #'format *trace-output* args)
+ (terpri *trace-output*)
+ (force-output *trace-output*))
+
(defmacro with-test ((&key fails-on name) &body body)
(let ((block-name (gensym)))
`(block ,block-name
@@ -21,10 +27,12 @@
(fail-test :unexpected-failure ',name error))
(return-from ,block-name))))
(progn
+ (log-msg "Running ~S" ',name)
(start-test)
,@body
- (when (expected-failure-p ,fails-on)
- (fail-test :unexpected-success ',name nil)))))))
+ (if (expected-failure-p ,fails-on)
+ (fail-test :unexpected-success ',name nil)
+ (log-msg "Success ~S" ',name)))))))
(defun report-test-status ()
(with-standard-io-syntax
@@ -40,6 +48,7 @@
(incf *test-count*))
(defun fail-test (type test-name condition)
+ (log-msg "~A ~S" type test-name)
(push (list type *test-file* (or test-name *test-count*))
*failures*)
(when (or (and *break-on-failure*
diff --git a/version.lisp-expr b/version.lisp-expr
index 763f1f2..40dbfee 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.25.19"
+"1.0.25.20"
--
1.7.10.4