From 3160a424d78cd51ad3b5a7f828b1d11380b05ea8 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Sat, 23 Jan 2010 15:43:48 -0500 Subject: [PATCH] added a skip this test restart on with-dataset --- tests/datasets.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)))) -- 2.34.1