[nongnu] elpa/with-simulated-input a86f35f3b0 100/134: Add tests for un-quoted lists

[ELPA Syncer]

branch: elpa/with-simulated-input
commit a86f35f3b0bec0d511c14e4db3e8fd09d074872c
Author: Ryan C. Thompson <rct@thompsonclan.org>
Commit: Ryan C. Thompson <rct@thompsonclan.org>

    Add tests for un-quoted lists
    
    Un-quoted lists are likely to become the primary supported way of
    passing multiple items as KEYS in the next major version.
---
 tests/test-with-simulated-input.el | 46 ++++++++++++++++++++++++++++++++------
 1 file changed, 39 insertions(+), 7 deletions(-)

diff --git a/tests/test-with-simulated-input.el 
b/tests/test-with-simulated-input.el
index a349e47045..82994a2710 100644
--- a/tests/test-with-simulated-input.el
+++ b/tests/test-with-simulated-input.el
@@ -60,6 +60,32 @@
          (read-string "Enter a string: "))
        :to-equal "hello world"))
 
+    (it "is an un-quoted list of literal strings"
+      (expect
+       (with-simulated-input ("hello" "RET")
+         (read-string "Enter a string: "))
+       :to-equal "hello"))
+
+    (it "is an un-quoted list of lisp forms"
+      (expect
+       (with-simulated-input ((insert "hello") (exit-minibuffer))
+         (read-string "Enter a string: "))
+       :to-equal "hello"))
+
+    (it "is an un-quoted list of strings and lisp forms"
+      (expect
+       (with-simulated-input ((insert "hello") "RET")
+         (read-string "Enter a string: "))
+       :to-equal "hello")
+      (expect
+       (with-simulated-input ("hello" (exit-minibuffer))
+         (read-string "Enter a string: "))
+       :to-equal "hello")
+      (expect
+       (with-simulated-input ("hello SPC" (insert "world") "RET")
+         (read-string "Enter a string: "))
+       :to-equal "hello world"))
+
     (it "is a variable containing any of the above"
       (cl-loop
        for input in
@@ -88,14 +114,8 @@
        (with-simulated-input (concat "hello" " " "RET")
          (read-string "Enter a string: "))
        :to-equal "hello")
-      (let ((my-key-sequence "hello")
+      (let ((my-key-sequence (kbd "hello"))
             (my-lisp-form '(insert " world")))
-        (expect
-         (with-simulated-input '((execute-kbd-macro my-key-sequence)
-                                 (eval my-lisp-form)
-                                 "RET")
-           (read-string "Enter a string: "))
-         :to-equal "hello world")
         (expect
          (with-simulated-input (list
                                 my-key-sequence
@@ -103,12 +123,24 @@
                                 "RET")
            (read-string "Enter a string: "))
          :to-equal "hello world")
+        (expect
+         (with-simulated-input '((execute-kbd-macro my-key-sequence)
+                                 (eval my-lisp-form)
+                                 "RET")
+           (read-string "Enter a string: "))
+         :to-equal "hello world")
         (expect
          (with-simulated-input (list
                                 `(execute-kbd-macro ,my-key-sequence)
                                 `(eval ,my-lisp-form)
                                 "RET")
            (read-string "Enter a string: "))
+         :to-equal "hello world")
+        (expect
+         (with-simulated-input `((execute-kbd-macro ,my-key-sequence)
+                                 (eval ,my-lisp-form)
+                                 "RET")
+           (read-string "Enter a string: "))
          :to-equal "hello world")))
 
     ;; This syntax is not known to be used in any real code