projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version 6.6.2
[clsql.git]
/
tests
/
test-fddl.lisp
diff --git
a/tests/test-fddl.lisp
b/tests/test-fddl.lisp
index 8a6ae887229e08f0932ee532d1d6beb9a115e807..41e79d527441ec45745372bd748894dfd8852ef6 100644
(file)
--- a/
tests/test-fddl.lisp
+++ b/
tests/test-fddl.lisp
@@
-44,9
+44,11
@@
B varchar(32))")
;; list current tables
(deftest :fddl/table/1
(with-dataset *ds-fddl*
;; list current tables
(deftest :fddl/table/1
(with-dataset *ds-fddl*
- (sort (mapcar #'string-downcase
- (clsql:list-tables ))
- #'string<))
+ (let ((tables (sort (mapcar #'string-downcase (clsql:list-tables))
+ #'string<)))
+ ;; sqlite has a table for autoincrement sequences that we dont care about if
+ ;; it exists
+ (remove "sqlite_sequence" tables :test #'string-equal)))
("alpha" "bravo"))
;; create a table, test for its existence, drop it and test again
("alpha" "bravo"))
;; create a table, test for its existence, drop it and test again
@@
-105,7
+107,7
@@
B varchar(32))")
(progn
(let ((*backend-warning-behavior*
(if (member *test-database-type*
(progn
(let ((*backend-warning-behavior*
(if (member *test-database-type*
- '(:postgresql :postgresql-socket))
+ '(:postgresql :postgresql-socket
:postgresql-socket3
))
:ignore
:warn)))
(case *test-database-underlying-type*
:ignore
:warn)))
(case *test-database-underlying-type*
@@
-127,7
+129,7
@@
B varchar(32))")
(progn
(let ((*backend-warning-behavior*
(if (member *test-database-type*
(progn
(let ((*backend-warning-behavior*
(if (member *test-database-type*
- '(:postgresql :postgresql-socket))
+ '(:postgresql :postgresql-socket
:postgresql-socket3
))
:ignore
:warn)))
(clsql:create-table [foo] '(([bar] integer :not-null)
:ignore
:warn)))
(clsql:create-table [foo] '(([bar] integer :not-null)
@@
-168,7
+170,8
@@
B varchar(32))")
(with-dataset *ds-fddl*
(multiple-value-bind (type length scale nullable)
(clsql:attribute-type [c] [alpha])
(with-dataset *ds-fddl*
(multiple-value-bind (type length scale nullable)
(clsql:attribute-type [c] [alpha])
- (values (clsql-sys:in type :varchar :varchar2) length scale nullable)))
+ (values (clsql-sys:in type :varchar :varchar2 :nvarchar)
+ length scale nullable)))
t 30 nil 1)
(deftest :fddl/attributes/5
t 30 nil 1)
(deftest :fddl/attributes/5