mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-10 15:56:18 +00:00
Code Issues Releases Activity

Make etags-tests work in out-of-tree builds

Browse Source 
* 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 <kbrown@cornell.edu>.
This commit is contained in:
Eli Zaretskii 2016-12-12 19:56:03 +02:00
parent 825f4dd42f
commit 940df47741
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/lisp/progmodes/etags-tests.el
View File

@ -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"))))