Merge pull request 'Allow docstrings in `defhtml` (closes #2)' (#5) from allow-docstrings-in-defhtml into main

Reviewed-on: https://git.nmm.ee/asko/dompa/pulls/5

1 files changed, 18 insertions, 0 deletions

diff --git a/test/dompa/nodes_test.cljc b/test/dompa/nodes_test.cljc
index 0340abb..e7c6616 100644
--- a/test/dompa/nodes_test.cljc
+++ b/test/dompa/nodes_test.cljc
@@ -16,10 +16,28 @@
   ($ :div
      ($ "hello " who)))
 
+(defhtml hello-with-doc
+  "Greets the given person with a div."
+  [who]
+  ($ :div
+     ($ "hello " who)))
+
 (deftest defhtml-test
   (is (= "<div>hello world</div>"
          (hello "world"))))
 
+(deftest defhtml-docstring-test
+  (testing "defhtml with docstring produces correct HTML"
+    (is (= "<div>hello world</div>"
+           (hello-with-doc "world"))))
+  #?(:clj
+     (testing "docstring is attached to the var metadata"
+       (is (= "Greets the given person with a div."
+              (:doc (meta #'hello-with-doc))))))
+  #?(:clj
+     (testing "defhtml without docstring has no :doc metadata"
+       (is (nil? (:doc (meta #'hello)))))))
+
 (defhtml list-items [items]
   ($ :ul
      (->> items