From c26d6a3c601d29e4de039bbea429fc2d3353a6c9 Mon Sep 17 00:00:00 2001 From: Gabor Melis 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