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

[clsql.git] / tests / benchmarks.lisp

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)