From: Mattias Engdegård <mattiase@acm.org>
Date: Mon, 20 Jan 2020 14:52:27 +0000 (+0100)
Subject: Fix shell-tests failures
X-Git-Tag: emacs-27.0.90~126
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd192821342dee6692068adcb18342674f701bc8;p=emacs.git

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).
---

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