[Emacs-diffs] master 940df47: Make etags-tests work in out-of-tree builds

[Eli Zaretskii]

branch: master
commit 940df47741c5e7be1c1c84d7371da492018f0d8a
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Make etags-tests work in out-of-tree builds
    
    * test/lisp/progmodes/etags-tests.el (etags-bug-158)
    (etags-bug-23164): Make them work in an out-of-tree build.
    Reported by Ken Brown <address@hidden>.
---
 test/lisp/progmodes/etags-tests.el |   14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/test/lisp/progmodes/etags-tests.el 
b/test/lisp/progmodes/etags-tests.el
index a715bba..a992a17 100644
--- a/test/lisp/progmodes/etags-tests.el
+++ b/test/lisp/progmodes/etags-tests.el
@@ -37,7 +37,9 @@
         xref-buf)
     (set-buffer buf-with-global-tags)
     (setq default-directory (expand-file-name "."))
-    (visit-tags-table "./manual/etags/ETAGS.good_1")
+    (visit-tags-table
+     (expand-file-name "manual/etags/ETAGS.good_1"
+                       (getenv "EMACS_TEST_DIRECTORY")))
     ;; Check that tags in ETAGS.good_1 are recognized.
     (setq xref-buf (xref-find-definitions "LL_Task_Procedure_Access/t"))
     (should (bufferp xref-buf))
@@ -52,7 +54,10 @@
     (set-buffer buf-with-local-tags)
     (setq default-directory (expand-file-name "."))
     (let (his-masters-voice)
-      (visit-tags-table "./manual/etags/ETAGS.good_3" t))
+      (visit-tags-table
+       (expand-file-name "manual/etags/ETAGS.good_3"
+                         (getenv "EMACS_TEST_DIRECTORY"))
+       t))
     ;; Check that tags in ETAGS.good_1 are recognized.
     (setq xref-buf (xref-find-definitions "LL_Task_Procedure_Access/t"))
     (should (bufferp xref-buf))
@@ -78,6 +83,9 @@
   "Test that setting a local value of tags table doesn't signal errors."
   (set-buffer (get-buffer-create "*foobar*"))
   (fundamental-mode)
-  (visit-tags-table "./manual/etags/ETAGS.good_3" t)
+  (visit-tags-table
+   (expand-file-name "manual/etags/ETAGS.good_3"
+                     (getenv "EMACS_TEST_DIRECTORY"))
+   t)
   (should (equal (should-error (xref-find-definitions "foobar123"))
                  '(user-error "No definitions found for: foobar123"))))