r9185: first effort at support field names in QUERY calls, still needs testing

[clsql.git] / tests / test-init.lisp

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index ca402ce88341e641c6a143c7c7634b9e2426f09c..edbb2eb2eca4d69b3c2b2d4c07b847b89b13619f 100644 (file)
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -137,8 +137,8 @@
                 :make-default t
                 :if-exists :old)
   
-  (unless (db-backend-has-create/destroy-db? db-type)
-    (truncate-database :database *default-database*))
+  ;; Ensure database is empty
+  (truncate-database :database *default-database*)
   
   (setf *test-database-underlying-type*
        (clsql-sys:database-underlying-type *default-database*))