From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 15 Jul 2021 23:42:49 +0000 (+0200)
Subject: Add a couple more shell-tests-split-string tests
X-Git-Tag: emacs-28.0.90~1846
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1cd278bfcd7970ebe7f00ec5bd692ecea031ec6d;p=emacs.git

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

diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el
index c4147088a2e..223a18590b1 100644
--- 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))