diff options
| author | Michael Albinus | 2016-01-04 19:25:39 +0100 |
|---|---|---|
| committer | Michael Albinus | 2016-01-04 19:25:39 +0100 |
| commit | 6300655ec9286f3a259ee60536819a0056be4810 (patch) | |
| tree | 18ece665c3d4f8c3765de635025dbf3d67cc6894 /test | |
| parent | 50575b1bdd7fcb4d1bf525fb5ca635fe7ab7d8c6 (diff) | |
| download | emacs-6300655ec9286f3a259ee60536819a0056be4810.tar.gz emacs-6300655ec9286f3a259ee60536819a0056be4810.zip | |
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.
Diffstat (limited to 'test')
| -rw-r--r-- | 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 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'." | |||
| 1424 | (should-not (get-buffer-window (current-buffer) t)) | 1424 | (should-not (get-buffer-window (current-buffer) t)) |
| 1425 | 1425 | ||
| 1426 | ;; Second run. The output must be appended. | 1426 | ;; Second run. The output must be appended. |
| 1427 | (goto-char (point-max)) | ||
| 1427 | (should (zerop (process-file "ls" nil t t fnnd))) | 1428 | (should (zerop (process-file "ls" nil t t fnnd))) |
| 1428 | ;; `ls' could produce colorized output. | 1429 | ;; `ls' could produce colorized output. |
| 1429 | (goto-char (point-min)) | 1430 | (goto-char (point-min)) |
| @@ -1652,8 +1653,8 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'." | |||
| 1652 | (error | 1653 | (error |
| 1653 | (vc-register | 1654 | (vc-register |
| 1654 | nil (list (car vc-handled-backends) | 1655 | nil (list (car vc-handled-backends) |
| 1655 | (list (file-name-nondirectory tmp-name2))))))) | 1656 | (list (file-name-nondirectory tmp-name2)))))) |
| 1656 | (should (vc-registered tmp-name2))) | 1657 | (should (vc-registered (file-name-nondirectory tmp-name2))))) |
| 1657 | 1658 | ||
| 1658 | ;; Cleanup. | 1659 | ;; Cleanup. |
| 1659 | (ignore-errors (delete-directory tmp-name1 'recursive))))) | 1660 | (ignore-errors (delete-directory tmp-name1 'recursive))))) |