Improve escape
This commit is contained in:
parent
050c14209c
commit
40df277aac
2 changed files with 23 additions and 22 deletions
|
@ -185,7 +185,7 @@
|
|||
(is (string= "child text 1" (first (element-children a))))
|
||||
(is (string= "child text 2 <br> &" (second (element-children a))))
|
||||
(is (string= "child'<>".html" (attr (element-attrs (third (element-children a))) :href)))
|
||||
(is (string= "child'<>\"" (first (element-children (third (element-children a))))))
|
||||
(is (string= "child'<>"" (first (element-children (third (element-children a))))))
|
||||
(is (string= (string (code-char 128)) (second (element-children (third (element-children a))))))
|
||||
(is (string= (string (code-char 128)) (fourth (element-children a))))))
|
||||
|
||||
|
@ -228,7 +228,7 @@
|
|||
(let ((cat (cat)))
|
||||
(is (string= "cat" (attr (user-element-expand-to cat) :id)))
|
||||
(is (string= "cat.png" (attr (first (element-children (user-element-expand-to cat))) :src)))
|
||||
(is (string= "I'm a cat" (car (last (element-children (user-element-expand-to cat))))))))
|
||||
(is (string= "I'm a cat" (car (last (element-children (user-element-expand-to cat))))))))
|
||||
|
||||
(define-element dog (id size)
|
||||
(if (and (realp size) (> size 10))
|
||||
|
@ -298,16 +298,16 @@
|
|||
(is (string= "<div id=\"home\">
|
||||
<div id=\"cat\">
|
||||
<img src=\"cat.png\">
|
||||
I'm a cat
|
||||
I'm a cat
|
||||
</div>
|
||||
<div id=\"cat\">
|
||||
<img src=\"cat.png\">
|
||||
I'm a cat
|
||||
I'm a cat
|
||||
</div>
|
||||
<div id=\"doge\" class=\"small-dog\">
|
||||
<div id=\"cat\">
|
||||
<img src=\"cat.png\">
|
||||
I'm a cat
|
||||
I'm a cat
|
||||
</div>
|
||||
dog
|
||||
</div>
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue