X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=70d54d75f0f4ec22ef47a1f7472da32fc32fe871;hb=5398a720dd42b3c2787ff67414e6ce424bc34e1b;hp=d98cbf226e4e2ce2490202b7ba0f559b6c8ac5fc;hpb=8ee8fd019f504602519a38b78db018b5c1ec1e25;p=clsql.git

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index d98cbf2..70d54d7 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -171,7 +171,8 @@
 	    :db-info (:join-class address
 				  :home-key aaddressid
 				  :foreign-key addressid
-				  :retrieval :deferred)))
+				  :retrieval :deferred
+				  :set nil)))
   (:base-table "ea_join"))
 
 (defun test-connect-to-database (db-type spec)
@@ -557,6 +558,9 @@
 		(clsql-sys:in test :fdml/select/22 :fdml/query/5 
 				:fdml/query/7 :fdml/query/8))
 	   (push (cons test "not supported by mysql") skip-tests))
+	  ((and (null (clsql-sys:db-type-has-union? db-underlying-type))
+		(clsql-sys:in test :fdml/query/6))
+	   (push (cons test "union not supported") skip-tests))
 	  (t
 	   (push test-form test-forms)))))
       (values (nreverse test-forms) (nreverse skip-tests))))