projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
made booleans work correctly for objects in postgresql-socket3
[clsql.git]
/
tests
/
test-init.lisp
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index 8064aa0df014e52c93b98b185cc2fd84065d91c3..57a3cfcb7135914e94171bcc31d23ee02a84d627 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-474,6
+474,8
@@
(defun run-tests (&key (report-stream *standard-output*) (sexp-report-stream nil))
(defun run-tests (&key (report-stream *standard-output*) (sexp-report-stream nil))
+ ;; clear SQL-OUTPUT cache
+ (setq clsql-sys::*output-hash* (make-hash-table :test #'equal))
(let ((specs (read-specs))
(*report-stream* report-stream)
(*sexp-report-stream* sexp-report-stream)
(let ((specs (read-specs))
(*report-stream* report-stream)
(*sexp-report-stream* sexp-report-stream)
@@
-563,7
+565,8
@@
(let ((test-forms '())
(skip-tests '()))
(dolist (test-form (append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
(let ((test-forms '())
(skip-tests '()))
(dolist (test-form (append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
- *rt-ooddl* *rt-oodml* *rt-syntax*))
+ *rt-ooddl* *rt-oodml* *rt-syntax* *rt-time*
+ ))
(let ((test (second test-form)))
(cond
((and (null (clsql-sys:db-type-has-views? db-underlying-type))
(let ((test (second test-form)))
(cond
((and (null (clsql-sys:db-type-has-views? db-underlying-type))