r9134: add machine-type to report

diff --git a/tests/utils.lisp b/tests/utils.lisp
index f6f4e5170366359461bc616907e25e0d0c98535a..f73edbc39e6afa37823695cdb8c6c41a2f4a0e76 100644 (file)
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@@ -88,12 +88,14 @@
                               machine-type)
              form
            (if failed-tests
                               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
                        (db-title db-type underlying-db-type)
                        (length failed-tests)
                        total-tests

+                       machine-type

                        impl-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
                        (db-title db-type underlying-db-type)
                        total-tests

+                       machine-type

                        impl-type))))))))
                        impl-type))))))))