[nongnu] elpa/with-simulated-input 681397b90d 130/134: Also test variables containing characters

[ELPA Syncer]

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

    Also test variables containing characters
---
 tests/test-with-simulated-input.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/tests/test-with-simulated-input.el 
b/tests/test-with-simulated-input.el
index fbdbc30cc2..269384950c 100644
--- a/tests/test-with-simulated-input.el
+++ b/tests/test-with-simulated-input.el
@@ -176,11 +176,17 @@ during macro expansion will be caught as well."
          ("hello" "RET")
          ((insert "hello") (exit-minibuffer))
          ((insert "hello") "RET")
-         ("hello" (exit-minibuffer)))
+         ("hello" (exit-minibuffer))
+         (?h ?e ?l ?l ?o 10))
        do (expect
            (with-simulated-input input
              (read-string "Enter a string: "))
-           :to-equal "hello")))
+           :to-equal "hello"))
+      (let ((answer-char ?y))
+        (expect
+         (with-simulated-input answer-char
+           (read-char "Choose your character: "))
+         :to-equal answer-char)))
 
     ;; This syntax is not known to be used in any real code.
     (it "is an arbitrary expression evaluating to any of the above 
(deprecated)"