branch: externals/shell-command+
commit 6ec5ed67310ba026c79761d377f90d7a3d3fa84e
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Add more testcases to sc+-tokenize
---
shell-command+-tests.el | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/shell-command+-tests.el b/shell-command+-tests.el
index d7c53a5..4823bf9 100644
--- a/shell-command+-tests.el
+++ b/shell-command+-tests.el
@@ -175,7 +175,19 @@
"shell-command+-tests.el"
"shell-command+.el"))
("a \"*.el\" d" nil ("a" "*.el" "d"))
- ("a \"*.el\" d" t ("a" "*.el" "d"))))
+ ("a \"*.el\" d" t ("a" "*.el" "d"))
+ ("a \"b\\ c\" d" nil ("a" "b c" "d"))
+ ("a \"b\\\" c\" d" nil ("a" "b\" c" "d"))
+ ("a \"b\\\" \\\"c\" d" nil ("a" "b\" \"c" "d"))
+ ("a b \\c d" nil ("a" "b" "c" "d"))
+ ("a b \\cd" nil ("a" "b" "cd"))
+ ("a b\\ c d" nil ("a" "b c" "d"))
+ ("a b\\c d" nil ("a" "bc" "d"))
+ ("a b\\ c d" nil ("a" "b c" "d"))
+ ("a b\\\\c d" nil ("a" "b\\c" "d"))
+ ("a b\\\\ c d" nil ("a" "b\\" "c" "d"))
+ ("a b\\\\\\ c d" nil ("a" "b\\\\ c" "d"))
+ ("abcd\\ ef gh" nil ("abcd ef" "gh"))))
(should (equal (shell-command+-tokenize args expand)
list))))
