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

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

[nongnu] elpa/with-simulated-input d0f7795942 034/134: Update buttercup


From: ELPA Syncer
Subject: [nongnu] elpa/with-simulated-input d0f7795942 034/134: Update buttercup
Date: Mon, 10 Jan 2022 23:00:02 -0500 (EST)

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

    Update buttercup
---
 Cask                               |  6 +-----
 tests/test-with-simulated-input.el | 25 ++++++++++++-------------
 2 files changed, 13 insertions(+), 18 deletions(-)

diff --git a/Cask b/Cask
index 02b30015b4..d5823a685d 100644
--- a/Cask
+++ b/Cask
@@ -10,9 +10,5 @@
 (depends-on "s")
 
 (development
- (depends-on "buttercup"
-             :git "https://github.com/DarwinAwardWinner/emacs-buttercup.git";
-             :branch "show-exprs"
-             :files ("*.el"
-                     ("bin" "bin/*")))
+ (depends-on "buttercup")
  (depends-on "undercover"))
diff --git a/tests/test-with-simulated-input.el 
b/tests/test-with-simulated-input.el
index ea0f50f638..bb597315a2 100644
--- a/tests/test-with-simulated-input.el
+++ b/tests/test-with-simulated-input.el
@@ -22,17 +22,16 @@
 
   (it "should throw an error if the input is incomplete"
     (expect
-     (lambda ()
-       (with-simulated-input "hello"
-         (read-string "Enter a string: ")))
+     (with-simulated-input "hello"
+       (read-string "Enter a string: "))
      :to-throw))
 
   (it "should allow the input to trigger errors"
     (expect
-     (lambda ()
-       (with-simulated-input
-           "(error SPC \"Manually SPC throwing SPC an SPC error\") RET"
-         (command-execute 'eval-expression)))
+
+     (with-simulated-input
+         "(error SPC \"Manually SPC throwing SPC an SPC error\") RET"
+       (command-execute 'eval-expression))
      :to-throw))
 
   (it "should ignore extra input after BODY has completed"
@@ -83,9 +82,9 @@
       ;; Suppress messages by replacing `message' with a stub
       (spy-on 'message)
       (expect
-       (lambda ()
-         (with-simulated-input "bl TAB C-j"
-           (completing-read "Choose: " mycollection nil t)))
+
+       (with-simulated-input "bl TAB C-j"
+         (completing-read "Choose: " mycollection nil t))
        :to-throw)))
 
   (describe "using lisp forms in KEYS argument of `with-simulated-input'"
@@ -98,9 +97,9 @@
 
     (it "should allow lisp forms to throw errors"
       (expect
-       (lambda ()
-         (with-simulated-input '("hello SPC" (error "Throwing an error") "RET")
-           (read-string "Enter a string: ")))
+
+       (with-simulated-input '("hello SPC" (error "Throwing an error") "RET")
+         (read-string "Enter a string: "))
        :to-throw))
 
     (it "should not interpret lisp forms once BODY has finished"



reply via email to

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