Change type of element-type, add deftag macro
This commit is contained in:
parent
634daeb8c1
commit
8455ed4553
5 changed files with 48 additions and 56 deletions
tests
|
@ -9,16 +9,16 @@
|
|||
(in-suite element-test)
|
||||
|
||||
(test tag-element
|
||||
(let ((elm (create-element "p"
|
||||
(let ((elm (create-element :p
|
||||
'(:class "red")
|
||||
"Hello,"
|
||||
"World")))
|
||||
(is (string= (element-type elm) "p"))
|
||||
(is (eq (element-type elm) :p))
|
||||
(is (equal (element-props elm) '(:class "red")))
|
||||
(is (equal (element-children elm) (list "Hello," "World")))))
|
||||
|
||||
(test flatten-children
|
||||
(let* ((elm (create-element "p"
|
||||
(let* ((elm (create-element :p
|
||||
nil
|
||||
"a"
|
||||
nil
|
||||
|
@ -27,7 +27,7 @@
|
|||
(is (equal (element-children elm) (list "a" "b" "c" "d" "e")))))
|
||||
|
||||
(defun comp1 (&key title children)
|
||||
(create-element "div"
|
||||
(create-element :div
|
||||
nil
|
||||
title
|
||||
children))
|
||||
|
@ -37,10 +37,10 @@
|
|||
'(:title "foo")
|
||||
"bar"))
|
||||
(expanded (expand-component elm)))
|
||||
(is (eql (element-type elm) #'comp1))
|
||||
(is (eq (element-type elm) #'comp1))
|
||||
(is (equal (element-props elm) '(:title "foo")))
|
||||
(is (equal (element-children elm) (list "bar")))
|
||||
(is (string= (element-type expanded) "div"))
|
||||
(is (eq (element-type expanded) :div))
|
||||
(is (equal (element-children expanded) (list "foo" "bar")))
|
||||
(signals error
|
||||
(create-element #'comp1
|
||||
|
@ -48,7 +48,7 @@
|
|||
"bar"))))
|
||||
|
||||
(defun comp2 (&rest props)
|
||||
(create-element "div"
|
||||
(create-element :div
|
||||
nil
|
||||
(getf props :title)
|
||||
(getf props :children)))
|
||||
|
@ -58,21 +58,21 @@
|
|||
'(:title "foo")
|
||||
"bar"))
|
||||
(expanded (expand-component elm)))
|
||||
(is (eql (element-type elm) #'comp2))
|
||||
(is (eq (element-type elm) #'comp2))
|
||||
(is (equal (element-props elm) '(:title "foo")))
|
||||
(is (equal (element-children elm) (list "bar")))
|
||||
(is (string= (element-type expanded) "div"))
|
||||
(is (eq (element-type expanded) :div))
|
||||
(is (equal (element-children expanded) (list "foo" "bar")))))
|
||||
|
||||
(defun comp3 (&rest props &key title children &allow-other-keys)
|
||||
(create-element "div"
|
||||
(create-element :div
|
||||
nil
|
||||
title
|
||||
children
|
||||
(getf props :other-key)))
|
||||
|
||||
(defun comp4 (&rest props &key title children)
|
||||
(create-element "div"
|
||||
(create-element :div
|
||||
nil
|
||||
title
|
||||
children
|
||||
|
@ -83,10 +83,10 @@
|
|||
'(:title "foo" :other-key "baz")
|
||||
"bar"))
|
||||
(expanded (expand-component elm)))
|
||||
(is (eql (element-type elm) #'comp3))
|
||||
(is (eq (element-type elm) #'comp3))
|
||||
(is (equal (element-props elm) '(:title "foo" :other-key "baz")))
|
||||
(is (equal (element-children elm) (list "bar")))
|
||||
(is (string= (element-type expanded) "div"))
|
||||
(is (eq (element-type expanded) :div))
|
||||
(is (equal (element-children expanded) (list "foo" "bar" "baz")))
|
||||
(signals error
|
||||
(create-element #'comp4
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue