aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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