From 0c694624c3b2aec6a8d036bbbb8c30b83437631b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mattias=20Engdeg=C3=A5rd?= Date: Thu, 6 Nov 2025 16:22:13 +0100 Subject: [PATCH] * test/src/comp-tests.el (setcarcdr): Don't mutate literals. --- test/src/comp-tests.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 879fda6f9c1..e9f4b1ad508 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el @@ -146,7 +146,7 @@ Check that the resulting binaries do not differ." (should (= (comp-tests-aref-aset-f) 100))) (comp-deftest symbol-value () - "Testing aref and aset." + "Testing `symbol-value'." (should (= (comp-tests-symbol-value-f) 3))) (comp-deftest concat () @@ -260,8 +260,8 @@ Check that the resulting binaries do not differ." (comp-deftest setcarcdr () "Testing setcar setcdr." - (should (equal (comp-tests-setcar-f '(10 . 10) 3) '(3 . 10))) - (should (equal (comp-tests-setcdr-f '(10 . 10) 3) '(10 . 3))) + (should (equal (comp-tests-setcar-f (cons 10 10) 3) '(3 . 10))) + (should (equal (comp-tests-setcdr-f (cons 10 10) 3) '(10 . 3))) (should-error (comp-tests-setcar-f 3 10) :type 'wrong-type-argument) (should-error (comp-tests-setcdr-f 3 10)