X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=sheep;a=blobdiff_plain;f=src%2Ftest%2Fmain.lisp;h=270609760f7b101bc940a224c2f602f989af8115;hp=3cfb79e163d535176a4b2d3e197f766fd83304ab;hb=683928f;hpb=4c8ef06ce7bff14e78e79051870291d5075c42ea;ds=sidebyside

diff --git a/src/test/main.lisp b/src/test/main.lisp
index 3cfb79e..2706097 100644
--- a/src/test/main.lisp
+++ b/src/test/main.lisp
@@ -27,8 +27,14 @@
  `(deftest
    ,source
    (lambda ()
-    (load ,source)
-    (ignore-errors (string= (slurp-file ,target) (docgen:export-package ,pkg))))))
+    (handler-case
+     (progn
+      (load ,source)
+      (string= (slurp-file ,target) (docgen:export-package ,pkg)))
+     (docgen:validation-failure (vf)
+      (format t "Error gotten: ~A~%"
+       (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :docgen)) vf)))
+     (error (e) (format t "Error gotten: ~A~%" e))))))
 
 (defmacro deffailure-func-test (name doc expected)
  `(deftest