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 0300371fc11b2a1745626fd6e6d5e86305401f8d..33349084864afe13b0fa4027e650c1d4c941d678 100644 (file)
--- a/usql-tests/test-init.lisp
+++ b/usql-tests/test-init.lisp
@@ -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)