t (2 3 4 5 6 7 8 9 10))
-(deftest :fdml/execute-command/1
- (with-dataset *ds-employees*
- (values
- (clsql:table-exists-p [foo] :owner *test-database-user*)
- (progn
- (clsql:execute-command "create table foo (bar integer)")
- (clsql:table-exists-p [foo] :owner *test-database-user*))
- (progn
- (clsql:execute-command "drop table foo")
- (clsql:table-exists-p [foo] :owner *test-database-user*))))
- nil t nil)
-
-
;; compare min, max and average hieghts in inches (they're quite short
;; these guys!)
(deftest :fdml/select/1
(("Yuri" "Gagarin" "gagarin@soviet.org"))
(("Vladimir" "Lenin" "lenin@soviet.org")))
-
-
;; starts a transaction deletes a record and then rolls back the deletion
(deftest :fdml/transaction/1
(with-dataset *ds-employees*