From e02d79979cb676b5e8d96b16456922afe77f4f74 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 23 Apr 2004 02:34:40 +0000 Subject: [PATCH] r9134: add machine-type to report --- tests/utils.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/utils.lisp b/tests/utils.lisp index f6f4e51..f73edbc 100644 --- a/tests/utils.lisp +++ b/tests/utils.lisp @@ -88,12 +88,14 @@ machine-type) form (if failed-tests - (format output "~&~A: ~D of ~D tests failed (~A).~&" + (format output "~&~A: ~D of ~D tests failed (~A, ~A).~&" (db-title db-type underlying-db-type) (length failed-tests) total-tests + machine-type impl-type) - (format output "~&~A: All ~D tests passed (~A).~%" + (format output "~&~A: All ~D tests passed (~A, ~A).~%" (db-title db-type underlying-db-type) total-tests + machine-type impl-type)))))))) -- 2.34.1