branch: elpa/with-simulated-input
commit 235a93f0fcb3080b545377d0d4949691715bfe2f
Author: Ryan C. Thompson <[email protected]>
Commit: Ryan C. Thompson <[email protected]>
Add test for run-time evaluation of KEYS
---
tests/test-with-simulated-input.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/tests/test-with-simulated-input.el
b/tests/test-with-simulated-input.el
index 7b9632cfd0..db1c465f5a 100644
--- a/tests/test-with-simulated-input.el
+++ b/tests/test-with-simulated-input.el
@@ -114,6 +114,17 @@
(read-string "Enter a string: "))
:to-equal "hello world"))
+ (it "should allow KEYS to be evaluated at run time"
+ (let ((greeting "hello")
+ (target "world"))
+ (expect
+ (with-simulated-input
+ (list greeting "SPC"
+ (list 'insert target)
+ "RET")
+ (read-string "Say hello: "))
+ :to-equal "hello world")))
+
(it "should allow lisp forms to throw errors"
(expect
