Add fragment ()

* Add fragment

* Fix test
This commit is contained in:
Akira Tempaku 2024-02-08 23:39:54 +09:00 committed by GitHub
parent a096d0be7b
commit 88d87a5920
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
3 changed files with 47 additions and 18 deletions

View file

@ -261,19 +261,22 @@
(is (eql nil (attrs-alist (element-attrs dog3))))
(is (string= "dog" (second (element-children (user-element-expand-to dog3)))))
(is (string= "dog.png" (attr (first (element-children (user-element-expand-to dog3))) :src)))
(is (string= "dog.png" (attr (first (element-children
(first (element-children (user-element-expand-to dog3))))) :src)))
(is (string= "dog.png" (attr (first (element-children dog3)) :src)))
(is (equal '((:id . "dog") (:size . 10)) (attrs-alist (element-attrs dog4))))
(is (= 10 (attr dog4 :size)))
(is (string= "img" (element-tag (first (element-children dog4)))))
(is (string= "dog4.png" (attr (first (element-children (user-element-expand-to dog4))) :src)))
(is (string= "dog4.png" (attr (first (element-children
(first (element-children (user-element-expand-to dog4))))) :src)))
(is (string= "woo" (second (element-children dog4))))
(setf (attr dog4 :size) 16)
(is (string= "big-dog" (attr (user-element-expand-to dog4) :class)))
(setf (element-children dog4) (list dog1 dog2 dog3))
(is (equal (list dog1 dog2 dog3 "dog") (element-children (user-element-expand-to dog4))))))
(is (equal (list dog1 dog2 dog3) (element-children
(first (element-children (user-element-expand-to dog4))))))))
(test user-element-html-generation
(LET* ((dog1 (dog))