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

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index d775054..5cdcb78 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -614,11 +614,23 @@
                              '(: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))
+          ((and (not (member *test-database-underlying-type* 
+                             '(:postgresql :mysql :sqlite3)))
+                (clsql-sys:in test :fdml/select/37 :fdml/select/38))
+           (push (cons test "LIMIT keyword not supported in SELECT") skip-tests))
 	  (t
 	   (push test-form test-forms)))))
       (values (nreverse test-forms) (nreverse skip-tests))))
 
-
 (defun rapid-load (type &optional (position 0))
   "Rapid load for interactive testing."
   (when *default-database*