emacs-27 fd19282: Fix shell-tests failures

[Mattias Engdegård]

branch: emacs-27
commit fd192821342dee6692068adcb18342674f701bc8
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>

    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).
---
 test/lisp/shell-tests.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el
index 7113cb9..606de15 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