r8827: correct ignore-errors

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

diff --git a/usql-tests/test-init.lisp b/usql-tests/test-init.lisp
index 3076a21d0d11ef4b469a5d9592f1c64476c83416..33349084864afe13b0fa4027e650c1d4c941d678 100644 (file)
--- a/usql-tests/test-init.lisp
+++ b/usql-tests/test-init.lisp
@@ -29,7 +29,7 @@
            :initarg :height)
    (married :db-kind :base :accessor married :type boolean :nulls-ok t
             :initarg :married)
-   (birthday :nulls-ok t :type wall-time :initarg :birthday)
+   (birthday :nulls-ok t :type clsql-base:wall-time :initarg :birthday)
    (hobby :db-kind :virtual :initarg :hobby :initform nil)))
   
 (def-view-class employee (person)
@@ -244,9 +244,15 @@
                 :make-default t
                 :if-exists :old))
 
+(defmacro with-ignore-errors (&rest forms)
+  `(progn
+     ,@(mapcar
+       (lambda (x) (list 'ignore-errors x))
+       forms)))
+
 (defun test-initialise-database ()
     ;; Delete the instance records
-  (ignore-errors 
+  (with-ignore-errors 
     (usql:delete-instance-records company1)
     (usql:delete-instance-records employee1)
     (usql:delete-instance-records employee2)