X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=51cdd02ef417cb9c549d341dac085b5fbddff387;hb=83b09c87d38cdaf7ce3da8d5a20aa8c5ee4505bc;hp=dd8336be95ed0d0df92477a873b2eaceea2824ea;hpb=2645bad6c8673a32408801e7ea1f8a02a1583d7d;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index dd8336b..51cdd02 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -532,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*
@@ -540,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])