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

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))))