(sort (mapcar #'string-downcase
(clsql:list-tables :owner *test-database-user*))
#'string<))
- "addr" "company" "ea_join" "employee" "type_table")
+ "addr" "company" "ea_join" "employee" "type_bigint" "type_table")
;; create a table, test for its existence, drop it and test again
(deftest :fddl/table/2
(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
;; Attribute types are vendor specific so need to test a range
(deftest :fddl/attributes/3
- (and (member (clsql:attribute-type [emplid] [employee]) '(:int :integer :int4)) t)
+ (and (member (clsql:attribute-type [emplid] [employee]) '(:int :integer :int4 :number)) t)
t)
(deftest :fddl/attributes/4
- (clsql:attribute-type [first-name] [employee])
- :varchar 30 nil 1)
+ (multiple-value-bind (type length scale nullable)
+ (clsql:attribute-type [first-name] [employee])
+ (values (clsql-sys:in type :varchar :varchar2) length scale nullable))
+ t 30 nil 1)
(deftest :fddl/attributes/5
- (and (member (clsql:attribute-type [birthday] [employee]) '(:datetime :timestamp)) t)
+ (and (member (clsql:attribute-type [birthday] [employee]) '(:datetime :timestamp :date)) t)
t)
(deftest :fddl/attributes/6
- (and (member (clsql:attribute-type [height] [employee]) '(:float :float8)) t)
+ (and (member (clsql:attribute-type [height] [employee]) '(:float :float8 :number)) t)
t)
t nil)
;; create a view, list its attributes and drop it
-(when (clsql-base:db-type-has-views? *test-database-underlying-type*)
+(when (clsql-sys:db-type-has-views? *test-database-underlying-type*)
(deftest :fddl/view/2
(progn (clsql:create-view [lenins-group]
:as [select [first-name] [last-name] [email]