From: Russ Tyndall <russ@acceleration.net>
Date: Sat, 23 Jan 2010 20:43:48 +0000 (-0500)
Subject: added a skip this test restart on with-dataset
X-Git-Tag: v4.3.3~11
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=3160a424d78cd51ad3b5a7f828b1d11380b05ea8

added a skip this test restart on with-dataset
---

diff --git a/tests/datasets.lisp b/tests/datasets.lisp
index c3c17b5..0d60e97 100644
--- 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))
-		(%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))))