anchor.diff:    (check
      ;; this should work
      (equal t (html-statement-p '(:p () "foo")))
  +
  +   ;; and this
  +   (equal t (html-statement-p '(:a (href "foo") "bar")))
   
      ;; check something that is not a list
      (equal nil (html-statement-p '"foo"))
  
positive.code:    ;; check with not a keyword
     (equal nil (html-statement-p '(format nil "foo")))))
  
  (deftest t-attrs-to-html ()
    (check
      (string= "" (attrs-to-html ()))
      (string= " foo=\"bar\"" (attrs-to-html '(foo "bar")))))
  
  (deftest t-void-element-p ()
    (check
  
negative.code: 	(string= "<p>variable</p>" (html (:p () var)))
  	(string= "<p>function</p>" (html (:p () (func "function"))))))))
  
  (deftest t-xml ()
    (check
     (string= "<meta foo=\"bar\">monkeys eats bananas</meta>"
  	    (xml (:meta (foo "bar") "monkeys eats bananas")))))
  
  (deftest do-tests ()
    (check
      (t-html-statement-p)
      (t-create-attributes-string)
      (t-void-element-p)
      (t-html-variable-and-functions)
      (t-generate-html)
      (t-xml)
      (t-html)))
  