diff options
Diffstat (limited to 'test')
| -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. |