branch: elpa/with-simulated-input
commit 5bdbde591dae0fa53791522946fa9c37fe9ae8b4
Author: Ryan C. Thompson <[email protected]>
Commit: Ryan C. Thompson <[email protected]>
Eliminate spurious warning in test file
---
tests/test-with-simulated-input.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/tests/test-with-simulated-input.el
b/tests/test-with-simulated-input.el
index 7cfd30386e..7b9632cfd0 100644
--- a/tests/test-with-simulated-input.el
+++ b/tests/test-with-simulated-input.el
@@ -8,7 +8,7 @@
(require 'buttercup)
;; Needs to be dynamically bound
-(defvar mycollection)
+(defvar my-collection)
(defvar my-non-lexical-var)
(describe "`wsi-get-unbound-key'"
@@ -80,7 +80,7 @@
:var (completing-read-function)
(before-each
- (setq mycollection '("bluebird" "blueberry" "bluebell" "bluegrass"
"baseball")
+ (setq my-collection '("bluebird" "blueberry" "bluebell" "bluegrass"
"baseball")
completing-read-function #'completing-read-default))
;; Unambiguous completion
@@ -88,13 +88,13 @@
(expect
;; First TAB completes "blue", 2nd completes "bird"
(with-simulated-input "bl TAB bi TAB RET"
- (completing-read "Choose: " mycollection))
+ (completing-read "Choose: " my-collection))
:to-equal "bluebird"))
(it "should work with ambiguous tab completion"
(expect
(with-simulated-input "bl TAB C-j"
- (completing-read "Choose: " mycollection))
+ (completing-read "Choose: " my-collection))
:to-equal "blue"))
(it "should fail to exit with ambiguous completion and `require-match'"
@@ -103,7 +103,7 @@
(expect
(with-simulated-input "bl TAB C-j"
- (completing-read "Choose: " mycollection nil t))
+ (completing-read "Choose: " my-collection nil t))
:to-throw)))
(describe "using lisp forms in KEYS argument of `with-simulated-input'"
