Add coverage, get to near 100

[sheep] / resources / success1.lisp

diff --git a/resources/success1.lisp b/resources/success1.lisp
index 28d492df7cdae39169d04b6a1798e03400858495..642a3261c722122e8e90f9abdeb2b46649df8755 100644 (file)
--- a/resources/success1.lisp
+++ b/resources/success1.lisp
@@ -6,7 +6,9 @@ This is should all get pulled in and the markdown.md should be equal
 to success1.md.")
  (:export
   #:*special-variable*
+  #:*special-variable-2*
   #:test-condition
+  #:test-struct
   #:func-that-does-stuff #:noargs #:no-args-and-values #:result-list #:has-no-examples
   #:values-result #:has-optional #:has-keywords #:has-rest))
 
@@ -30,16 +32,39 @@ DESCRIPTION:
   When true, it satisfies if coniditions.  When NIL, it does not.
   That may make it seem like it's not very special, but it is.
 
+  But sometimes it needs to reference itself: *SPECIAL-VARIABLE*
+
 EXAMPLES:
 
   (let ((*special-variable* t)) (go)) => 'let-it-go")
 
+(defvar *special-variable-2* nil
+ "*SPECIAL-VARIABLE-2*
+
+VALUE TYPE:
+
+  a generalized boolean
+
+INITIAL VALUE:
+
+  NIL
+
+DESCRIPTION:
+
+  It is special, and a boolean.")
+
 (define-condition test-condition nil nil
  (:documentation
   "Simple documentation.
 
 For a simple condition."))
 
+(defstruct test-struct
+ "Simple documentation.
+
+For a simple structure.  But this structure may go to two lines
+for this part of it.")
+
 (defun func-that-does-stuff (path x)
  "FUNC-THAT-DOES-STUFF PATH X => RESULT