From: Kevin M. Rosenberg Date: Sun, 16 May 2004 14:33:38 +0000 (+0000) Subject: r9378: * test/test-fdml.lisp: Added FDML/SELECT/34 to test X-Git-Tag: v3.8.6~442 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=d9b32644383f3c4087d0ecac10c645f38d17648d r9378: * test/test-fdml.lisp: Added FDML/SELECT/34 to test run-time instantiation of variables in reader macros. * TODO: Remove item already complete --- diff --git a/ChangeLog b/ChangeLog index df1e1b8..573716d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,9 @@ 16 May 2004 Kevin Rosenberg (kevin@rosenberg.net) * doc/TODO: New file - + * test/test-fdml.lisp: Added FDML/SELECT/34 to test + run-time instantiation of variables in reader macros. + * TODO: Remove item already complete + 16 May 2004 Marcus Pearce (m.t.pearce@city.ac.uk) * sql/syntax.lisp: added condition to the reader macro to treat [*] as a column identifier (rather than an operation) for CommonSQL diff --git a/TODO b/TODO index 2dcbf4c..dcda174 100644 --- a/TODO +++ b/TODO @@ -11,7 +11,6 @@ TESTS TO ADD COMMONSQL INCOMPATIBILITY - o variables (e.g., table identifiers) should be instantiated at runtime o userenv (Oracle specific but deprecated in Oracle 9) VARIANCES FROM COMMONSQL diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp index adbb847..56787a2 100644 --- a/tests/test-fdml.lisp +++ b/tests/test-fdml.lisp @@ -447,6 +447,15 @@ ("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Putin" "Stalin" "Trotsky" "Yeltsin")) +(deftest :fdml/select/34 + (loop for x from 1 below 5 + collect + (car + (clsql:select [last-name] :from [employee] + :where [= [emplid] x] + :flatp t :result-types nil :field-names nil))) + ("Lenin" "Stalin" "Trotsky" "Kruschev")) + (deftest :fdml/do-query/1 (let ((result '())) (clsql:do-query ((name) [select [last-name] :from [employee] diff --git a/tests/test-init.lisp b/tests/test-init.lisp index 1ac0207..b554625 100644 --- a/tests/test-init.lisp +++ b/tests/test-init.lisp @@ -556,6 +556,9 @@ :fdml/select/21 :fdml/select/32 :fdml/select/33)) (push (cons test "not supported by sqlite") skip-tests)) + ((and (eql *test-database-underlying-type* :mysql) + (clsql-sys:in test :fdml/select/26)) + (push (cons test "string table aliases not supported") skip-tests)) ((and (eql *test-database-underlying-type* :mysql) (clsql-sys:in test :fdml/select/22 :fdml/query/5 :fdml/query/7 :fdml/query/8))