Merge branch 'new-steps'

emacsmirror · Jun 4, 2015 · d774c90 · d774c90
2 parents f284730 + 5460fc1
commit d774c90
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/espuds.el b/espuds.el
@@ -283,6 +283,11 @@ The value of the face PROPERTY must be one of VALID-VALUES."
     (execute-kbd-macro espuds-action-chain)
     (setq espuds-chain-active nil)))
 
+(When "^I call \"\\(.+\\)\"$"
+  "Call the provided COMMAND"
+  (lambda (command)
+    (call-interactively (intern command))))
+
 (When "^I press \"\\(.+\\)\"$"
   "Execute the function that KEYBINDING is bound to.
 

diff --git a/test/espuds-test.el b/test/espuds-test.el
@@ -875,3 +875,9 @@
    (should (equal 2 (count-windows)))
    (When "I delete other windows")
    (should (equal 1 (count-windows)))))
+
+(ert-deftest when-i-call-a-command ()
+  "Invoke specified command."
+  (with-playground
+   (When "I call \"insert-parentheses\"")
+   (should (equal (buffer-string) "()"))))