From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Sat, 6 Feb 2010 07:28:12 +0000 (-0700)
Subject: Turn off benign console messages when testing on Postgres
X-Git-Tag: v5.0.0~10
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=4d282ef8435b5462f10e28873c85ab4d960b9fea

Turn off benign console messages when testing on Postgres
---

diff --git a/ChangeLog b/ChangeLog
index 572da10..29c63d0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2010-02-06  Kevin Rosenberg <kevin@rosenberg.net>
+	* tests/test-init.lisp: Turn off the benign console notices for
+	testing on postgres.
+
 2010-02-05  Kevin Rosenberg <kevin@rosenberg.net>
 	* clsql-test.asd, tests/{test-i18n,test-init}.lisp: 
 	Load test-i18n.lisp and use its tests as long as 'uffi:no-i18n is
diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 2481e83..c11a273 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -63,6 +63,10 @@
   (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 ()