From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Thu, 30 Apr 2020 09:46:54 +0000 (+0100)
Subject: ; Fix last addition to dom-tests.el
X-Git-Tag: emacs-28.0.90~7481
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=72570e0fc39630b03eb2e7fb1245aeaaa5a3c448;p=emacs.git

; 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.
---

diff --git a/test/lisp/dom-tests.el b/test/lisp/dom-tests.el
index eb15500d84c..f743df78fd5 100644
--- a/test/lisp/dom-tests.el
+++ b/test/lisp/dom-tests.el
@@ -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))