aboutsummaryrefslogtreecommitdiffstats
path: root/test/lisp
diff options
context:
space:
mode:
authorMichael Albinus2016-07-09 14:20:07 +0200
committerMichael Albinus2016-07-09 14:20:07 +0200
commitbfc29a5bcef1df4380a4f043f05035b88cd5c482 (patch)
treedb867a7b99fee490b5bce54ff7444239de5a2aca /test/lisp
parente4adb6cdf30706f28dada8aafd347549c84105ac (diff)
downloademacs-bfc29a5bcef1df4380a4f043f05035b88cd5c482.tar.gz
emacs-bfc29a5bcef1df4380a4f043f05035b88cd5c482.zip
Avoid recursive detection of remote uid and gid in tramp-gvfs.el
* lisp/net/tramp-gvfs.el (tramp-gvfs-get-remote-uid-gid-in-progress): New variable. (tramp-gvfs-maybe-open-connection): Use it. * test/lisp/net/tramp-tests.el (tramp-test18-file-attributes): Reorder test.
Diffstat (limited to 'test/lisp')
-rw-r--r--test/lisp/net/tramp-tests.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index f1f722b272b..a1ae78ab5c3 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -1113,12 +1113,12 @@ This tests also `file-readable-p' and `file-regular-p'."
1113 (progn 1113 (progn
1114 (write-region "foo" nil tmp-name1) 1114 (write-region "foo" nil tmp-name1)
1115 (should (file-exists-p tmp-name1)) 1115 (should (file-exists-p tmp-name1))
1116 (setq attr (file-attributes tmp-name1))
1117 (should (consp attr))
1118 (should (file-exists-p tmp-name1))
1119 (should (file-readable-p tmp-name1)) 1116 (should (file-readable-p tmp-name1))
1120 (should (file-regular-p tmp-name1)) 1117 (should (file-regular-p tmp-name1))
1118
1121 ;; We do not test inodes and device numbers. 1119 ;; We do not test inodes and device numbers.
1120 (setq attr (file-attributes tmp-name1))
1121 (should (consp attr))
1122 (should (null (car attr))) 1122 (should (null (car attr)))
1123 (should (numberp (nth 1 attr))) ;; Link. 1123 (should (numberp (nth 1 attr))) ;; Link.
1124 (should (numberp (nth 2 attr))) ;; Uid. 1124 (should (numberp (nth 2 attr))) ;; Uid.