fix set user element attr/children test

This commit is contained in:
Bo Yao 2018-06-30 17:39:20 -04:00
parent 24ace4da05
commit c5a1de8b23
2 changed files with 14 additions and 11 deletions

View file

@ -234,7 +234,8 @@
(is (string= "woo" (second (element-children dog4))))
(setf (attr dog4 :size) 16)
(is (= 16 (attr dog4 :size)))
(is (string= "big-dog" (attr (user-element-expand-to dog4) :class)))))
(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))))))
(run-all-tests)