[elpa] master acdec5b 27/45: Add an integration test for digit args in amaranth

[Oleh Krehel]

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

    Add an integration test for digit args in amaranth
    
    * hydra-test.el (hydra-simple-1): Rename.
    (hydra-simple-2): New auxiliary hydra.
    (hydra-integration-2): Add test.
    
    Re #104
---
 hydra-test.el |   17 ++++++++++++++++-
 1 files changed, 16 insertions(+), 1 deletions(-)

diff --git a/hydra-test.el b/hydra-test.el
index fcb34c5..23616ee 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -1172,11 +1172,16 @@ _w_ Worf:                      % -8`hydra-tng/worf^^    
_h_ Set phasers to
                    body-pre)
                  '(funcall (function foo)))))
 
-(defhydra hydra-simple (global-map "C-c")
+(defhydra hydra-simple-1 (global-map "C-c")
   ("a" (insert "j"))
   ("b" (insert "k"))
   ("q" nil))
 
+(defhydra hydra-simple-2 (global-map "C-c" :color amaranth)
+  ("c" self-insert-command)
+  ("d" self-insert-command)
+  ("q" nil))
+
 (defmacro hydra-with (in &rest body)
   `(let ((temp-buffer (generate-new-buffer " *temp*")))
      (save-window-excursion
@@ -1217,6 +1222,16 @@ _w_ Worf:                      % -8`hydra-tng/worf^^    
_h_ Set phasers to
                                (execute-kbd-macro "aaqaabbaa"))
                    "jjkkaaqaabbaa|")))
 
+(ert-deftest hydra-integration-2 ()
+  (should (string= (hydra-with "|"
+                               (execute-kbd-macro
+                                (kbd "C-c c 1 c 2 d 4 c q")))
+                   "ccddcccc|"))
+  (should (string= (hydra-with "|"
+                               (execute-kbd-macro
+                                (kbd "C-c c 1 c C-u d C-u 10 c q")))
+                   "ccddddcccccccccc|")))
+
 (provide 'hydra-test)
 
 ;;; hydra-test.el ends here