branch: elpa/with-simulated-input
commit d0f779594243fe85e330fd3f47caeb80068f7134
Author: Ryan C. Thompson <[email protected]>
Commit: Ryan C. Thompson <[email protected]>
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"
