Minor fixes in tramp-tests.el
* test/automated/tramp-tests.el (tramp-test26-process-file): Move point properly. (tramp-test29-vc-registered): Work with relative file names.
This commit is contained in:
parent
50575b1bdd
commit
6300655ec9
1 changed files with 3 additions and 2 deletions
|
@ -1424,6 +1424,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
|
|||
(should-not (get-buffer-window (current-buffer) t))
|
||||
|
||||
;; Second run. The output must be appended.
|
||||
(goto-char (point-max))
|
||||
(should (zerop (process-file "ls" nil t t fnnd)))
|
||||
;; `ls' could produce colorized output.
|
||||
(goto-char (point-min))
|
||||
|
@ -1652,8 +1653,8 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
|
|||
(error
|
||||
(vc-register
|
||||
nil (list (car vc-handled-backends)
|
||||
(list (file-name-nondirectory tmp-name2)))))))
|
||||
(should (vc-registered tmp-name2)))
|
||||
(list (file-name-nondirectory tmp-name2))))))
|
||||
(should (vc-registered (file-name-nondirectory tmp-name2)))))
|
||||
|
||||
;; Cleanup.
|
||||
(ignore-errors (delete-directory tmp-name1 'recursive)))))
|
||||
|
|
Loading…
Add table
Reference in a new issue