From 6300655ec9286f3a259ee60536819a0056be4810 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 4 Jan 2016 19:25:39 +0100 Subject: [PATCH] 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. --- test/automated/tramp-tests.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el index 5938ada848..f072584769 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))))) -- 2.39.2