emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/git-commit 71f682770b 3/3: test: Remove magit-toplevel:tra


From: ELPA Syncer
Subject: [nongnu] elpa/git-commit 71f682770b 3/3: test: Remove magit-toplevel:tramp
Date: Mon, 1 May 2023 11:11:58 -0400 (EDT)

branch: elpa/git-commit
commit 71f682770beabb04d99b32973880ccd4b2a3161d
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    test: Remove magit-toplevel:tramp
    
    Yet another attempt to get this working on my machine
    just failed and I do not see myself trying again.
---
 test/magit-tests.el | 25 -------------------------
 1 file changed, 25 deletions(-)

diff --git a/test/magit-tests.el b/test/magit-tests.el
index 89dc61ff29..57797f338a 100644
--- a/test/magit-tests.el
+++ b/test/magit-tests.el
@@ -88,31 +88,6 @@
                      ;; But in the doc-string we say we cannot do it.
                      (expand-file-name "repo/"))))))
 
-;; FIXME (ert-deftest magit-toplevel:tramp ()
-;;   (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 (if (file-executable-p "/bin/sh")
-;;                         "/bin/sh"
-;;                       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-test-init-repo "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))
     (magit-with-test-directory



reply via email to

[Prev in Thread] Current Thread [Next in Thread]