projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9370: * sql/db-interface.lisp: Add new db-type-has-union?
[clsql.git]
/
tests
/
test-init.lisp
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index d98cbf226e4e2ce2490202b7ba0f559b6c8ac5fc..70d54d75f0f4ec22ef47a1f7472da32fc32fe871 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-171,7
+171,8
@@
:db-info (:join-class address
:home-key aaddressid
:foreign-key addressid
:db-info (:join-class address
:home-key aaddressid
:foreign-key addressid
- :retrieval :deferred)))
+ :retrieval :deferred
+ :set nil)))
(:base-table "ea_join"))
(defun test-connect-to-database (db-type spec)
(:base-table "ea_join"))
(defun test-connect-to-database (db-type spec)
@@
-557,6
+558,9
@@
(clsql-sys:in test :fdml/select/22 :fdml/query/5
:fdml/query/7 :fdml/query/8))
(push (cons test "not supported by mysql") skip-tests))
(clsql-sys:in test :fdml/select/22 :fdml/query/5
:fdml/query/7 :fdml/query/8))
(push (cons test "not supported by mysql") skip-tests))
+ ((and (null (clsql-sys:db-type-has-union? db-underlying-type))
+ (clsql-sys:in test :fdml/query/6))
+ (push (cons test "union not supported") skip-tests))
(t
(push test-form test-forms)))))
(values (nreverse test-forms) (nreverse skip-tests))))
(t
(push test-form test-forms)))))
(values (nreverse test-forms) (nreverse skip-tests))))