diff options
| author | Noam Postavsky <npostavs@users.sourceforge.net> | 2017-04-08 14:15:02 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@users.sourceforge.net> | 2017-04-08 14:33:42 -0400 |
| commit | 20ba0d6145e447c5a62fdb50bbcae16d0923b1e3 (patch) | |
| tree | c34256ed2a92681be12a02327c3d7b4495522979 /t | |
| parent | 666f6038df9f5bd23b0f3c1936a3456bdff751c3 (diff) | |
test magit-toplevel:tramp: don't use sudo
Temporarily override the tramp method so it just uses a plain shell
instead.
Diffstat (limited to 't')
| -rw-r--r-- | t/magit-tests.el | 34 |
1 files changed, 20 insertions, 14 deletions
diff --git a/t/magit-tests.el b/t/magit-tests.el index 05485f0..e1479ef 100644 --- a/t/magit-tests.el +++ b/t/magit-tests.el @@ -61,21 +61,27 @@ (expand-file-name "repo/")))))) (ert-deftest magit-toplevel:tramp () - (let ((find-file-visit-truename nil)) + (cl-letf* ((find-file-visit-truename nil) + ;; Override tramp method so that we don't actually + ;; require a functioning `sudo'. + (sudo-method (cdr (assoc "sudo" tramp-methods))) + ((cdr (assq 'tramp-login-program sudo-method)) + (list shell-file-name)) + ((cdr (assq 'tramp-login-args sudo-method)) nil)) (magit-with-test-directory - (setq default-directory - (concat (format "/sudo:%s@localhost:" (user-login-name)) - default-directory)) - (magit-git "init" "repo") - (magit-test-magit-toplevel) - (should (equal (magit-toplevel "repo/.git/") - (expand-file-name "repo/"))) - (should (equal (magit-toplevel "repo/.git/objects/") - (expand-file-name "repo/"))) - (should (equal (magit-toplevel "repo-link/.git/") - (expand-file-name "repo-link/"))) - (should (equal (magit-toplevel "repo-link/.git/objects/") - (expand-file-name "repo/")))))) + (setq default-directory + (concat (format "/sudo:%s@localhost:" (user-login-name)) + default-directory)) + (magit-git "init" "repo") + (magit-test-magit-toplevel) + (should (equal (magit-toplevel "repo/.git/") + (expand-file-name "repo/"))) + (should (equal (magit-toplevel "repo/.git/objects/") + (expand-file-name "repo/"))) + (should (equal (magit-toplevel "repo-link/.git/") + (expand-file-name "repo-link/"))) + (should (equal (magit-toplevel "repo-link/.git/objects/") + (expand-file-name "repo/")))))) (ert-deftest magit-toplevel:submodule () (let ((find-file-visit-truename nil)) |