projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
49718a0
)
added a skip this test restart on with-dataset
author
Russ Tyndall
<russ@acceleration.net>
Sat, 23 Jan 2010 20:43:48 +0000
(15:43 -0500)
committer
Nathan Bird
<nathan@acceleration.net>
Wed, 27 Jan 2010 22:03:59 +0000
(17:03 -0500)
tests/datasets.lisp
patch
|
blob
|
history
diff --git
a/tests/datasets.lisp
b/tests/datasets.lisp
index c3c17b592cf9abdd90149e77a9cc7f5a89631ec8..0d60e97022abfae8cfdcdfa7ffb66fdf97f569a3 100644
(file)
--- a/
tests/datasets.lisp
+++ b/
tests/datasets.lisp
@@
-43,7
+43,10
@@
should we debug (T) or just print and quit.")
(retry-dataset-init ()
:report ,(format nil "Retry dataset('~a) init: (with any dataset changes)"
(symbol-name name))
(retry-dataset-init ()
:report ,(format nil "Retry dataset('~a) init: (with any dataset changes)"
(symbol-name name))
- (%dataset-init ,name)))
+ (%dataset-init ,name))
+ (skip-this-test ()
+ :report "FAIL and run the next test"
+ (throw 'quit-dataset :data-set-failure)))
,@body)
(%dataset-cleanup ,name))))
,@body)
(%dataset-cleanup ,name))))