r9345: * LATEST-TEST-RESULTS: Run on all platforms, add AMD64

[clsql.git] / tests / utils.lisp

diff --git a/tests/utils.lisp b/tests/utils.lisp
index f6f4e5170366359461bc616907e25e0d0c98535a..c93c91fea491fbfbea6a30a5226373e374074f24 100644 (file)
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@@ -1,4 +1,4 @@
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
@@ -58,14 +58,6 @@
 (defun db-type-spec (db-type specs)
   (funcall (spec-fn db-type) specs))
 
-(defun db-type-ensure-system (db-type)
-  (unless (find-package (symbol-name db-type))
-    (asdf:operate 'asdf:load-op
-                 (intern (concatenate 'string
-                                      (symbol-name '#:clsql-)
-                                      (symbol-name db-type))))))
-
-
 
 (defun summarize-test-report (sexp &optional (output *standard-output*))
   (flet ((db-title (db-type underlying-db-type)
@@ -87,13 +79,16 @@
                               impl-version
                               machine-type)
              form
+           (declare (ignorable utime impl-version))
            (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))))))))