r8822: now passes some of the regression tests

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

diff --git a/usql-tests/test-ooddl.lisp b/usql-tests/test-ooddl.lisp
index cabf06a0140330e38a9529686def4277a2f7ccdf..aed77007778a70765aa5db92f7d2a84fb8acf4de 100644 (file)
--- a/usql-tests/test-ooddl.lisp
+++ b/usql-tests/test-ooddl.lisp
@@ -58,7 +58,7 @@
   "Lenin")
 
 (deftest :ooddl/time/1
-    (let* ((now (usql:get-time)))
+    (let* ((now (clsql-base:get-time)))
       (when (member *test-database-type* '(:postgresql :postgresql-socket))
         (usql:execute-command "set datestyle to 'iso'"))
       (usql:update-records [employee] :av-pairs `((birthday ,now))
@@ -66,11 +66,11 @@
       (let ((dbobj (car (usql:select 'employee :where [= [birthday] now]))))
         (values
          (slot-value dbobj 'last-name)
-         (usql:time= (slot-value dbobj 'birthday) now))))
+         (clsql-base:time= (slot-value dbobj 'birthday) now))))
   "Lenin" t)
 
 (deftest :ooddl/time/2
-    (let* ((now (usql:get-time))
+    (let* ((now (clsql-base:get-time))
            (fail-index -1))
       (when (member *test-database-type* '(:postgresql :postgresql-socket))
         (usql:execute-command "set datestyle to 'iso'"))
@@ -78,10 +78,10 @@
         (usql:update-records [employee] :av-pairs `((birthday ,now))
                              :where [= [emplid] 1])
         (let ((dbobj (car (usql:select 'employee :where [= [birthday] now]))))
-          (unless (usql:time= (slot-value dbobj 'birthday) now)
+          (unless (clsql-base:time= (slot-value dbobj 'birthday) now)
             (setf fail-index x))
-          (setf now (usql:roll now :day (* 10 x)))))
+          (setf now (clsql-base:roll now :day (* 10 x)))))
       fail-index)
   -1)
 
-#.(usql:restore-sql-reader-syntax-state)
\ No newline at end of file
+#.(usql:restore-sql-reader-syntax-state)