[elpa] master 684f8a2 39/45: Add integration test for red hydras temporarily exiting

[Oleh Krehel]

branch: master
commit 684f8a2d71ea7b515fd1de3b6d15973a40002576
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Add integration test for red hydras temporarily exiting
    
    * hydra-test.el (hydra-simple-3): Add.
    (hydra-integration-3): Add.
    
    Re #109
---
 hydra-test.el |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/hydra-test.el b/hydra-test.el
index 7d361e6..d9adba6 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -1198,6 +1198,11 @@ _w_ Worf:                      % -8`hydra-tng/worf^^    
_h_ Set phasers to
   ("d" self-insert-command)
   ("q" nil))
 
+(defhydra hydra-simple-3 (global-map "C-c")
+  ("g" goto-line)
+  ("1" find-file)
+  ("q" nil))
+
 (defmacro hydra-with (in &rest body)
   `(let ((temp-buffer (generate-new-buffer " *temp*")))
      (save-window-excursion
@@ -1248,6 +1253,12 @@ _w_ Worf:                      % -8`hydra-tng/worf^^    
_h_ Set phasers to
                                 (kbd "C-c c 1 c C-u d C-u 10 c q")))
                    "ccddddcccccccccc|")))
 
+(ert-deftest hydra-integration-3 ()
+  (should (string= (hydra-with "foo\nbar|"
+                               (execute-kbd-macro
+                                (kbd "C-c g 1 RET q")))
+                   "|foo\nbar")))
+
 (provide 'hydra-test)
 
 ;;; hydra-test.el ends here