aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorMichael Albinus2016-01-04 19:25:39 +0100
committerMichael Albinus2016-01-04 19:25:39 +0100
commit6300655ec9286f3a259ee60536819a0056be4810 (patch)
tree18ece665c3d4f8c3765de635025dbf3d67cc6894 /test
parent50575b1bdd7fcb4d1bf525fb5ca635fe7ab7d8c6 (diff)
downloademacs-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.el5
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)))))