X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=d745ff0698e3823e4b2c7881d7f760e25eaac0a8;hp=d77505476aed0fd3fee86f4a5c97e3629b95f98a;hb=fd2493718d0e1114fcbe3dd578dab658ea383e81;hpb=76c718bea5a32b8252daeb5a487860d112011157

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index d775054..d745ff0 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -614,6 +614,15 @@
                              '(:postgresql :oracle)))
 		(clsql-sys:in test :fddl/owner/1))
            (push (cons test "table ownership not supported") skip-tests))
+          ((and (null (clsql-sys:db-type-has-intersect? db-underlying-type))
+		(clsql-sys:in test :fdml/query/7))
+	   (push (cons test "intersect not supported") skip-tests))
+          ((and (null (clsql-sys:db-type-has-except? db-underlying-type))
+		(clsql-sys:in test :fdml/query/8))
+	   (push (cons test "except not supported") skip-tests))
+          ((and (eq *test-database-underlying-type* :mssql)
+                (clsql-sys:in test :fdml/select/9))
+           (push (cons test "mssql uses integer math for AVG") skip-tests))
 	  (t
 	   (push test-form test-forms)))))
       (values (nreverse test-forms) (nreverse skip-tests))))