anchor.diff:      ;; test no values is printed with void elements
       (string= "<br />" (html (:br () "this is not printed")))
   
  +    ;; nothing should be printed for nil
  +    (string= "" (html nil))
  +    (string= "<p>foo</p><p>bar</p>" (html (:p () "foo")
  +					  nil
  +					  (:p () "bar")))
  +
       ;; 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 ()
  
positive.code:   (check
     ;; this should work
     (equal t (html-statement-p '(:p () "foo")))
  
     ;; check something that is not a list
     (equal nil (html-statement-p '"foo"))
  
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)))
  