From 35dc0e063d9f601afdc1202e4724628525e723f0 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Thu, 25 Jul 2013 23:33:27 +0200 Subject: [PATCH] Test output goes to *TEST-DRIBBLE* --- src/run.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/run.lisp b/src/run.lisp index d9cb767..d9b8c5f 100644 --- a/src/run.lisp +++ b/src/run.lisp @@ -188,7 +188,7 @@ run.")) (defmethod %run ((test test-case)) (when *print-names* - (format *debug-io* "~% Running test ~A " (name test))) + (format *test-dribble* "~% Running test ~A " (name test))) (run-resolving-dependencies test)) (defmethod %run ((tests list)) @@ -196,7 +196,7 @@ run.")) (defmethod %run ((suite test-suite)) (when *print-names* - (format *debug-io* "~%Running test suite ~A~%" (name suite))) + (format *test-dribble* "~%Running test suite ~A~%" (name suite))) (let ((suite-results '())) (flet ((run-tests () (loop -- 1.7.10.4