X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=8e1cc48569e3401bd5798acf4cc088015ee2d081;hb=704367c500a9fac40e97663f794fa4042df1512a;hp=110fbdc099fc1a183a4ef0a6067137d865ee8da9;hpb=8eb7a61e88d2d0cd9a2ed932b2f2c3bc710f309f;p=clsql.git

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 110fbdc..8e1cc48 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -107,14 +107,15 @@
     (when (db-type-spec db-type specs)
       (clsql-sys:initialize-database-type :database-type db-type))))
 
-(defun write-report-banner (report-type db-type stream)
+(defun write-report-banner (report-type db-type stream db-name)
   (format stream
           "~&
 ******************************************************************************
 ***     CLSQL ~A begun at ~A
 ***     ~A
 ***     ~A on ~A
-***     Database ~:@(~A~) backend~A.
+***     Database ~:@(~A~)
+***     Type: ~:@(~A~) backend~A.
 ******************************************************************************
 "
           report-type
@@ -124,6 +125,7 @@
           (lisp-implementation-type)
           (lisp-implementation-version)
           (machine-type)
+	  db-name
           db-type
           (if (not (eq db-type *test-database-underlying-type*))
               (format nil " with underlying type ~:@(~A~)"
@@ -138,7 +140,8 @@
        (multiple-value-bind (test-forms skip-tests)
            (compute-tests-for-backend db-type *test-database-underlying-type*)
 
-           (write-report-banner "Test Suite" db-type *report-stream*)
+           (write-report-banner "Test Suite" db-type *report-stream*
+				(database-name-from-spec spec db-type))
 
 ;           (test-initialise-database)