mirrors/doomemacs
1
Fork 0
mirror of https://github.com/doomemacs/doomemacs.git synced 2026-04-21 04:11:05 -07:00
Code Issues Projects Releases Wiki Activity

test: add regression for lookup xref no-op fallback

Browse source
This commit is contained in:
kovan 2026-02-27 07:50:36 +01:00
parent d0f7fcb6b0
commit 72d7a49e84
1 changed files with 35 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

35
modules/tools/lookup/test/test-lookup.el Normal file
View file

@ -0,0 +1,35 @@
;; -*- lexical-binding: t; no-byte-compile: t; -*-
;;; tools/lookup/test/test-lookup.el
(describe "tools/lookup"
(before-all
(load! "../autoload/lookup"))
(describe "xref fallback behavior"
(it "does not treat a no-op single xref result as success"
(with-temp-buffer
(insert "foo")
(goto-char (point-min))
(let ((origin (point-marker))
(xref-after-jump-hook nil))
(unwind-protect
(cl-letf (((symbol-function 'xref-find-backend)
(lambda () 'fake))
((symbol-function 'xref-backend-definitions)
(lambda (_backend _identifier)
(list (xref-make "here"
(xref-make-buffer-location
(current-buffer)
(point))))))
;; Simulate a backend that triggers jump hooks without
;; changing point/buffer.
((symbol-function 'xref--show-defs)
(lambda (_fetcher _alist)
(run-hooks 'xref-after-jump-hook)
nil)))
(expect (+lookup--run-handlers
'+lookup-xref-definitions-backend-fn
"foo"
origin)
:to-be nil))
(set-marker origin nil)))))))