branch: elpa/with-simulated-input
commit d32cbc3ac9264cc1a533e3ea9db3db985874c512
Author: Ryan C. Thompson <[email protected]>
Commit: Ryan C. Thompson <[email protected]>
Revert "Remove interpolation test"
This reverts commit dd21b9446f93ea89d8ab1af7eec17869a4de494f.
---
tests/test-with-simulated-input.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/tests/test-with-simulated-input.el
b/tests/test-with-simulated-input.el
index b175de53a9..0e4907ae96 100644
--- a/tests/test-with-simulated-input.el
+++ b/tests/test-with-simulated-input.el
@@ -164,7 +164,18 @@
(read-string "Enter a string: "))
nil)
(expect my-non-lexical-var
- :to-be-truthy)))))
+ :to-be-truthy)))
+
+ (it "should allow interpolation of variables into KEYS"
+ (let ((my-key-sequence "hello")
+ (my-lisp-form '(insert " world")))
+ (expect
+ (with-simulated-input (list
+ my-key-sequence
+ my-lisp-form
+ "RET")
+ (read-string "Enter a string: "))
+ :to-equal "hello world")))))
(defun time-equal-p (t1 t2)
"Return non-nil if T1 and T2 represent the same time.
