X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=eac258f278200a4f5db41fc19428c5655a97dbc7;hb=3770e7b13ca9fe756505f9cd90636ea18a5b5d63;hp=bf57c13c0d638df3767a975ca8e85251e3d9902c;hpb=a194659ff405bed6fc42651d907f5ba76999bce3;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index bf57c13..eac258f 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -24,10 +24,10 @@
 	
 ;; inserts a record using all values only and then deletes it 
 (deftest :fdml/insert/1
-    (progn
+    (let ((now (get-universal-time)))
       (clsql:insert-records :into [employee] 
-                           :values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
-                                     1 1 1.85 t ,(clsql:get-time)))
+       :values `(11 1 "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])
@@ -657,6 +657,7 @@
             (apply #'values (nreverse results))))))
   nil nil ("lenin@soviet.org"))
 
+
 ))
 
 #.(clsql:restore-sql-reader-syntax-state)