Add xml test

borkdude · Jun 1, 2024 · a47df56 · a47df56
1 parent 1405c23
commit a47df56
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/borkdude/html.cljc b/src/borkdude/html.cljc
@@ -91,7 +91,9 @@
                             (if (string? attrs)
                               [(str "<" tag attrs ">")]
                               ["<" tag " " attrs  ">"]))
-                        ~@(map #(list `html %) children)
+                        ~@(map #(list (if xml?
+                                        `xml
+                                        `html) %) children)
                         ~(if (or omit-tag?
                                  (and (contains? void-tags tag)
                                       (not xml?)))

diff --git a/test/borkdude/html_test.cljc b/test/borkdude/html_test.cljc
@@ -1,6 +1,6 @@
 (ns borkdude.html-test
   (:require
-   [borkdude.html :refer [html]]
+   [borkdude.html :refer [html xml]]
    [clojure.test :as t]))
 
 (defn child-component [{:keys [name]}]
@@ -60,7 +60,10 @@
                 [2 3])])
 
     "<div><br></div>"
-    (html [:div [:br]]))
+    (html [:div [:br]])
+
+    "<div><br></br></div>"
+    (xml [:div [:br]]))
 )
 
 (comment