Refactored find-all and build-object to be more readable, shorter and

[clsql.git] / tests / datasets.lisp

diff --git a/tests/datasets.lisp b/tests/datasets.lisp
index 0d60e97022abfae8cfdcdfa7ffb66fdf97f569a3..63f1cd356dd305468e01f05d58760dec51bf6506 100644 (file)
--- 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))
 
@@ -66,9 +67,7 @@ should we debug (T) or just print and quit.")
 
 (defun %dataset-init (name)
   "Run initialization code and fill database for given dataset."
-      (handler-bind
-         ((error #'generic-error))
-       ;;find items that looks like '(:setup ...),
+       ;;find items that looks like '(:setup ...),
        ;; dispatch the rest.
        (let ((setup (rest (find :setup name :key #'first)))
              (sqldata (rest (find :sqldata name :key #'first)))
@@ -87,7 +86,7 @@ should we debug (T) or just print and quit.")
            ;;presumed to be view-class objects, force them to insert.
            (dolist (o objdata)
              (setf (slot-value o 'clsql-sys::view-database) nil)
-             (clsql-sys:update-records-from-instance o))))))
+             (clsql-sys:update-records-from-instance o)))))
 
 (defun %dataset-cleanup (name)
   "Run cleanup code associated with the given dataset."