Update domain name to kpe.io

[clsql.git] / tests / test-fdml.lisp

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index e9505b2788ba2f54fa8e8c9e79201c7cdce2a8b3..51cdd02ef417cb9c549d341dac085b5fbddff387 100644 (file)
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -16,8 +16,7 @@
 
 (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*
@@ -533,7 +532,7 @@
              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*
@@ -541,15 +540,16 @@
              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])
@@ -778,4 +778,3 @@
 
 ))
 
-#.(clsql:restore-sql-reader-syntax-state)