[nongnu] elpa/with-simulated-input 445df9edfd 110/134: Eliminate unnecessary quotes in test suite

[ELPA Syncer]

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

    Eliminate unnecessary quotes in test suite
    
    Since unquoted lists are now the preferred syntax, the test suite
    should reflect that except when it is specifically testing the
    deprecated syntax.
---
 tests/test-with-simulated-input.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/tests/test-with-simulated-input.el 
b/tests/test-with-simulated-input.el
index 685273cdc5..c2c2f9d646 100644
--- a/tests/test-with-simulated-input.el
+++ b/tests/test-with-simulated-input.el
@@ -39,7 +39,7 @@ put this outside any relevant `let' forms."
     '(progn
        ,@(cl-loop for expr in body
                   collect `(funcall (lambda () ,expr)))
-    lexical-binding)))
+       lexical-binding)))
 
 (defvar warnings-displayed-count 0
   "Count of warnings that have been displayed.")
@@ -216,9 +216,9 @@ during macro expansion will be caught as well."
            (read-string "Say hello: "))
          :to-equal "hello world"))
       (let ((my-lexical-var nil))
-        (with-simulated-input '("hello"
-                                (setq my-lexical-var t)
-                                "RET")
+        (with-simulated-input ("hello"
+                               (setq my-lexical-var t)
+                               "RET")
           (read-string "Enter a string: "))
         (expect my-lexical-var
                 :to-be-truthy)))
@@ -226,9 +226,9 @@ during macro expansion will be caught as well."
     (it "is evaluated at run time in a non-lexical environment"
       (let ((my-non-lexical-var nil))
         (eval
-         '(with-simulated-input '("hello"
-                                  (setq my-non-lexical-var t)
-                                  "RET")
+         '(with-simulated-input ("hello"
+                                 (setq my-non-lexical-var t)
+                                 "RET")
             (read-string "Enter a string: "))
          nil)
         (expect my-non-lexical-var
@@ -260,7 +260,7 @@ during macro expansion will be caught as well."
 
     (it "is thrown directly from expressions in KEYS"
       (expect
-       (with-simulated-input '("hello" (error "Throwing an error from KEYS") 
"RET")
+       (with-simulated-input ("hello" (error "Throwing an error from KEYS") 
"RET")
          (read-string "Enter a string: "))
        :to-throw 'error '("Throwing an error from KEYS")))
 
@@ -323,15 +323,15 @@ during macro expansion will be caught as well."
        (read-string "Enter a string: "))
      :to-throw 'error)
     (expect
-     (with-simulated-input '()
+     (with-simulated-input ()
        (read-string "Enter a string: "))
      :to-throw 'error)
     (expect
-     (with-simulated-input ()
+     (with-simulated-input '()
        (read-string "Enter a string: "))
      :to-throw 'error)
     (expect
-     (with-simulated-input '(nil)
+     (with-simulated-input (nil)
        (read-string "Enter a string: "))
      :to-throw 'error)
     (let ((my-input nil))
@@ -346,11 +346,11 @@ during macro expansion will be caught as well."
        (+ 1 2))
      :not :to-throw)
     (expect
-     (with-simulated-input '()
+     (with-simulated-input ()
        (+ 1 2))
      :not :to-throw)
     (expect
-     (with-simulated-input ()
+     (with-simulated-input '()
        (+ 1 2))
      :not :to-throw)
     (expect