[elpa] externals/compat 735915d442 2/4: Add test for dired-get-marked-files

[ELPA Syncer]

branch: externals/compat
commit 735915d44288be0397c190894b0f66cb9b4a0cfd
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add test for dired-get-marked-files
---
 compat-27.el    | 2 +-
 compat-tests.el | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/compat-27.el b/compat-27.el
index 04c4b5b66d..978a9c7368 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 dee44693ae..f8349be0b2 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