anchor.diff:            "there world"))))))
   
   (test explicit-spaces
  -      (is (equal "<div>hi<span> there</span></div>"
  -                 (let (*print-pretty*)
  -                   (spinneret:with-html-string (:div "hi" (:span " there")))))))
  +  (is (equal "<div>hi<span> there</span></div>"
  +             (let (*print-pretty*)
  +               (spinneret:with-html-string (:div "hi" (:span " there"))))))
  +  (is (visually-equal
  +       #.(format nil "~
  +<div>hi <span>there</span>
  +</div>")
  +       (let ((*print-pretty* t))
  +         (spinneret:with-html-string
  +           (:div "hi " (:span "there")))))))
  
positive.code:  <head>
    <meta charset=UTF-8>
   </head>
   <body>
    <a>hai</a>
   </body>
  </html>")))))
  
  
negative.code: 
  (test indent-problem
    (let ((*print-pretty* t))
      (is (visually-equal
           (with-html-string
             (:ul (:li (:a "hai"))))
           (format nil "~
  