(defsuite
  "adapter-form-predicates"
  (deftest "if is a render form" (assert-true (render-html-form? "if")))
  (deftest "when is a render form" (assert-true (render-html-form? "when")))
  (deftest "cond is a render form" (assert-true (render-html-form? "cond")))
  (deftest "let is a render form" (assert-true (render-html-form? "let")))
  (deftest "map is a render form" (assert-true (render-html-form? "map")))
  (deftest
    "filter is a render form"
    (assert-true (render-html-form? "filter")))
  (deftest
    "scope is a render form"
    (assert-true (render-html-form? "scope")))
  (deftest
    "provide is a render form"
    (assert-true (render-html-form? "provide")))
  (deftest
    "div is not a render form"
    (assert-false (render-html-form? "div")))
  (deftest
    "span is not a render form"
    (assert-false (render-html-form? "span")))
  (deftest
    "defcomp is a render form"
    (assert-true (render-html-form? "defcomp")))
  (deftest
    "defisland is a render form"
    (assert-true (render-html-form? "defisland")))
  (deftest
    "defmacro is a render form"
    (assert-true (render-html-form? "defmacro"))))

(defsuite
  "adapter-html-forms-constant"
  (deftest
    "RENDER_HTML_FORMS is a list"
    (assert-true (list? RENDER_HTML_FORMS)))
  (deftest
    "contains expected count"
    (assert-true (>= (len RENDER_HTML_FORMS) 20)))
  (deftest "contains if" (assert-true (contains? RENDER_HTML_FORMS "if")))
  (deftest
    "contains scope"
    (assert-true (contains? RENDER_HTML_FORMS "scope")))
  (deftest
    "does not contain html tags"
    (assert-false (contains? RENDER_HTML_FORMS "div"))
    (assert-false (contains? RENDER_HTML_FORMS "span"))))