projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b69ed36
)
r8827: correct ignore-errors
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 6 Apr 2004 07:15:57 +0000
(07:15 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 6 Apr 2004 07:15:57 +0000
(07:15 +0000)
usql-tests/test-init.lisp
patch
|
blob
|
history
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)