[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 6300655: Minor fixes in tramp-tests.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs-25 6300655: Minor fixes in tramp-tests.el |
Date: |
Mon, 04 Jan 2016 18:25:50 +0000 |
branch: emacs-25
commit 6300655ec9286f3a259ee60536819a0056be4810
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
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 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/test/automated/tramp-tests.el b/test/automated/tramp-tests.el
index 5938ada..f072584 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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 6300655: Minor fixes in tramp-tests.el,
Michael Albinus <=