branch: elpa/with-simulated-input
commit 681397b90d7d9f4f4215555f71d5bbcb44e84f25
Author: Ryan C. Thompson <[email protected]>
Commit: Ryan C. Thompson <[email protected]>
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)"
