From 1cd278bfcd7970ebe7f00ec5bd692ecea031ec6d Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 16 Jul 2021 01:42:49 +0200 Subject: [PATCH] Add a couple more shell-tests-split-string tests --- test/lisp/shell-tests.el | 4 ++++ 1 file changed, 4 insertions(+) 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)) -- 2.39.2