diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-01-10 10:26:19 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-01-10 11:12:57 +0100 |
| commit | ab3fbaf31f5fa3bdad270588e34f058e465ac421 (patch) | |
| tree | bd92986b04ebe0de40b324088018e2b94bc5489f /compat-tests.el | |
| parent | 4eb3d03632d58775f06526fff0d38cf2678e0195 (diff) | |
compat-30: Add extended completion-metadata-get
See Emacs commit 7755f7172748b2d337fa53434c1f678269cc5c45
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/compat-tests.el b/compat-tests.el index 6b41482..210d2c9 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -3111,5 +3111,28 @@ (should-equal buf2 (get-truename-buffer "compat-tests-file2")) (should-not (get-truename-buffer "compat-tests-file3"))))) +(ert-deftest compat-completion-metadata-get () + ;; TODO enable test on Emacs 30 as soon as the CI supports it. + (static-if (< emacs-major-version 30) + (progn + (let ((md '((a . 1) (b . 2) (c . 3) (category . compat-test)))) + (should-equal 'compat-test (compat-call completion-metadata-get md 'category)) + (should-equal 1 (compat-call completion-metadata-get md 'a)) + (should-equal 2 (compat-call completion-metadata-get md 'b)) + (should-equal 3 (compat-call completion-metadata-get md 'c)) + (should-not (compat-call completion-metadata-get md 'd)) + (let ((completion-extra-properties '(:d 4))) + (should-equal 4 (compat-call completion-metadata-get md 'd))) + (let ((completion-category-overrides '((compat-test (a . 10))))) + (should-equal 10 (compat-call completion-metadata-get md 'a)))) + (let ((md '((a . 1) (b . 2)))) + (should-not (compat-call completion-metadata-get md 'category)) + (let ((completion-extra-properties '(:category compat-test))) + (should-equal 1 (compat-call completion-metadata-get md 'a)) + (should-equal 2 (compat-call completion-metadata-get md 'b)) + (should-equal 'compat-test (compat-call completion-metadata-get md 'category)) + (let ((completion-category-overrides '((compat-test (a . 10))))) + (should-equal 10 (compat-call completion-metadata-get md 'a)))))))) + (provide 'compat-tests) ;;; compat-tests.el ends here |