aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-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.