]> code.delx.au - gnu-emacs/commitdiff
Minor fixes in tramp-tests.el
authorMichael Albinus <michael.albinus@gmx.de>
Mon, 4 Jan 2016 18:25:39 +0000 (19:25 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Mon, 4 Jan 2016 18:25:39 +0000 (19:25 +0100)
* 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

index 5938ada8486283092a99dea2dd3cec4a1e0cf760..f07258476993d476915a02ba85a6c906549e2d8e 100644 (file)
@@ -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)))))