blob: f788a7dee648c200a309b3514197664992e45636 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
diff --git a/test/helpful-unit-test.el b/test/helpful-unit-test.el
index 0f5177b..0716b0d 100644
--- a/test/helpful-unit-test.el
+++ b/test/helpful-unit-test.el
@@ -734,7 +734,9 @@ associated a lambda with a keybinding."
(should
(equal
(length (helpful--keymaps-containing #'helpful--dummy-command))
- 2))
+ (if (< emacs-major-version 30)
+ 2
+ 3)))
;; Undo keybinding.
(global-set-key (kbd "C-c M-S-c") nil)
@@ -1089,8 +1089,12 @@ find the source code."
(require 'xref)
(helpful-function 'xref-location-marker)
(should (s-contains-p "Implementations" (buffer-string)))
- (should (s-contains-p "((l xref-file-location))" (buffer-string)))
- (should (s-contains-p "((l xref-buffer-location))" (buffer-string))))
+ (should (if (version< emacs-version "29.1")
+ (s-contains-p "((l xref-file-location))" (buffer-string))
+ (s-contains-p "(xref-location-marker (L xref-file-location))" (buffer-string))))
+ (should (if (version< emacs-version "29.1")
+ (s-contains-p "((l xref-buffer-location))" (buffer-string))
+ (s-contains-p "(xref-location-marker (L xref-buffer-location))" (buffer-string)))))
(defun helpful--boring-advice (orig-fn &rest args)
(apply orig-fn args))
|
