procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve ffap-ido-mode test

Browse source 
* test/lisp/ffap-tests.el (ffap-ido-mode): Actually test
`ido-everywhere' at run time, not compile time (bug#49895).
This commit is contained in:
dickmao 2021-08-06 13:29:31 +02:00 • committed by Lars Ingebrigtsen
parent 93e1248c20
commit c18bfbe6e4
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test/lisp/ffap-tests.el
View file

@ -127,13 +127,17 @@ left alone when opening a URL in an external browser."
(require 'ido)
(with-temp-buffer
(let ((ido-mode t)
(read-filename-function read-file-name-function)
(read-file-name-function read-file-name-function)
(read-buffer-function read-buffer-function))
(ido-everywhere)
;; Says ert-deftest:
;; Macros in BODY are expanded when the test is defined, not when it
;; is run. If a macro (possibly with side effects) is to be tested,
;; it has to be wrapped in `(eval (quote ...))'.
(eval (quote (ido-everywhere)))
(let ((read-file-name-function (lambda (&rest args)
(expand-file-name
(nth 4 args)
(nth 1 args)))))
(expand-file-name
(nth 4 args)
(nth 1 args)))))
(save-excursion (insert "ffap-tests.el"))
(let (kill-buffer-query-functions)
(kill-buffer (call-interactively #'find-file-at-point)))))))