((and (null (clsql-sys:db-type-has-union? db-underlying-type))
(clsql-sys:in test :fdml/query/6 :fdml/select/31))
(push (cons test "union not supported") skip-tests))
((and (eq *test-database-type* :oracle)
(clsql-sys:in test :fdml/query/8 :fdml/select/21
:fddl/table/6))
((and (null (clsql-sys:db-type-has-union? db-underlying-type))
(clsql-sys:in test :fdml/query/6 :fdml/select/31))
(push (cons test "union not supported") skip-tests))
((and (eq *test-database-type* :oracle)
(clsql-sys:in test :fdml/query/8 :fdml/select/21
:fddl/table/6))