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

Rename class names

Browse source
This commit is contained in:
Akira Tempaku 2024-05-28 20:48:39 +09:00
parent ab1d321cab
commit e4c0e0f597
4 changed files with 24 additions and 24 deletions

4
tests/defhsx.lisp
View file

@ -49,7 +49,7 @@
(deftag custom)
(test hsx-for-custom-tag-element
(test hsx-for-custom-tag
(is (equal (macroexpand-1
'(custom :prop1 "value1" :prop2 "value2"
"child1"
@ -63,7 +63,7 @@
(defcomp comp (&key prop1 prop2 children)
(declare (ignore prop1 prop2 children)))
(test hsx-for-component-element
(test hsx-for-component
(is (equal (macroexpand-1
'(comp :prop1 "value1" :prop2 "value2"
"child1"

8
tests/element.lisp
View file

@ -8,7 +8,7 @@
(def-suite element-test)
(in-suite element-test)
(test tag-element
(test tag
(let ((elm (create-element :p
'(:class "red")
"Hello,"
@ -32,7 +32,7 @@
title
children))
(test component-elment-with-keyword-args
(test component-accepting-keyword-args
(let* ((elm (create-element #'comp1
'(:title "foo")
"bar"))
@ -53,7 +53,7 @@
(getf props :title)
(getf props :children)))
(test component-element-with-property-list
(test component-accepting-property-list
(let* ((elm (create-element #'comp2
'(:title "foo")
"bar"))
@ -78,7 +78,7 @@
children
(getf props :other-key)))
(test component-element-with-keyword-args-and-property-list
(test component-accepting-keyword-args-and-property-list
(let* ((elm (create-element #'comp3
'(:title "foo" :other-key "baz")
"bar"))