1 (in-package #:docgen-test)
5 ; This really is just here to check against regressions
6 (defun run-all-tests ()
8 ((results (mapcar #'funcall (reverse *tests*))))
9 (every #'identity results)))
11 (defun slurp-file (filename &key (element-type 'character) (sequence-type 'string))
12 (with-open-file (str filename :element-type element-type)
13 (let ((seq (make-sequence sequence-type (file-length str)))) (read-sequence seq str) seq)))
15 (defmacro deftest (name f)
22 (error (e) (format t "Got unexpected error in tests: ~A" e)))))
24 (format t "~c[1;32m- ~A passed~c[0m~%" #\Esc ,name #\Esc)
25 (format t "~c[1;31m- ~A failed~c[0m~%" #\Esc ,name #\Esc))
29 (defmacro defsuccesstest (pkg source target)
36 (string= (slurp-file ,target) (docgen:export-package ,pkg)))
37 (docgen:validation-failure (vf)
38 (format t "Validation failure gotten: ~A~%"
39 (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :docgen)) vf)))))))
41 (defmacro deffailuretest (pkg source expected)
48 ((result (docgen:validate-package ,pkg)))
50 (equal ,expected result)
51 (format t " Got error:~%~S~% but expected~%~S~%" result ,expected)))))))
53 (defmacro deffailure-func-test (name doc expected)
55 ,(format nil "Func - ~A" name)
60 (symbol-function (find-symbol "INTERNAL-DOC->AST" :docgen-func))
64 (docgen:validation-failure (vf)
66 ((result (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :docgen)) vf)))
68 (string= ,expected result)
69 (format t " Got error:~%~S~% but expected~%~S~%" result ,expected))))))))
71 (defmacro deffailure-var-test (name doc expected)
73 ,(format nil "Var - ~A" name)
78 (symbol-function (find-symbol "INTERNAL-DOC->AST" :docgen-var))
82 (docgen:validation-failure (vf)
84 ((result (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :docgen)) vf)))
86 (string= ,expected result)
87 (format t " Got error:~%~S~% but expected~%~S~%" result ,expected))))))))
89 (defsuccesstest :success1 "resources/success1.lisp" "resources/success1.md")
90 (deffailuretest :emptydocs "resources/emptydocs.lisp"
91 `((:failure :emptydocs "Package EMPTYDOCS has no documentation")
92 (:failure ,(intern "NO-DOC-CONDITION" :emptydocs) "Symbol NO-DOC-CONDITION has no documentation")
93 (:failure ,(intern "NO-DOC-FUNC" :emptydocs) "Symbol NO-DOC-FUNC has no documentation")))