X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fdatasets.lisp;h=1e922411966152eb0deb561148b78ede01695912;hb=1a446890f95ab363af82529a133546d722ef21b1;hp=c3c17b592cf9abdd90149e77a9cc7f5a89631ec8;hpb=f70b3a35d7805b8cd6a3fb7f68eab04155bb7b1a;p=clsql.git

diff --git a/tests/datasets.lisp b/tests/datasets.lisp
index c3c17b5..1e92241 100644
--- a/tests/datasets.lisp
+++ b/tests/datasets.lisp
@@ -20,6 +20,7 @@ should we debug (T) or just print and quit.")
   (when (and *dataset-debug-on-error*
 	     *debugger-hook*)
     (invoke-debugger e))
+  (fresh-line *error-output*)
   (princ e *error-output*)
   (throw 'quit-dataset e))
 
@@ -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))
-		(%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))))