(in-package #:clsql-tests)
-#.(clsql:locally-enable-sql-reader-syntax)
-
+(clsql-sys:file-enable-sql-reader-syntax)
;;started defining an independent dataset that doesn't depend on the view-classes
;; but there is a *lot* of stuff in the file assuming that dataset.
;; (def-dataset *ds-fdml*
being each tuple in
[select [addressid] :from [addr] :order-by [addressid]]
collect addressid))
- (1 2))
+ (1 2 3))
(deftest :fdml/loop/3
(with-dataset *ds-employees*
being each tuple in
[select [addressid] :from [addr] :order-by [addressid]]
collect addressid))
- (1 2))
+ (1 2 3))
;; inserts a record using all values only and then deletes it
(deftest :fdml/insert/1
(with-dataset *ds-employees*
(let ((now (get-universal-time)))
- (clsql:insert-records :into [employee]
- :values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
- 1 1 1.85 t ,(clsql:utime->time now) ,now))
+ (clsql:insert-records
+ :into [employee]
+ :values `(11 1 "clsql-sys::astronaut" "Yuri" "Gagarin" "gagarin@soviet.org"
+ 1 1 1.85 t ,(clsql:utime->time now) ,now))
(values
(clsql:select [first-name] [last-name] [email]
:from [employee] :where [= [emplid] 11])
))
-#.(clsql:restore-sql-reader-syntax-state)