X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=sheep;a=blobdiff_plain;f=src%2Ftest%2Fmain.lisp;h=9bae683d13ec013175a444b8b52120f5def15fed;hp=572636ef8441419a4781a0698a7c53ca35609e8b;hb=0.2;hpb=2d880c9656734ae0ae9f18b9b8e9a889236e38f8

diff --git a/src/test/main.lisp b/src/test/main.lisp
index 572636e..9bae683 100644
--- a/src/test/main.lisp
+++ b/src/test/main.lisp
@@ -52,7 +52,7 @@
 
 (defmacro deffailure-func-test (name doc expected)
  `(deftest
-   ,name
+   ,(format nil "Func - ~A" name)
    (lambda ()
     (handler-case
      (progn
@@ -68,6 +68,24 @@
         (string= ,expected result)
         (format t "  Got error:~%~S~%  but expected~%~S~%" result ,expected))))))))
 
+(defmacro deffailure-var-test (name doc expected)
+ `(deftest
+   ,(format nil "Var - ~A" name)
+   (lambda ()
+    (handler-case
+     (progn
+      (funcall
+       (symbol-function (find-symbol "INTERNAL-DOC->AST" :docgen-var))
+       '*unused*
+       ,doc)
+      nil)
+     (docgen:validation-failure (vf)
+      (let
+       ((result (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :docgen)) vf)))
+       (or
+        (string= ,expected result)
+        (format t "  Got error:~%~S~%  but expected~%~S~%" result ,expected))))))))
+
 (defsuccesstest :success1 "resources/success1.lisp" "resources/success1.md")
 (deffailuretest :emptydocs "resources/emptydocs.lisp"
  `((:failure :emptydocs "Package EMPTYDOCS has no documentation")