projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Write the database name in the report banner. This is especially useful for testing...
[clsql.git]
/
tests
/
test-init.lisp
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))))
(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
(format stream
"~&
******************************************************************************
*** CLSQL ~A begun at ~A
*** ~A
*** ~A on ~A
-*** Database ~:@(~A~) backend~A.
+*** Database ~:@(~A~)
+*** Type: ~:@(~A~) backend~A.
******************************************************************************
"
report-type
******************************************************************************
"
report-type
@@
-124,6
+125,7
@@
(lisp-implementation-type)
(lisp-implementation-version)
(machine-type)
(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~)"
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*)
(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)
; (test-initialise-database)