Write the database name in the report banner. This is especially useful for testing...

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index 66dfb3e75934e2d859691627f34e2990b8eaaa63..16e3e78f8b34cdc2ccc6f0db411302b09ace9654 100644 (file)
--- a/tests/benchmarks.lisp
+++ b/tests/benchmarks.lisp
@@ -42,7 +42,8 @@
 
 (defun do-benchmarks-for-backend (db-type spec count)
   (test-connect-to-database db-type spec)
-  (write-report-banner "Benchmarks" db-type *report-stream*)
+  (write-report-banner "Benchmarks" db-type *report-stream*
+                      (database-name-from-spec spec db-type))
 
   (create-view-from-class 'bench)
   (benchmark-init)

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 110fbdc099fc1a183a4ef0a6067137d865ee8da9..8e1cc48569e3401bd5798acf4cc088015ee2d081 100644 (file)
--- 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)