diff options
| author | aagon <aymeric.agon@hotmail.fr> | 2023-08-10 20:03:52 +0200 |
|---|---|---|
| committer | Wilfred Hughes <me@wilfred.me.uk> | 2023-10-07 17:42:36 -0400 |
| commit | 79cae33c7b4edc2679c81e219d41d890b5eaac73 (patch) | |
| tree | 81ef8e231ddf66a47c7b4fdfe31c50e06880683e /test | |
| parent | 737ff828d763e156a6072a532f2c3d2d0c26178e (diff) | |
Repair helpful--display-implementations test for emacs 29.1
Diffstat (limited to 'test')
| -rw-r--r-- | test/helpful-unit-test.el | 8 |
1 files changed, 6 insertions, 2 deletions
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 @@ -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)) |