From f23894516ac731bc858158c3e7198db8aa54bfb6 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 2 Sep 2019 17:32:26 +0200 Subject: [PATCH] rename a function test to avoid name clashing --- test/src/comp-tests.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 () -- 2.39.5