From: Nathan Bird <nathan@acceleration.net>
Date: Mon, 25 Jan 2010 19:48:09 +0000 (-0500)
Subject: Write the database name in the report banner. This is especially useful for testing... 
X-Git-Tag: v4.3.3~20
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=6d69ac764a6e285e5ee0cb0d46e24f652abd0f8f

Write the database name in the report banner. This is especially useful for testing multiple odbc backend dbs.
---

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index 66dfb3e..16e3e78 100644
--- 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 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)