[elpa] externals/compat 61c2b8815b 6/6: Test with-file-modes

[ELPA Syncer]

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

    Test with-file-modes
---
 compat-25.el    | 2 +-
 compat-tests.el | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/compat-25.el b/compat-25.el
index afc82b64c8..b58dcf6145 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -76,7 +76,7 @@ Case is significant.
 Symbols are also allowed; their print names are used instead."
   (string-lessp string2 string1))
 
-(compat-defmacro with-file-modes (modes &rest body) ;; <UNTESTED>
+(compat-defmacro with-file-modes (modes &rest body) ;; <OK>
   "Execute BODY with default file permissions temporarily set to MODES.
 MODES is as for `set-default-file-modes'."
   (declare (indent 1) (debug t))
diff --git a/compat-tests.el b/compat-tests.el
index 542d4926a3..db2fea3637 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -649,6 +649,12 @@
   (should-equal "1 k" (compat-call file-size-human-readable 1000 'si " "))
   (should-equal "1 kA" (compat-call file-size-human-readable 1000 'si " " 
"A")))
 
+(ert-deftest with-file-modes ()
+  (let ((old (default-file-modes)))
+    (with-file-modes (1+ old)
+      (should-equal (default-file-modes) (1+ old)))
+    (should-equal (default-file-modes) old)))
+
 (ert-deftest file-modes-number-to-symbolic ()
   (should-equal "-rwx------" (file-modes-number-to-symbolic #o700))
   (should-equal "-rwxrwx---" (file-modes-number-to-symbolic #o770))