* test/test-fddl.lisp: Add two tests for mixed case names
* sql/kmr-mop.lisp, sql/objects.lisp: Since SBCL is the only implementation that
has reversed class slots, change the default for ordered-class-slots so that slots
are now in the same order an in the def-view-class.
* sql/kmr-mop.lisp, sql/objects.lisp: Since SBCL is the only implementation that
has reversed class slots, change the default for ordered-class-slots so that slots
are now in the same order an in the def-view-class.
+ * sql/sql.lisp: Honor case of string table identifier to INSERT-RECORDS
+ * test/test-fddl.lisp: Add two tests for mixed case names
22 May 2004 Kevin Rosenberg
* Version 2.10.21 released
22 May 2004 Kevin Rosenberg
* Version 2.10.21 released
* owner phrases for postgresql and oracle backends
* test of large table with large numbers of rows, greater than 2x the number of
rows (200) returned by the oracle backend at a time
* owner phrases for postgresql and oracle backends
* test of large table with large numbers of rows, greater than 2x the number of
rows (200) returned by the oracle backend at a time
-* test mixed case table identifiers and column identifiers
COMMONSQL INCOMPATIBILITY
COMMONSQL INCOMPATIBILITY
(with-slots (into attributes values query)
ins
(write-string "INSERT INTO " *sql-stream*)
(with-slots (into attributes values query)
ins
(write-string "INSERT INTO " *sql-stream*)
- (output-sql into database)
+ (output-sql
+ (typecase into
+ (string (sql-expression :attribute into))
+ (t into))
+ database)
(when attributes
(write-char #\Space *sql-stream*)
(output-sql attributes database))
(when attributes
(write-char #\Space *sql-stream*)
(output-sql attributes database))
(clsql:drop-table [foo] :if-does-not-exist :ignore))))
"comments" "height" "id" "name")
(clsql:drop-table [foo] :if-does-not-exist :ignore))))
"comments" "height" "id" "name")
+(deftest :fddl/table/4
+ (values
+ (clsql:table-exists-p "MyMixedCase")
+ (progn
+ (clsql:create-table "MyMixedCase" '(([a] integer)))
+ (clsql:table-exists-p "MyMixedCase"))
+ (progn
+ (clsql:drop-table "MyMixedCase")
+ (clsql:table-exists-p "MyMixedCase")))
+ nil t nil)
+
+(deftest :fddl/table/5
+ (prog1
+ (progn
+ (clsql:create-table "MyMixedCase" '(([a] integer)))
+ (clsql:execute-command "insert into MyMixedCase values (5)")
+ (clsql:insert-records :into "MyMixedCase" :values '(6))
+ (clsql:select [a] :from "MyMixedCase" :order-by '((a :asc))))
+ (clsql:drop-table "MyMixedCase"))
+ ((5) (6)))
+
(deftest :fddl/attributes/1
(apply #'values
(sort
(deftest :fddl/attributes/1
(apply #'values
(sort