projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3de4291
)
Adding another attributes test that highlights a fault in the sqlite attribute parser.
author
Nathan Bird
<nathan@acceleration.net>
Tue, 26 Jan 2010 21:21:52 +0000
(16:21 -0500)
committer
Nathan Bird
<nathan@acceleration.net>
Tue, 26 Jan 2010 21:25:58 +0000
(16:25 -0500)
tests/test-fddl.lisp
patch
|
blob
|
history
diff --git
a/tests/test-fddl.lisp
b/tests/test-fddl.lisp
index fde195db6d0e30990fb1bce8e26676f5e5b34742..a1044045a2b2035f51e16370081379def3a11042 100644
(file)
--- a/
tests/test-fddl.lisp
+++ b/
tests/test-fddl.lisp
@@
-33,6
+33,12
@@
"3,'matey','1992-02-29',0.0")
(:cleanup "DROP TABLE ALPHA" "DROP TABLE BRAVO"))
"3,'matey','1992-02-29',0.0")
(:cleanup "DROP TABLE ALPHA" "DROP TABLE BRAVO"))
+(def-dataset *ds-fddl-parsing-oddities*
+ (:setup "CREATE TABLE ATEST (
+A varchar (32),
+B varchar(32))")
+ (:cleanup "DROP TABLE ATEST"))
+
(setq *rt-fddl*
'(
(setq *rt-fddl*
'(
@@
-181,6
+187,14
@@
(and (member (clsql:attribute-type [t_bigint] [TYPE_BIGINT]) '(:bigint :int8)) t))
t)
(and (member (clsql:attribute-type [t_bigint] [TYPE_BIGINT]) '(:bigint :int8)) t))
t)
+(deftest :fddl/attributes/8
+ ;;this is mostly from sqlite3 sending back
+ (with-dataset *ds-fddl-parsing-oddities*
+ (values
+ (clsql-sys:in (clsql:attribute-type [a] [atest]) :varchar :varchar2)
+ (clsql-sys:in (clsql:attribute-type [b] [atest]) :varchar :varchar2)))
+ t t)
+
;; create a view, test for existence, drop it and test again
(deftest :fddl/view/1
;; create a view, test for existence, drop it and test again
(deftest :fddl/view/1