projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9235: fix test
[clsql.git]
/
tests
/
test-init.lisp
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index 87ae7175e5c4fadae4539695a62aef216391ec79..489b4875dbc07ab4e2205f8c5f946330cd192fdc 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-160,7
+160,7
@@
(truncate-database :database *default-database*)
(setf *test-database-underlying-type*
(truncate-database :database *default-database*)
(setf *test-database-underlying-type*
- (clsql
-sys
:database-underlying-type *default-database*))
+ (clsql:database-underlying-type *default-database*))
*default-database*)
*default-database*)
@@
-379,7
+379,7
@@
(clsql:initialize-database-type :database-type db-type))))
(defun write-report-banner (report-type db-type stream)
(clsql:initialize-database-type :database-type db-type))))
(defun write-report-banner (report-type db-type stream)
- (format
*report-stream*
+ (format
stream
"~&
******************************************************************************
*** CLSQL ~A begun at ~A
"~&
******************************************************************************
*** CLSQL ~A begun at ~A
@@
-443,6
+443,7
@@
(defun compute-tests-for-backend (db-type db-underlying-type)
(defun compute-tests-for-backend (db-type db-underlying-type)
+ (declare (ignorable db-type))
(let ((test-forms '())
(skip-tests '()))
(dolist (test-form (append (test-basic-forms)
(let ((test-forms '())
(skip-tests '()))
(dolist (test-form (append (test-basic-forms)