X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=usql-tests%2Ftest-init.lisp;h=33349084864afe13b0fa4027e650c1d4c941d678;hb=dac6f1bff23c77e8535739ac8f4be95bb1ef65b7;hp=0300371fc11b2a1745626fd6e6d5e86305401f8d;hpb=b69ed367889def50db1931ab33fa9bd9a35986ab;p=clsql.git

diff --git a/usql-tests/test-init.lisp b/usql-tests/test-init.lisp
index 0300371..3334908 100644
--- 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)