anchor.diff:     (description :application-pane)
      (selector :list-pane
                :mode :exclusive
  -             :name-key #'misc-test-item-name
  -             :items (list
  -                     (make-misc-test-item :name "Empty Records 1"
  -                                          :drawer 'misc-empty-records-1
  -                                          :description "Tests the effect of empty output records on their parent's bounding rectangle. If successful, you will see a circle enclosed in a square. The square should tightly fit the circle. If the rectangle extends all the way to the top/left edges of the pane, McCLIM is not handling this correctly. This specifically exercises addition of empty children in recompute-extent-for-new-child.")
  -                     (make-misc-test-item :name "Empty Records 2"
  -                                          :drawer 'misc-empty-records-2
  -                                          :description "Tests the effect of empty output records on their parent's bounding rectangle. If successful, you will see a circle enclosed in a square. The square should tightly fit the circle. If the rectangle extends all the way to the top/left edges of the pane, McCLIM is not handling this correctly. This specifically tests addition and deletion of an empty child, and failure may point to recompute-extent-for-new-child or recompute-extent-for-changed-child.")
  -                     (make-misc-test-item :name "Empty Records 3"
  -                                          :drawer 'misc-empty-records-3
  -                                          :description "Tests the effect of empty output records on their parent's bounding rectangle. If successful, you will see a circle enclosed in a square. The square should tightly fit the circle. If the rectangle extends all the way to the top/left edges of the pane, McCLIM is not handling this correctly. This test creates a new output record, fills it with content, then clears the record contents.")
  -                     (make-misc-test-item :name "Empty Borders"
  -                                          :drawer 'misc-empty-bordering
  -                                          :description "Tests handling of empty output records by surrounding-output-with-border. If successful, you will see twelve small circles arranged themselves in a larger circle. A likely failure mode will exhibit the circles piled on each other in the upper-left corner of the pane.")
  -		     (make-misc-test-item :name "Underlining"
  -                                          :drawer 'misc-underlining-test
  -					  :description "Tests the underlining border style. You should see five lines of text, equally spaced, with the second and third lines having the phrase 'all live' underlined, first by a thick black line then by a thin dashed red line. If the lines are broken or the spacing is irregular, the :move-cursor nil key of surrounding-output-with-border may not have behaved as expected. "))
  +             :name-key #'misc-test-name
  +             :items (sort (loop for x being the hash-values of *misc-tests*
  +                                collect x) #'string< :key #'misc-test-name)
                :value-changed-callback
                (lambda (pane item)
                  (declare (ignore pane))
  
positive.code:     (format stream "~&We all live in a yellow subroutine.~%")
      (format stream "~&We all live in a yellow subroutine.~%")))
  
  
negative.code:                  (window-clear output)
                   (window-clear description)
                   (with-text-style (description (make-text-style :sans-serif :roman :normal))
                     (write-string (misc-test-description item) description))
                   (funcall (misc-test-drawer item) output)))))
    (:layouts
     (default
       (spacing (:thickness 3)
  