X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=e64a2acb921a8fcea310830abe954e795624e539;hb=e240c75b15f456422425af42b4064b17cbccef25;hp=1a8ab66aa2e61608d56b3608aa583f8e8646b461;hpb=eb72a5a31260db5acacae85b4e9adbf4c959718d;p=clsql.git

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 1a8ab66..e64a2ac 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -30,6 +30,8 @@
 (defvar *test-database-type* nil)
 (defvar *test-database-underlying-type* nil)
 (defvar *test-database-user* nil)
+(defvar *test-false-database-user* "adsfjalsdkfjlakjsdfl"
+  "For testing ownership, a user that isn't the owner.")
 (defvar *test-start-utime* nil)
 (defvar *test-connection-spec* nil)
 (defvar *test-connection-db-type* nil)
@@ -227,11 +229,19 @@
            (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))
+                (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))
           ((and (not (member *test-database-underlying-type*
                              '(:postgresql :oracle)))
-                (clsql-sys:in test :fddl/owner/1))
+                (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))
           ((and (null (clsql-sys:db-type-has-intersect? db-underlying-type))
                 (clsql-sys:in test :fdml/query/7))