Commit e12d1e1c authored by ryszard.szopa's avatar ryszard.szopa
Browse files

suppress warnings while testing

darcs-hash:4df00da62e2bbe04611daf79d27c1dc47bcf2af1
parent 65f46a12
......@@ -6,8 +6,10 @@
(def-fixture db-fixture ()
(progn (set-up)
(unwind-protect (&body)
(clean))))
(unwind-protect
(handler-bind ((warning #'muffle-warning))
(&body))
(clean))))
(defmacro db-test (name &body body)
`(test ,(append (fiveam::ensure-list name) '(:fixture db-fixture)) ,@body))
......@@ -18,7 +20,7 @@
(defun clean ()
(pomo:clear-connection-pool)
(sleep .05)
(sleep .1)
(pomo:with-connection ( "test" "richard" "dupa" "localhost")
(postmodern:execute "DROP DATABASE \"submarine-test\";")))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment