[nongnu] elpa/bash-completion 6a66eeda45 253/313: Add test-case to cover tilde and tilde expansion.

[ELPA Syncer]

branch: elpa/bash-completion
commit 6a66eeda45be9007a9cd99a31b255c6baed6259f
Author: Stephane Zermatten <szermatt@gmx.net>
Commit: Stephane Zermatten <szermatt@gmx.net>

    Add test-case to cover tilde and tilde expansion.
---
 test/bash-completion-integration-test.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/test/bash-completion-integration-test.el 
b/test/bash-completion-integration-test.el
index 53435cc268..b501be6b15 100644
--- a/test/bash-completion-integration-test.el
+++ b/test/bash-completion-integration-test.el
@@ -428,4 +428,19 @@ for testing completion."
     (should (equal "ls up" (bash-completion_test-complete "ls up")))
     (should (not completion-ignore-case)))))
 
+(ert-deftest bash-completion-integration-tilde-test ()
+  (bash-completion_test-harness
+   "HOME=$PWD\n"
+   nil ; use-separate-process
+   (let ((realhome (getenv "HOME")))
+     (unwind-protect
+         (progn
+           (setenv "HOME" test-env-dir)
+           (bash-completion_test-with-shell
+            (should (equal "ls some/" (bash-completion_test-complete "ls so")))
+            (should (equal "ls ~/some/" (bash-completion_test-complete "ls 
~/so")))
+            (should (equal "ls \"~/some/" (bash-completion_test-complete "ls 
\"~/so")))
+            (should (equal "ls '~/some/" (bash-completion_test-complete "ls 
'~/so")))))
+       (setenv "HOME" realhome)))))
+
 ;;; bash-completion-integration-test.el ends here