diff options
| author | Michael Albinus | 2016-07-09 14:20:07 +0200 |
|---|---|---|
| committer | Michael Albinus | 2016-07-09 14:20:07 +0200 |
| commit | bfc29a5bcef1df4380a4f043f05035b88cd5c482 (patch) | |
| tree | db867a7b99fee490b5bce54ff7444239de5a2aca /test/lisp | |
| parent | e4adb6cdf30706f28dada8aafd347549c84105ac (diff) | |
| download | emacs-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.el | 6 |
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. |