projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added tests for symbols valued slots, and better printer/reader bindings
[clsql.git]
/
tests
/
test-fddl.lisp
diff --git
a/tests/test-fddl.lisp
b/tests/test-fddl.lisp
index f7fb89bed93d967a22513277926f6f76e5d63b61..41e79d527441ec45745372bd748894dfd8852ef6 100644
(file)
--- a/
tests/test-fddl.lisp
+++ b/
tests/test-fddl.lisp
@@
-107,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*
@@
-129,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)