Rename projects, docgen->sheep, checkstyle->wolf

[sheep] / src / test / main.lisp

diff --git a/src/test/main.lisp b/src/test/main.lisp
index 9bae683d13ec013175a444b8b52120f5def15fed..23b780440d84ba7e36fc49db4a2724979f47ed5d 100644 (file)
--- 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))))))))