; Fix last addition to dom-tests.el
* test/lisp/dom-tests.el (dom-tests-remove-attribute): Make test idempotent by avoiding destructive modification of constant literal.
This commit is contained in:
parent
3c810669f7
commit
72570e0fc3
1 changed files with 1 additions and 1 deletions
|
|
@ -85,7 +85,7 @@
|
|||
(should (equal (dom-attr dom attr) value))))
|
||||
|
||||
(ert-deftest dom-tests-remove-attribute ()
|
||||
(let ((dom `(body ((foo . "bar") (zot . "foobar")))))
|
||||
(let ((dom (copy-tree '(body ((foo . "bar") (zot . "foobar"))))))
|
||||
(should (equal (dom-attr dom 'foo) "bar"))
|
||||
(dom-remove-attribute dom 'foo)
|
||||
(should (equal (dom-attr dom 'foo) nil))
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue