Add a couple more shell-tests-split-string tests

diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el
index c4147088a2e800aa02af7d1c6f20c973b1297a56..223a18590b1b667da4305b608832020f689af8ed 100644 (file)
--- a/test/lisp/shell-tests.el
+++ b/test/lisp/shell-tests.el
@@ -54,6 +54,10 @@
                  '("ls" "/tmp/foo bar")))
   (should (equal (split-string-shell-command "ls /tmp/'foo bar'")
                  '("ls" "/tmp/foo bar")))
+  (should (equal (split-string-shell-command "ls /tmp/'foo\"bar'")
+                 '("ls" "/tmp/foo\"bar")))
+  (should (equal (split-string-shell-command "ls /tmp/\"foo''bar\"")
+                 '("ls" "/tmp/foo''bar")))
   (should (equal (split-string-shell-command "ls /tmp/'foo\\ bar'")
                  '("ls" "/tmp/foo\\ bar")))
   (unless (memq system-type '(windows-nt ms-dos))