anchor.diff:  	(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-attrs-to-html)
  +    (t-create-attributes-string)
       (t-void-element-p)
       (t-html-variable-and-functions)
       (t-generate-html)
  +    (t-xml)
       (t-html)))
  
positive.code:     ;; test no values is printed with void elements
      (string= "<br />" (html (:br () "this is not printed")))
  
      ;; test a simple html page
      (string= "<html><head><title>title</title><meta these=\"are\" meta=\"tags\" /><link rel=\"stylesheet\" type=\"text/css\" href=\"css.css\" /></head><body><div id=\"box\"><h1>header</h1><p>paragraph</p></div><div id=\"foot\"><p>this is a foot</p></div></body></html>"
  	     (html (:html ()
  
negative.code:   (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"))
  