From: Michael Albinus Date: Mon, 4 Jan 2016 18:25:39 +0000 (+0100) Subject: Minor fixes in tramp-tests.el X-Git-Tag: emacs-25.0.90~269 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6300655;p=emacs.git 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. --- diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index 5938ada8486..f0725847699 100644 --- a/test/automated/tramp-tests.el +++ b/test/automated/tramp-tests.el @@ -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)))))