71 lines
2.1 KiB
Common Lisp
71 lines
2.1 KiB
Common 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-test)
|
|
(in-suite renderer-test)
|
|
|
|
(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
|