r10217: new debian package

[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
+                                 :retrieval :immediate))
+   (employee :db-kind :join
+            :db-info (:join-class employee
+                                 :home-key aemplid
+                                 :foreign-key emplid
                                  :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))
+         ((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))