projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Version 5.0.3: Full foreign string internationalization support
[clsql.git]
/
tests
/
datasets.lisp
diff --git
a/tests/datasets.lisp
b/tests/datasets.lisp
index 114deaccccafe2a0becbba14dbe05d06515c4946..1e922411966152eb0deb561148b78ede01695912 100644
(file)
--- a/
tests/datasets.lisp
+++ b/
tests/datasets.lisp
@@
-20,7
+20,8
@@
should we debug (T) or just print and quit.")
(when (and *dataset-debug-on-error*
*debugger-hook*)
(invoke-debugger e))
(when (and *dataset-debug-on-error*
*debugger-hook*)
(invoke-debugger e))
- (print e *error-output*)
+ (fresh-line *error-output*)
+ (princ e *error-output*)
(throw 'quit-dataset e))
(defmacro def-dataset (name &body body)
(throw 'quit-dataset e))
(defmacro def-dataset (name &body body)
@@
-43,7
+44,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))))