X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=dce8d432411669a86df2b624db3894de2ce6fe50;hb=dea46c447f6688f1519a6fbe7f5998d0eab7474c;hp=a3228ab189707b62e162f451ae762785950d68b8;hpb=645d2ea7396466b8673e3421b55e45cd327f0195;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index a3228ab..dce8d43 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])
@@ -368,7 +368,7 @@
  ("1" "2" "3" "4"))
 
 (deftest :fdml/select/21 
-  (clsql:select [substr [first-name] 1 4] :from [employee] 
+  (clsql:select [substring [first-name] 1 4] :from [employee] 
                 :flatp t :order-by [emplid] :field-names nil)
  ("Vlad" "Jose" "Leon" "Niki" "Leon" "Yuri" "Kons" "Mikh" "Bori" "Vlad"))