anchor.diff:   
   
  +(deftest test-downcasing ()
  +  (test-downcasing-in-docstrings)
  +  (test-downcasing-of-section-names))
  +
   (defsection @section-without-title ())
   
  -(deftest test-downcase-uppercase ()
  +(deftest test-downcasing-in-docstrings ()
     (with-test ("unadorned")
       (check-downcasing "NOT-INTERNED" "NOT-INTERNED")
       ;; has no refs
  
positive.code:       (check-downcasing "`XXX`" "`xxx`")
        (check-downcasing "`(PRINT \"hello\")`" "`(print \"hello\")`"))))
  
  (defun check-downcasing (docstring expected)
    (let ((*document-downcase-uppercase-code* t))
      (check-one-liner docstring expected)))
  
negative.code:   (test-read-locative-from-string)
    (test-read-reference-from-string)
    (test-transform-tree)
    (test-macro-arg-names)
    (test-codify)
    (test-plural)
    (test-downcasing)
    (test-link)
    (test-document :markdown)
    (test-document :html)
    (test-function)
  