projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version 5.0.3: Full foreign string internationalization support
[clsql.git]
/
tests
/
test-init.lisp
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index c428467f1882bb4aa49cb5797727d94e332e35ae..c11a273155d013ed056b43fdef5628d0eb087a43 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-26,6
+26,8
@@
(defvar *rt-oodml*)
(defvar *rt-syntax*)
(defvar *rt-time*)
(defvar *rt-oodml*)
(defvar *rt-syntax*)
(defvar *rt-time*)
+;; Below must be set as nil since test-i18n.lisp is not loaded on all platforms.
+(defvar *rt-i18n* nil)
(defvar *test-database-type* nil)
(defvar *test-database-underlying-type* nil)
(defvar *test-database-type* nil)
(defvar *test-database-underlying-type* nil)
@@
-61,12
+63,16
@@
(setf *test-database-underlying-type*
(clsql-sys:database-underlying-type *default-database*))
(setf *test-database-underlying-type*
(clsql-sys:database-underlying-type *default-database*))
+ ;; If Postgres, turn off notices to console
+ (when (eql db-type :postgresql)
+ (clsql:execute-command "SET client_min_messages = WARNING"))
+
*default-database*)
(defun default-suites ()
"The default list of tests to run."
(append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
*default-database*)
(defun default-suites ()
"The default list of tests to run."
(append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
- *rt-ooddl* *rt-oodml* *rt-syntax* *rt-time*))
+ *rt-ooddl* *rt-oodml* *rt-syntax* *rt-time*
*rt-i18n*
))
(defvar *error-count* 0)
(defvar *error-count* 0)