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