diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-16 16:53:33 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-16 17:03:20 +0100 |
| commit | b93ab4c0e0cb7de245af18c675d4cfe53a3dac0a (patch) | |
| tree | 5437efab82f9fb193ebfb20173b0222c5403744a | |
| parent | aea1ccfa92f4b61911e37d8b0bb011807dd451fe (diff) | |
Add test for executable-find
| -rw-r--r-- | compat-27.el | 2 | ||||
| -rw-r--r-- | compat-tests.el | 9 |
2 files changed, 9 insertions, 2 deletions
diff --git a/compat-27.el b/compat-27.el index 12209ce..41686f3 100644 --- a/compat-27.el +++ b/compat-27.el @@ -445,7 +445,7 @@ the value of the variable `exec-path'." (nreverse path))))) (exec-path))) -(compat-defun executable-find (command &optional remote) ;; <UNTESTED> +(compat-defun executable-find (command &optional remote) ;; <compat-tests:executable-find> "Search for COMMAND in `exec-path' and return the absolute file name. Return nil if COMMAND is not found anywhere in `exec-path'. If REMOTE is non-nil, search on the remote host indicated by diff --git a/compat-tests.el b/compat-tests.el index 4da2e12..5d035f5 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -1232,6 +1232,13 @@ (should-equal t (always 1)) ;; single argument (should-equal t (always 1 2 3 4))) ;; multiple arguments +(ert-deftest executable-find () + (should (member (executable-find "sh") '("/usr/bin/sh" "/bin/sh"))) + (should (member (executable-find "ls") '("/usr/bin/ls" "/bin/ls"))) + ;; TODO These dummy calls are executed locally, test Tramp! + (should (member (compat-call executable-find "sh" t) '("/usr/bin/sh" "/bin/sh"))) + (should (member (compat-call executable-find "ls" t) '("/usr/bin/ls" "/bin/ls")))) + (ert-deftest with-existing-directory () (let ((dir (make-temp-name "/tmp/not-exist-"))) (let ((default-directory dir)) @@ -1244,7 +1251,7 @@ (should-equal (temporary-file-directory) temporary-file-directory) (let ((default-directory "/mnt")) (should-equal (temporary-file-directory) default-directory)) - ;; TODO how can we test tramp? + ;; TODO Implement Tramp test ;;(let ((default-directory "/sudo:/")) ;; (should-equal (temporary-file-directory) temporary-file-directory)) ;;(let ((default-directory "/ssh:does-not-exist:/")) |