css style id and class for builtin elements in hmacro
This commit is contained in:
parent
4ef85ff0e0
commit
1b0fb3fb0b
6 changed files with 74 additions and 16 deletions
18
t/flute.lisp
18
t/flute.lisp
|
@ -371,6 +371,22 @@
|
|||
</div>"
|
||||
(element-string
|
||||
(h (duck :id 5 :color "blue"
|
||||
(img :href "duck.png"))))))))
|
||||
(img :href "duck.png"))))))
|
||||
(is (string=
|
||||
"<div class=\"class1 class2\" id=\"has-id\">child</div>"
|
||||
(element-string
|
||||
(h (div#has-id.class1.class2 "child")))))
|
||||
(is (string=
|
||||
"<div class=\"class1 class2\" id=\"has-id\" onclick=\"func()\">child</div>"
|
||||
(element-string
|
||||
(h (div#has-id.class1.class2 :onclick "func()" "child")))))
|
||||
(is (string=
|
||||
"<div class=\"class1 class2\" id=\"has-id\" onclick=\"func()\">child</div>"
|
||||
(element-string
|
||||
(h (div#has-id.class1.class2 '(:onclick "func()") "child")))))
|
||||
(is (string=
|
||||
"<div id=\"has-id\" class=\"class1 class2 additional-class\">child</div>"
|
||||
(element-string
|
||||
(h (div.class1#has-id.class2 ':class "additional-class" "child")))))))
|
||||
|
||||
(run-all-tests)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue