X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=117074b55a312827cfc65ca7685abc6a9853204d;hp=e9505b2788ba2f54fa8e8c9e79201c7cdce2a8b3;hb=0b757e652eda05d8d824438d925665f17e764d93;hpb=b712c97002b19e418f8430cef1257515a5e3a3d3

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index e9505b2..117074b 100644
--- 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,7 +540,7 @@
 	      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
@@ -778,4 +777,3 @@
 
 ))
 
-#.(clsql:restore-sql-reader-syntax-state)