projects
/
sheep
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add Licensing and Contributing
[sheep]
/
src
/
test
/
main.lisp
diff --git
a/src/test/main.lisp
b/src/test/main.lisp
index 9bae683d13ec013175a444b8b52120f5def15fed..9db1bc74d7c5ee3441785c8ccddac5e66b5fcdf9 100644
(file)
--- a/
src/test/main.lisp
+++ b/
src/test/main.lisp
@@
-1,4
+1,5
@@
-(in-package #:docgen-test)
+; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3. See distributed LICENSE.txt.
+(in-package #:sheep-test)
(defvar *tests* nil)
(defvar *tests* nil)
@@
-33,10
+34,10
@@
(handler-case
(progn
(load ,source)
(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~%"
(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
(defmacro deffailuretest (pkg source expected)
`(deftest
@@
-45,7
+46,7
@@
(progn
(load ,source)
(let
(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)))))))
(or
(equal ,expected result)
(format t " Got error:~%~S~% but expected~%~S~%" result ,expected)))))))
@@
-57,13
+58,13
@@
(handler-case
(progn
(funcall
(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)
'unused
,doc)
nil)
- (
docgen
:validation-failure (vf)
+ (
sheep
:validation-failure (vf)
(let
(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))))))))
(or
(string= ,expected result)
(format t " Got error:~%~S~% but expected~%~S~%" result ,expected))))))))
@@
-75,13
+76,13
@@
(handler-case
(progn
(funcall
(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)
'*unused*
,doc)
nil)
- (
docgen
:validation-failure (vf)
+ (
sheep
:validation-failure (vf)
(let
(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))))))))
(or
(string= ,expected result)
(format t " Got error:~%~S~% but expected~%~S~%" result ,expected))))))))