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))