r8822: now passes some of the regression tests

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

diff --git a/usql-tests/test-fdml.lisp b/usql-tests/test-fdml.lisp
index e24bbc644140f31340f865adef04c09ce457decd..ae986faa832929b443595b9700af2f74bbc7a6d8 100644 (file)
--- a/usql-tests/test-fdml.lisp
+++ b/usql-tests/test-fdml.lisp
@@ -23,7 +23,7 @@
     (progn
       (usql:insert-records :into [employee] 
                            :values `(11 1 "Yuri" "Gagarin" "gagarin@soviet.org"
-                                     1 1 1.85 t ,(usql:get-time)))
+                                     1 1 1.85 t ,(clsql-base:get-time)))
       (values 
        (usql:select [first-name] [last-name] [email]
                     :from [employee] :where [= [emplid] 11])
@@ -392,4 +392,4 @@
             (apply #'values (nreverse results)))))))
   nil nil ("lenin@soviet.org"))
 
-#.(usql:restore-sql-reader-syntax-state)
\ No newline at end of file
+#.(usql:restore-sql-reader-syntax-state)