Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
146a4cf2
Commit
146a4cf2
authored
Feb 20, 2014
by
Michael Albinus
Browse files
* tramp-tests.el (tramp-test19-directory-files-and-attributes):
Instrument failed test case.
parent
679f7827
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
8 deletions
+7
-8
test/automated/tramp-tests.el
test/automated/tramp-tests.el
+7
-8
No files found.
test/automated/tramp-tests.el
View file @
146a4cf2
...
...
@@ -893,6 +893,7 @@ This tests also `file-readable-p' and `file-regular-p'."
(
tramp-dissect-file-name
tramp-test-temporary-file-directory
)
nil
'keep-password
)
(
tramp--instrument-test-case
10
(
let
((
tmp-name
(
tramp--test-make-temp-name
))
attr
)
(
unwind-protect
...
...
@@ -905,18 +906,16 @@ This tests also `file-readable-p' and `file-regular-p'."
(
setq
attr
(
directory-files-and-attributes
tmp-name
))
(
should
(
consp
attr
))
(
dolist
(
elt
attr
)
(
tramp--instrument-test-case
10
(
should
(
equal
(
file-attributes
(
expand-file-name
(
car
elt
)
tmp-name
))
(
cdr
elt
)))))
(
should
(
equal
(
file-attributes
(
expand-file-name
(
car
elt
)
tmp-name
))
(
cdr
elt
))))
(
setq
attr
(
directory-files-and-attributes
tmp-name
'full
))
(
dolist
(
elt
attr
)
(
tramp--instrument-test-case
10
(
should
(
equal
(
file-attributes
(
car
elt
))
(
cdr
elt
)))))
(
should
(
equal
(
file-attributes
(
car
elt
))
(
cdr
elt
))))
(
setq
attr
(
directory-files-and-attributes
tmp-name
nil
"^b"
))
(
should
(
equal
(
mapcar
'car
attr
)
'
(
"bar"
"boz"
))))
(
ignore-errors
(
delete-directory
tmp-name
'recursive
)))))
(
ignore-errors
(
delete-directory
tmp-name
'recursive
)))))
)
(
ert-deftest
tramp-test20-file-modes
()
"Check `file-modes'.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment