From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Mon, 2 Sep 2019 15:32:26 +0000 (+0200)
Subject: rename a function test to avoid name clashing
X-Git-Tag: emacs-28.0.90~2727^2~1221
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f23894516ac731bc858158c3e7198db8aa54bfb6;p=emacs.git

rename a function test to avoid name clashing
---

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index a719dfaa6ca..fa87b7f454c 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -364,14 +364,14 @@
   (defun comp-tests-consp-f (x)
     ;; Bconsp
     (consp x))
-  (defun comp-tests-car-f (x)
+  (defun comp-tests-setcar2-f (x)
     ;; Bsetcar
     (setcar x 3))
 
   (should (eq (comp-test-apply #'comp-tests-consp-f '(1)) t))
   (should (eq (comp-test-apply #'comp-tests-consp-f 1) nil))
   (let ((x (cons 1 2)))
-    (should (= (comp-test-apply #'comp-tests-car-f x) 3))
+    (should (= (comp-test-apply #'comp-tests-setcar2-f x) 3))
     (should (equal x '(3 . 2)))))
 
 (ert-deftest comp-tests-num-inline ()