emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/with-simulated-input 5bdbde591d 058/134: Eliminate spuriou


From: ELPA Syncer
Subject: [nongnu] elpa/with-simulated-input 5bdbde591d 058/134: Eliminate spurious warning in test file
Date: Mon, 10 Jan 2022 23:00:05 -0500 (EST)

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

    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'"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]