projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10226: 26 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
tests
/
test-init.lisp
diff --git
a/tests/test-init.lisp
b/tests/test-init.lisp
index 5fc308d0b3128a4c1d51cd4fca11331e9df2c834..84d09d3d0bbceb2d4da08110cff0a66f39c1393c 100644
(file)
--- a/
tests/test-init.lisp
+++ b/
tests/test-init.lisp
@@
-164,6
+164,11
@@
:db-info (:join-class address
:home-key aaddressid
:foreign-key addressid
:db-info (:join-class address
:home-key aaddressid
:foreign-key addressid
+ :retrieval :immediate))
+ (employee :db-kind :join
+ :db-info (:join-class employee
+ :home-key aemplid
+ :foreign-key emplid
:retrieval :immediate)))
(:base-table "ea_join"))
:retrieval :immediate)))
(:base-table "ea_join"))
@@
-579,6
+584,11
@@
:fdml/select/21 :fdml/select/32
:fdml/select/33))
(push (cons test "not supported by sqlite") skip-tests))
:fdml/select/21 :fdml/select/32
:fdml/select/33))
(push (cons test "not supported by sqlite") skip-tests))
+ ((and (eql *test-database-type* :sqlite3)
+ (clsql-sys:in test :fddl/view/4 :fdml/select/10
+ :fdml/select/21 :fdml/select/32
+ :fdml/select/33))
+ (push (cons test "not supported by sqlite3") skip-tests))
((and (not (clsql-sys:db-type-has-bigint? db-type))
(clsql-sys:in test :basic/bigint/1))
(push (cons test "bigint not supported") skip-tests))
((and (not (clsql-sys:db-type-has-bigint? db-type))
(clsql-sys:in test :basic/bigint/1))
(push (cons test "bigint not supported") skip-tests))