[elpa] externals/compat 9600545c54 6/6: Add test for temporary-file-directory

[ELPA Syncer]

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

    Add test for temporary-file-directory
---
 compat-26.el    |  2 +-
 compat-tests.el | 11 +++++++++++
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/compat-26.el b/compat-26.el
index d3a6cac4bf..0670851c07 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -351,7 +351,7 @@ The returned file name can be used directly as argument of
         name
       (concat (file-remote-p name) "/:" (file-local-name name)))))
 
-(compat-defun temporary-file-directory () ;; <UNTESTED>
+(compat-defun temporary-file-directory () ;; 
<compat-tests:temporary-file-directory>
   "The directory for writing temporary files.
 In case of a remote `default-directory', this is a directory for
 temporary files on that remote host.  If such a directory does
diff --git a/compat-tests.el b/compat-tests.el
index 95f0bef531..ae54486680 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1126,6 +1126,17 @@
       (should-not (equal dir default-directory))
       (should (file-exists-p default-directory)))))
 
+(ert-deftest temporary-file-directory ()
+  (should-equal (temporary-file-directory) temporary-file-directory)
+  (let ((default-directory "/mnt"))
+    (should-equal (temporary-file-directory) default-directory))
+  ;; TODO how can we test tramp?
+  ;;(let ((default-directory "/sudo:/"))
+  ;;  (should-equal (temporary-file-directory) temporary-file-directory))
+  ;;(let ((default-directory "/ssh:does-not-exist:/"))
+  ;;  (should-equal (temporary-file-directory) "/ssh:does-not-exist:/tmp/"))
+  )
+
 (ert-deftest directory-files ()
   (should-not (compat-call directory-files "." nil nil nil 0))
   (should-equal 1 (length (compat-call directory-files "." nil nil nil 1)))