(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)
(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))))