((and (eq *test-database-type* :oracle)
(clsql-sys:in test :fdml/query/8 :fdml/select/21
:fddl/table/6))
- (push (cons test "syntax not supported") skip-tests))
+ (push (cons test "syntax not supported.") skip-tests))
((and (eq *test-database-type* :odbc)
(eq *test-database-underlying-type* :postgresql)
- (clsql-sys:in test :fddl/owner/1))
- (push (cons test "table ownership not supported by postgresql odbc driver.") skip-tests))
+ (clsql-sys:in test :fddl/owner/1 :fddl/owner/table
+ :fddl/owner/attributes
+ :fddl/owner/attribute-types
+ :fddl/owner/index
+ :fddl/owner/sequence))
- (push (cons test "table ownership not supported by postgresql odbc driver") skip-tests))
++ (push (cons test "table ownership not supported by postgresql odbc driver.") skip-tests))
((and (not (member *test-database-underlying-type*
'(:postgresql :oracle)))
- (clsql-sys:in test :fddl/owner/1))
- (push (cons test "table ownership not supported.") skip-tests))
+ (clsql-sys:in test :fddl/owner/1 :fddl/owner/table
+ :fddl/owner/attributes
+ :fddl/owner/attribute-types
+ :fddl/owner/index
+ :fddl/owner/sequence))
- (push (cons test "table ownership not supported") skip-tests))
++ (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))
+ (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))
+ (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))
+ (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))