X-Git-Url: https://code.consxy.com/gitweb/?a=blobdiff_plain;f=src%2Ftest%2Fmain.lisp;h=23b780440d84ba7e36fc49db4a2724979f47ed5d;hb=0629de913fe5fdc299cb388b4c73bc1f668beb86;hp=9bae683d13ec013175a444b8b52120f5def15fed;hpb=0d2cc286fe5fb8e85795d261620e422442ce5ef9;p=sheep diff --git a/src/test/main.lisp b/src/test/main.lisp index 9bae683..23b7804 100644 --- a/src/test/main.lisp +++ b/src/test/main.lisp @@ -1,4 +1,4 @@ -(in-package #:docgen-test) +(in-package #:sheep-test) (defvar *tests* nil) @@ -33,10 +33,10 @@ (handler-case (progn (load ,source) - (string= (slurp-file ,target) (docgen:export-package ,pkg))) - (docgen:validation-failure (vf) + (string= (slurp-file ,target) (sheep:export-package ,pkg))) + (sheep:validation-failure (vf) (format t "Validation failure gotten: ~A~%" - (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :docgen)) vf))))))) + (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :sheep)) vf))))))) (defmacro deffailuretest (pkg source expected) `(deftest @@ -45,7 +45,7 @@ (progn (load ,source) (let - ((result (docgen:validate-package ,pkg))) + ((result (sheep:validate-package ,pkg))) (or (equal ,expected result) (format t " Got error:~%~S~% but expected~%~S~%" result ,expected))))))) @@ -57,13 +57,13 @@ (handler-case (progn (funcall - (symbol-function (find-symbol "INTERNAL-DOC->AST" :docgen-func)) + (symbol-function (find-symbol "INTERNAL-DOC->AST" :sheep-func)) 'unused ,doc) nil) - (docgen:validation-failure (vf) + (sheep:validation-failure (vf) (let - ((result (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :docgen)) vf))) + ((result (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :sheep)) vf))) (or (string= ,expected result) (format t " Got error:~%~S~% but expected~%~S~%" result ,expected)))))))) @@ -75,13 +75,13 @@ (handler-case (progn (funcall - (symbol-function (find-symbol "INTERNAL-DOC->AST" :docgen-var)) + (symbol-function (find-symbol "INTERNAL-DOC->AST" :sheep-var)) '*unused* ,doc) nil) - (docgen:validation-failure (vf) + (sheep:validation-failure (vf) (let - ((result (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :docgen)) vf))) + ((result (funcall (symbol-function (find-symbol "VALIDATION-FAILURE-MSG" :sheep)) vf))) (or (string= ,expected result) (format t " Got error:~%~S~% but expected~%~S~%" result ,expected))))))))