masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-13 15:39:02 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Minor fixes in tramp-tests.el

Browse source 
* 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:
Michael Albinus 2016-01-04 19:25:39 +01:00
parent 50575b1bdd
commit 6300655ec9
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/automated/tramp-tests.el
View file

@ -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)) (should-not (get-buffer-window (current-buffer) t))
;; Second run. The output must be appended. ;; Second run. The output must be appended.
(goto-char (point-max))
(should (zerop (process-file "ls" nil t t fnnd))) (should (zerop (process-file "ls" nil t t fnnd)))
;; `ls' could produce colorized output. ;; `ls' could produce colorized output.
(goto-char (point-min)) (goto-char (point-min))
@ -1652,8 +1653,8 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
(error (error
(vc-register (vc-register
nil (list (car vc-handled-backends) nil (list (car vc-handled-backends)
(list (file-name-nondirectory tmp-name2))))))) (list (file-name-nondirectory tmp-name2))))))
(should (vc-registered tmp-name2))) (should (vc-registered (file-name-nondirectory tmp-name2)))))
;; Cleanup. ;; Cleanup.
(ignore-errors (delete-directory tmp-name1 'recursive))))) (ignore-errors (delete-directory tmp-name1 'recursive)))))