aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2019-07-14 13:28:54 -0700
committerGlenn Morris2019-07-14 13:28:54 -0700
commitfe2141d15715afa2fbcfd6375503e65ff745dceb (patch)
treefc573ac658bbfe86e88a5ced09f6b5c1434458b9
parent9d84fcbef5439628df99c2022659a6eefb0a138e (diff)
downloademacs-fe2141d15715afa2fbcfd6375503e65ff745dceb.tar.gz
emacs-fe2141d15715afa2fbcfd6375503e65ff745dceb.zip
Update a ffap test
* test/lisp/ffap-tests.el (ffap-other-window--bug-25352): Update for incompatible ffap-other-window change.
-rw-r--r--test/lisp/ffap-tests.el4
1 files changed, 1 insertions, 3 deletions
diff --git a/test/lisp/ffap-tests.el b/test/lisp/ffap-tests.el
index 5b2f43cb2d3..3aa2812ec5a 100644
--- a/test/lisp/ffap-tests.el
+++ b/test/lisp/ffap-tests.el
@@ -71,11 +71,9 @@ Host = example.com\n")
71 "Test for Bug#25352. Checks that the window configuration is 71 "Test for Bug#25352. Checks that the window configuration is
72left alone when opening a URL in an external browser." 72left alone when opening a URL in an external browser."
73 (cl-letf* ((old (current-window-configuration)) 73 (cl-letf* ((old (current-window-configuration))
74 ((symbol-function 'ffap-prompter)
75 (lambda () "https://www.gnu.org"))
76 (urls nil) 74 (urls nil)
77 (ffap-url-fetcher (lambda (url) (push url urls) nil))) 75 (ffap-url-fetcher (lambda (url) (push url urls) nil)))
78 (should-not (ffap-other-window)) 76 (should-not (ffap-other-window "https://www.gnu.org"))
79 (should (equal (current-window-configuration) old)) 77 (should (equal (current-window-configuration) old))
80 (should (equal urls '("https://www.gnu.org"))))) 78 (should (equal urls '("https://www.gnu.org")))))
81 79