X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Futils.lisp;h=1928bf4207e60b664b0382583aa370987d4e2e0e;hb=9bbed78051e80e6ab76ae47834136035602bbbf1;hp=f6f4e5170366359461bc616907e25e0d0c98535a;hpb=967266c94b00f91e5967b8330fe2b9134b0c0447;p=clsql.git

diff --git a/tests/utils.lisp b/tests/utils.lisp
index f6f4e51..1928bf4 100644
--- a/tests/utils.lisp
+++ b/tests/utils.lisp
@@ -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)
@@ -88,12 +80,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))))))))