From a0fcaf1774e6f423fd23c8daaab9afb8ecb4e03a Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Tue, 26 Jan 2010 16:21:52 -0500 Subject: [PATCH] Adding another attributes test that highlights a fault in the sqlite attribute parser. --- tests/test-fddl.lisp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp index fde195d..a104404 100644 --- 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")) +(def-dataset *ds-fddl-parsing-oddities* + (:setup "CREATE TABLE ATEST ( +A varchar (32), +B varchar(32))") + (:cleanup "DROP TABLE ATEST")) + (setq *rt-fddl* '( @@ -181,6 +187,14 @@ (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 -- 2.34.1