diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-16 17:56:33 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-16 18:00:10 +0100 |
| commit | 735915d44288be0397c190894b0f66cb9b4a0cfd (patch) | |
| tree | 59a18e8d0da2dce7e617ac18a368d90821fd547b | |
| parent | fc87462fe6bcef8e1537fdf30e12cf0c97fd842b (diff) | |
Add test for dired-get-marked-files
| -rw-r--r-- | compat-27.el | 2 | ||||
| -rw-r--r-- | compat-tests.el | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/compat-27.el b/compat-27.el index 04c4b5b..978a9c7 100644 --- a/compat-27.el +++ b/compat-27.el @@ -529,7 +529,7 @@ The return value is a string (or nil in case we can’t find it)." ;;;; Defined in dired.el -(compat-defun dired-get-marked-files ;; <UNTESTED> +(compat-defun dired-get-marked-files ;; <compat-tests:dired-get-marked-files> (&optional localp arg filter distinguish-one-marked error) "Handle optional argument ERROR." :feature dired diff --git a/compat-tests.el b/compat-tests.el index dee4469..f8349be 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -2506,5 +2506,10 @@ )) (should-not (string-match-p regexp-unmatchable str)))) +(declare-function dired-get-marked-files "dired") +(ert-deftest dired-get-marked-files () + (require 'dired) + (should-error (compat-call dired-get-marked-files nil nil nil nil t))) + (provide 'compat-tests) ;;; compat-tests.el ends here |