diff options
| author | Stefan Monnier | 2018-12-04 12:39:47 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2018-12-04 12:39:47 -0500 |
| commit | eaeeece92da51b517097667f13d580aa92ad5d59 (patch) | |
| tree | 12d633ca416055fe94706298a92f889b49dfb6b2 /test | |
| parent | f745cf8c438cdb258bc1a37b617749d1c84e688e (diff) | |
| download | emacs-eaeeece92da51b517097667f13d580aa92ad5d59.tar.gz emacs-eaeeece92da51b517097667f13d580aa92ad5d59.zip | |
* lisp/shell.el (shell--parse-pcomplete-arguments): Stop at semi-colon
* test/lisp/shell-tests.el (shell-tests-completion-before-semi):
New corresponding test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/shell-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el index 105701ebbc8..9550800f453 100644 --- a/test/lisp/shell-tests.el +++ b/test/lisp/shell-tests.el | |||
| @@ -30,4 +30,12 @@ | |||
| 30 | "Test problem found by Filipp Gunbin in emacs-devel." | 30 | "Test problem found by Filipp Gunbin in emacs-devel." |
| 31 | (should (equal (car (shell--unquote&requote-argument "te'st" 2)) "test"))) | 31 | (should (equal (car (shell--unquote&requote-argument "te'st" 2)) "test"))) |
| 32 | 32 | ||
| 33 | (ert-deftest shell-tests-completion-before-semi () | ||
| 34 | (with-temp-buffer | ||
| 35 | (shell-mode) | ||
| 36 | (insert "cd ba;") | ||
| 37 | (forward-char -1) | ||
| 38 | (should (equal (shell--parse-pcomplete-arguments) | ||
| 39 | '(("cd" "ba") 1 4))))) | ||
| 40 | |||
| 33 | ;;; shell-tests.el ends here | 41 | ;;; shell-tests.el ends here |