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 df1e1b83356bef4f3a4e00473f9ab58325261c5a..573716d282d30d6437172305459407187ee4abfe 100644 (file)
--- 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 2dcbf4cd4e91fb4912848018ab016aab88073291..dcda1749d22735a35f56744a76a4e4fc6fc0ccfc 100644 (file)
--- 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 adbb8479c90b52820e92ace8d6d409b61f4e6b41..56787a21d012bd3bebde380936f8bf31a2842b80 100644 (file)
--- 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 1ac0207453d4af1ae4b49ee3c11b47874c0fe7fb..b554625387ef557edc4a8376b5bfb877ba797f9f 100644 (file)
--- 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))