paku/hsx
1
0
Fork 0
Code Issues2 Pull requests Projects Releases2 Packages Wiki Activity Actions

Delete create-element-hook

Browse source
This commit is contained in:
Akira Tempaku 2024-05-29 10:54:20 +09:00
parent cc4b3e19c6
commit fb53f6aa05
2 changed files with 10 additions and 37 deletions

19
tests/element.lisp
View file

@ -41,11 +41,7 @@
(is (equal (element-props elm) '(:title "foo")))
(is (equal (element-children elm) (list "bar")))
(is (eq (element-type expanded) :div))
(is (equal (element-children expanded) (list "foo" "bar")))
(signals error
(create-element #'comp1
'(:title "foo" :other-key "baz")
"bar"))))
(is (equal (element-children expanded) (list "foo" "bar")))))
(defun comp2 (&rest props)
(create-element :div
@ -71,13 +67,6 @@
children
(getf props :other-key)))
(defun comp4 (&rest props &key title children)
(create-element :div
nil
title
children
(getf props :other-key)))
(test component-accepting-keyword-args-and-property-list
(let* ((elm (create-element #'comp3
'(:title "foo" :other-key "baz")
@ -87,8 +76,4 @@
(is (equal (element-props elm) '(:title "foo" :other-key "baz")))
(is (equal (element-children elm) (list "bar")))
(is (eq (element-type expanded) :div))
(is (equal (element-children expanded) (list "foo" "bar" "baz")))
(signals error
(create-element #'comp4
'(:title "foo" :other-key "baz")
"bar"))))
(is (equal (element-children expanded) (list "foo" "bar" "baz")))))