branch: elpa/bash-completion
commit 18ed1504ce9be60c450beb54513c75d7b5e260d9
Author: Stephane Zermatten <[email protected]>
Commit: Stephane Zermatten <[email protected]>
Add test cases for TRAMP shell.
This change adds some simple test cases to cover TRAMP, using /sg: so
there's no need to setup anything special to login to.
---
test/bash-completion-integration-test.el | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/test/bash-completion-integration-test.el
b/test/bash-completion-integration-test.el
index be9765f5aa..744b1083c6 100644
--- a/test/bash-completion-integration-test.el
+++ b/test/bash-completion-integration-test.el
@@ -538,4 +538,25 @@ $ ")))))
(let ((default-directory "/does-not-exist/"))
(should (equal "ls some/" (bash-completion_test-complete "ls so"))))))
+(ert-deftest bash-completion-integration-tramp-single-process ()
+ (bash-completion_test-harness
+ "" ; .bashrc
+ nil ; use-separate-process
+ (let ((default-directory (concat "/sg:localhost:" default-directory)))
+ (bash-completion_test-with-shell
+ (should (file-remote-p default-directory))
+ (let ((default-directory "/does-not-exist/"))
+ (should (equal "ls some/"
+ (bash-completion_test-complete "ls so"))))))))
+
+(ert-deftest bash-completion-integration-tramp-separate-process ()
+ (bash-completion_test-harness
+ "" ; .bashrc
+ t ; use-separate-process
+ (let ((default-directory (concat "/sg:localhost:" default-directory)))
+ (bash-completion_test-with-shell
+ (should (file-remote-p default-directory))
+ (should (equal "ls some/"
+ (bash-completion_test-complete "ls so")))))))
+
;;; bash-completion-integration-test.el ends here
