hsx/tests/renderer.lisp

(defpackage #:hsx-test/renderer
  (:use #:cl
        #:fiveam
        #:hsx
        #:named-readtables)
  (:import-from #:mstrings))
(in-package :hsx-test/renderer)
(in-readtable mstrings:mstring-syntax)

(def-suite renderer)
(in-suite renderer)

(test empty-tag
  (is (string= "<div></div>"
               (render (hsx (div))))))

(test tag-with-props
  (is (string= "<div prop1=\"value1\" prop2></div>"
               (render (hsx (div :prop1 "value1" :prop2 t :prop3 nil))))))

(test tag-with-children
  (is (string= "<p>foo</p>"
               (render (hsx (p "foo")))))
  (is (string= #M"<p>
                 \  <span>foo</span>
                 \</p>"
               (render (hsx (p
                              (span "foo"))))))
  (is (string= #M"<p>
                 \  foo
                 \  <span>bar</span>
                 \</p>"
               (render (hsx (p
                              "foo"
                              (span "bar")))))))

(test tag-with-props-and-children
  (is (string=  "<p prop1=\"value1\" prop2>foo</p>"
                (render (hsx
                          (p :prop1 "value1" :prop2 t :prop3 nil
                            "foo")))))
  (is (string= #M"<p prop1=\"value1\" prop2>
                 \  foo
                 \  <span>bar</span>
                 \</p>"
               (render (hsx
                         (p :prop1 "value1" :prop2 t :prop3 nil
                           "foo"
                           (span "bar")))))))

(test fragment
  (let ((frg (hsx
               (<>
                 (li "bar")
                 (li "baz")))))
    (is (string= #M"<li>bar</li>
                    <li>baz</li>"
                 (render frg)))
    (is (string= #M"<ul>
                   \  <li>foo</li>
                   \  <li>bar</li>
                   \  <li>baz</li>
                   \  <li>brah</li>
                   \</ul>"
                 (render (hsx
                           (ul
                             (li "foo")
                             frg
                             (li "brah"))))))))

;; TODO: Add escaping test