From: Rob Browning <rlb@defaultvalue.org>
Date: Sat, 29 Jul 2017 16:50:27 +0000 (-0500)
Subject: Don't downcase real xref in elisp-mode-tests
X-Git-Tag: archive/raspbian/1%26.1+1-3+rpi1~6
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=3e74fdc96209ae8b48b3df3aa21c96270dda21f8;p=emacs.git

Don't downcase real xref in elisp-mode-tests

The elisp-mode-tests should no longer fail on case sensitive
filesystems when the build path contains uppercase characters.

Previously the code was downcasing the path for both comparison and
lookups.

Gbp-Pq: Name 0010-Don-t-downcase-real-xref-in-elisp-mode-tests.patch
---

diff --git a/test/automated/elisp-mode-tests.el b/test/automated/elisp-mode-tests.el
index 605f9ca08df..805d9566e32 100644
--- a/test/automated/elisp-mode-tests.el
+++ b/test/automated/elisp-mode-tests.el
@@ -179,11 +179,15 @@
 (defun xref-elisp-test-run (xrefs expected-xrefs)
   (should (= (length xrefs) (length expected-xrefs)))
   (while xrefs
-    (let* ((xref (pop xrefs))
+    (let* ((real-xref (pop xrefs))
+           (xref (clone real-xref))
            (expected (pop expected-xrefs))
            (expected-xref (or (when (consp expected) (car expected)) expected))
            (expected-source (when (consp expected) (cdr expected))))
 
+      (setf (oref xref location)
+            (copy-xref-elisp-location (oref xref location)))
+
       ;; Downcase the filenames for case-insensitive file systems.
       (setf (xref-elisp-location-file (oref xref location))
             (downcase (xref-elisp-location-file (oref xref location))))
@@ -193,7 +197,7 @@
 
       (should (equal xref expected-xref))
 
-      (xref--goto-location (xref-item-location xref))
+      (xref--goto-location (xref-item-location real-xref))
       (back-to-indentation)
       (should (looking-at (or expected-source
                               (xref-elisp-test-descr-to-target expected)))))