summaryrefslogtreecommitdiff
path: root/test/lisp/shell-tests.el
diff options
context:
space:
mode:
authorMattias EngdegÄrd <mattiase@acm.org>2020-01-20 15:52:27 +0100
committerMattias EngdegÄrd <mattiase@acm.org>2020-01-20 15:52:27 +0100
commitfd192821342dee6692068adcb18342674f701bc8 (patch)
treed49bd8fd24cca2c1df7adad101d87c9a1a57e6ed /test/lisp/shell-tests.el
parent891f7de8ed1615b830e27922b3d85be53a652a60 (diff)
downloademacs-fd192821342dee6692068adcb18342674f701bc8.tar.gz
emacs-fd192821342dee6692068adcb18342674f701bc8.tar.bz2
emacs-fd192821342dee6692068adcb18342674f701bc8.zip
Fix shell-tests failures
* test/lisp/shell-tests.el (shell-tests-completion-before-semi): Go back to actually testing completion before semicolon. (shell-tests-completion-after-semi): Test completion after semicolon, correctly (bug#39075).
Diffstat (limited to 'test/lisp/shell-tests.el')
-rw-r--r--test/lisp/shell-tests.el10
1 files changed, 9 insertions, 1 deletions
diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el
index 7113cb941c1..606de15c9a6 100644
--- a/test/lisp/shell-tests.el
+++ b/test/lisp/shell-tests.el
@@ -34,7 +34,15 @@
(with-temp-buffer
(shell-mode)
(insert "cd ba;")
+ (forward-char -1)
(should (equal (shell--parse-pcomplete-arguments)
- '(("cd" "ba" "") 1 4)))))
+ '(("cd" "ba") 1 4)))))
+
+(ert-deftest shell-tests-completion-after-semi ()
+ (with-temp-buffer
+ (shell-mode)
+ (insert "cd ba;")
+ (should (equal (shell--parse-pcomplete-arguments)
+ '(("cd" "ba" "") 1 4 7)))))
;;; shell-tests.el ends here