(use gumbo test)

(test-group "parse some html"
  (test '(*TOP* (html (head) (body (h1 "Test"))))
        (html->sxml "<h1>Test</h1>"))
  (test '(*TOP* (html (head) (body (div "one" (b "two" (i "three")) "four"))))
        (html->sxml "<div>one<b>two<i>three</i></b>four</div>"))
  (test '(*TOP* (html (head) (body (h1 (@ (class "foo") (id "bar")) "Test"))))
        (html->sxml "<h1 class=\"foo\" id=\"bar\">Test</h1>"))
  (test '(*TOP* (*COMMENT* " example comment ") (html (head) (body)))
        (html->sxml "<!-- example comment -->"))
  (test '(*TOP* (html (head (template (b "test"))) (body)))
        (html->sxml "<template><b>test</b></template>"))
  (test '(*TOP* (html (head) (body (div "\n    \n" (b "test") "\n  "))))
        (html->sxml "  <div>\n    \n<b>test</b>\n  </div>"))
  (test '(*TOP* (html (head) (body (my-custom-tag (@ (data-foo "bar")) "baz"))))
        (html->sxml "<my-custom-tag data-foo=\"bar\">baz</my-custom-tag>")))

(test-exit)