run-time instantiation of variables in reader macros.
* TODO: Remove item already complete
16 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
* doc/TODO: New file
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
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
COMMONSQL INCOMPATIBILITY
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
o userenv (Oracle specific but deprecated in Oracle 9)
VARIANCES FROM COMMONSQL
("Andropov" "Brezhnev" "Chernenko" "Gorbachev" "Kruschev" "Putin" "Stalin"
"Trotsky" "Yeltsin"))
("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]
(deftest :fdml/do-query/1
(let ((result '()))
(clsql:do-query ((name) [select [last-name] :from [employee]
:fdml/select/21 :fdml/select/32
:fdml/select/33))
(push (cons test "not supported by sqlite") skip-tests))
: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))
((and (eql *test-database-underlying-type* :mysql)
(clsql-sys:in test :fdml/select/22 :fdml/query/5
:fdml/query/7 :fdml/query/8))