[elpa] externals/shell-command+ 86caf3d 09/13: Add tests for shell-command+-tokenize

[Stefan Monnier]

branch: externals/shell-command+
commit 86caf3dc34c977a1feec7f82770a2de00e33c0ee
Author: Philip K <philipk@posteo.net>
Commit: Philip K <philipk@posteo.net>

    Add tests for shell-command+-tokenize
---
 shell-command+-tests.el | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/shell-command+-tests.el b/shell-command+-tests.el
index e4c54e2..b68169d 100644
--- a/shell-command+-tests.el
+++ b/shell-command+-tests.el
@@ -154,5 +154,26 @@
       (should (string= (shell-command+-expand-path path)
                        expand)))))
 
+(ert-deftest sc+-tokenize ()
+  "Test that `shell-command+-tokenize' works as expected"
+  (pcase-dolist (`(,args ,expand ,list)
+                 '(("a b c" nil ("a" "b" "c"))
+                   ("a \"b c\" d" nil ("a" "b c" "d"))
+                   ("a *.el d" nil ("a" "*.el" "d"))
+                   ("a *.el d" t ("a"
+                                  ".dir-locals.el"
+                                  "shell-command+-tests.el"
+                                  "shell-command+.el"
+                                  "d"))
+                   ("a b *.el" nil ("a" "b" "*.el"))
+                   ("a b *.el" t ("a" "b"
+                                  ".dir-locals.el"
+                                  "shell-command+-tests.el"
+                                  "shell-command+.el"))
+                   ("a \"*.el\" d" nil ("a" "*.el" "d"))
+                   ("a \"*.el\" d" t ("a" "*.el" "d"))))
+    (should (equal (shell-command+-tokenize args expand)
+                   list))))
+
 (provide 'shell-command+-tests)
 ;;; shell-command+-tests.el ends here