2024-05-25 16:26:26 +00:00
|
|
|
(defpackage #:hsx-test/hsx
|
|
|
|
|
(:use #:cl
|
2024-09-28 17:10:25 +00:00
|
|
|
#:rove
|
2024-06-06 05:59:46 +00:00
|
|
|
#:hsx/hsx
|
|
|
|
|
#:hsx/builtin)
|
|
|
|
|
(:import-from #:hsx/element
|
|
|
|
|
#:element-props
|
|
|
|
|
#:element-children))
|
2024-05-25 16:26:26 +00:00
|
|
|
(in-package #:hsx-test/hsx)
|
|
|
|
|
|
2024-09-28 17:10:25 +00:00
|
|
|
(deftest hsx-test
|
|
|
|
|
(testing "find-symbols"
|
|
|
|
|
(ok (expands
|
|
|
|
|
'(hsx (div '(:div "div")
|
|
|
|
|
div
|
|
|
|
|
(div
|
|
|
|
|
'div
|
|
|
|
|
(div)
|
|
|
|
|
:div)
|
|
|
|
|
"div"))
|
|
|
|
|
'(hsx/builtin:div '(:div "div")
|
|
|
|
|
div
|
|
|
|
|
(hsx/builtin:div
|
|
|
|
|
'div
|
|
|
|
|
(hsx/builtin:div)
|
|
|
|
|
:div)
|
|
|
|
|
"div")))))
|
