Adding some tests for sending large strings to and from the database.

[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))
-  (print e *error-output*)
+  (fresh-line *error-output*)
+  (princ e *error-output*)
   (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))
-               (%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))))