diff options
| author | Eli Zaretskii | 2021-07-15 12:37:26 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2021-07-15 12:37:26 +0300 |
| commit | acf583b209549cb533ca6436e5178f4f60027aa4 (patch) | |
| tree | b2048a6353e38ff69c45d9fc95155a0c682cd845 | |
| parent | 07392da96d608b525529e15f1d04ebc6c0e4d15b (diff) | |
| download | emacs-acf583b209549cb533ca6436e5178f4f60027aa4.tar.gz emacs-acf583b209549cb533ca6436e5178f4f60027aa4.zip | |
Fix 'shell-tests-split-string' on MS-Windows
* test/lisp/shell-tests.el (shell-tests-split-string): Skip test
that always fails on MS-Windows/MS-DOS.
| -rw-r--r-- | test/lisp/shell-tests.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el index 1e5de71ad79..c4147088a2e 100644 --- a/test/lisp/shell-tests.el +++ b/test/lisp/shell-tests.el | |||
| @@ -56,7 +56,8 @@ | |||
| 56 | '("ls" "/tmp/foo bar"))) | 56 | '("ls" "/tmp/foo bar"))) |
| 57 | (should (equal (split-string-shell-command "ls /tmp/'foo\\ bar'") | 57 | (should (equal (split-string-shell-command "ls /tmp/'foo\\ bar'") |
| 58 | '("ls" "/tmp/foo\\ bar"))) | 58 | '("ls" "/tmp/foo\\ bar"))) |
| 59 | (should (equal (split-string-shell-command "ls /tmp/foo\\ bar") | 59 | (unless (memq system-type '(windows-nt ms-dos)) |
| 60 | '("ls" "/tmp/foo bar")))) | 60 | (should (equal (split-string-shell-command "ls /tmp/foo\\ bar") |
| 61 | '("ls" "/tmp/foo bar"))))) | ||
| 61 | 62 | ||
| 62 | ;;; shell-tests.el ends here | 63 | ;;; shell-tests.el ends here |