[elpa] externals/hydra cf96140079 12/46: hydra-test.el: Regenerate tests for the last commit

[Stefan Monnier]

branch: externals/hydra
commit cf961400796aea8b385b64ac0ad31c1e2500cf6a
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    hydra-test.el: Regenerate tests for the last commit
    
    Re #281
---
 hydra-test.el | 134 +++++++++++++++++++++++++++++++---------------------------
 1 file changed, 72 insertions(+), 62 deletions(-)

diff --git a/hydra-test.el b/hydra-test.el
index ec6a0c48ec..3ecfb047f8 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -104,16 +104,16 @@
            31 32 (face hydra-face-red)
            42 45 (face hydra-face-red)))))
       (defun hydra-error/first-error nil
-        "Create a hydra with a \"M-g\" body and the heads:
+        "Call the head `first-error' in the \"hydra-error\" hydra.
+
+The heads for the associated hydra are:
 
 \"h\":    `first-error',
 \"j\":    `next-error',
 \"k\":    `previous-error',
 \"SPC\":    `hydra-repeat'
 
-The body can be accessed via `hydra-error/body'.
-
-Call the head: `first-error'."
+The body can be accessed via `hydra-error/body', which is bound to \"M-g\"."
         (interactive)
         (hydra-default-pre)
         (let ((hydra--ignore t))
@@ -140,16 +140,16 @@ Call the head: `first-error'."
            nil)
          nil))
       (defun hydra-error/next-error nil
-        "Create a hydra with a \"M-g\" body and the heads:
+        "Call the head `next-error' in the \"hydra-error\" hydra.
+
+The heads for the associated hydra are:
 
 \"h\":    `first-error',
 \"j\":    `next-error',
 \"k\":    `previous-error',
 \"SPC\":    `hydra-repeat'
 
-The body can be accessed via `hydra-error/body'.
-
-Call the head: `next-error'."
+The body can be accessed via `hydra-error/body', which is bound to \"M-g\"."
         (interactive)
         (hydra-default-pre)
         (let ((hydra--ignore t))
@@ -176,16 +176,16 @@ Call the head: `next-error'."
            nil)
          nil))
       (defun hydra-error/previous-error nil
-        "Create a hydra with a \"M-g\" body and the heads:
+        "Call the head `previous-error' in the \"hydra-error\" hydra.
+
+The heads for the associated hydra are:
 
 \"h\":    `first-error',
 \"j\":    `next-error',
 \"k\":    `previous-error',
 \"SPC\":    `hydra-repeat'
 
-The body can be accessed via `hydra-error/body'.
-
-Call the head: `previous-error'."
+The body can be accessed via `hydra-error/body', which is bound to \"M-g\"."
         (interactive)
         (hydra-default-pre)
         (let ((hydra--ignore t))
@@ -225,14 +225,16 @@ Call the head: `previous-error'."
        (quote
         hydra-error/previous-error))
       (defun hydra-error/body nil
-        "Create a hydra with a \"M-g\" body and the heads:
+        "Call the body in the \"hydra-error\" hydra.
+
+The heads for the associated hydra are:
 
 \"h\":    `first-error',
 \"j\":    `next-error',
 \"k\":    `previous-error',
 \"SPC\":    `hydra-repeat'
 
-The body can be accessed via `hydra-error/body'."
+The body can be accessed via `hydra-error/body', which is bound to \"M-g\"."
         (interactive)
         (hydra-default-pre)
         (let ((hydra--ignore nil))
@@ -322,16 +324,16 @@ The body can be accessed via `hydra-error/body'."
            35 36 (face hydra-face-blue)
            48 49 (face hydra-face-blue)))))
       (defun hydra-toggle/toggle-truncate-lines-and-exit nil
-        "Create a hydra with no body and the heads:
+        "Call the head `toggle-truncate-lines' in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
 
 \"t\":    `toggle-truncate-lines',
 \"f\":    `auto-fill-mode',
 \"a\":    `abbrev-mode',
 \"q\":    `nil'
 
-The body can be accessed via `hydra-toggle/body'.
-
-Call the head: `toggle-truncate-lines'."
+The body can be accessed via `hydra-toggle/body'."
         (interactive)
         (hydra-default-pre)
         (hydra-keyboard-quit)
@@ -344,16 +346,16 @@ Call the head: `toggle-truncate-lines'."
            (function
             toggle-truncate-lines))))
       (defun hydra-toggle/auto-fill-mode-and-exit nil
-        "Create a hydra with no body and the heads:
+        "Call the head `auto-fill-mode' in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
 
 \"t\":    `toggle-truncate-lines',
 \"f\":    `auto-fill-mode',
 \"a\":    `abbrev-mode',
 \"q\":    `nil'
 
-The body can be accessed via `hydra-toggle/body'.
-
-Call the head: `auto-fill-mode'."
+The body can be accessed via `hydra-toggle/body'."
         (interactive)
         (hydra-default-pre)
         (hydra-keyboard-quit)
@@ -365,16 +367,16 @@ Call the head: `auto-fill-mode'."
           (hydra--call-interactively-remap-maybe
            (function auto-fill-mode))))
       (defun hydra-toggle/abbrev-mode-and-exit nil
-        "Create a hydra with no body and the heads:
+        "Call the head `abbrev-mode' in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
 
 \"t\":    `toggle-truncate-lines',
 \"f\":    `auto-fill-mode',
 \"a\":    `abbrev-mode',
 \"q\":    `nil'
 
-The body can be accessed via `hydra-toggle/body'.
-
-Call the head: `abbrev-mode'."
+The body can be accessed via `hydra-toggle/body'."
         (interactive)
         (hydra-default-pre)
         (hydra-keyboard-quit)
@@ -386,23 +388,25 @@ Call the head: `abbrev-mode'."
           (hydra--call-interactively-remap-maybe
            (function abbrev-mode))))
       (defun hydra-toggle/nil nil
-        "Create a hydra with no body and the heads:
+        "Call the head `nil' in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
 
 \"t\":    `toggle-truncate-lines',
 \"f\":    `auto-fill-mode',
 \"a\":    `abbrev-mode',
 \"q\":    `nil'
 
-The body can be accessed via `hydra-toggle/body'.
-
-Call the head: `nil'."
+The body can be accessed via `hydra-toggle/body'."
         (interactive)
         (hydra-default-pre)
         (hydra-keyboard-quit)
         (setq hydra-curr-body-fn
               (quote hydra-toggle/body)))
       (defun hydra-toggle/body nil
-        "Create a hydra with no body and the heads:
+        "Call the body in the \"hydra-toggle\" hydra.
+
+The heads for the associated hydra are:
 
 \"t\":    `toggle-truncate-lines',
 \"f\":    `auto-fill-mode',
@@ -494,15 +498,15 @@ The body can be accessed via `hydra-toggle/body'."
            7 8 (face hydra-face-amaranth)
            11 12 (face hydra-face-teal)))))
       (defun hydra-vi/next-line nil
-        "Create a hydra with no body and the heads:
+        "Call the head `next-line' in the \"hydra-vi\" hydra.
+
+The heads for the associated hydra are:
 
 \"j\":    `next-line',
 \"k\":    `previous-line',
 \"q\":    `nil'
 
-The body can be accessed via `hydra-vi/body'.
-
-Call the head: `next-line'."
+The body can be accessed via `hydra-vi/body'."
         (interactive)
         (hydra-default-pre)
         (set-cursor-color "#e52b50")
@@ -530,15 +534,15 @@ Call the head: `next-line'."
            (set-cursor-color "#ffffff"))
          (quote warn)))
       (defun hydra-vi/previous-line nil
-        "Create a hydra with no body and the heads:
+        "Call the head `previous-line' in the \"hydra-vi\" hydra.
+
+The heads for the associated hydra are:
 
 \"j\":    `next-line',
 \"k\":    `previous-line',
 \"q\":    `nil'
 
-The body can be accessed via `hydra-vi/body'.
-
-Call the head: `previous-line'."
+The body can be accessed via `hydra-vi/body'."
         (interactive)
         (hydra-default-pre)
         (set-cursor-color "#e52b50")
@@ -566,15 +570,15 @@ Call the head: `previous-line'."
            (set-cursor-color "#ffffff"))
          (quote warn)))
       (defun hydra-vi/nil nil
-        "Create a hydra with no body and the heads:
+        "Call the head `nil' in the \"hydra-vi\" hydra.
+
+The heads for the associated hydra are:
 
 \"j\":    `next-line',
 \"k\":    `previous-line',
 \"q\":    `nil'
 
-The body can be accessed via `hydra-vi/body'.
-
-Call the head: `nil'."
+The body can be accessed via `hydra-vi/body'."
         (interactive)
         (hydra-default-pre)
         (set-cursor-color "#e52b50")
@@ -582,7 +586,9 @@ Call the head: `nil'."
         (setq hydra-curr-body-fn
               (quote hydra-vi/body)))
       (defun hydra-vi/body nil
-        "Create a hydra with no body and the heads:
+        "Call the body in the \"hydra-vi\" hydra.
+
+The heads for the associated hydra are:
 
 \"j\":    `next-line',
 \"k\":    `previous-line',
@@ -674,15 +680,15 @@ The body can be accessed via `hydra-vi/body'."
            7 8 (face hydra-face-red)
            9 10 (face hydra-face-blue)))))
       (defun hydra-zoom/lambda-r nil
-        "Create a hydra with no body and the heads:
+        "Call the head `(text-scale-set 0)' in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
 
 \"r\":    `(text-scale-set 0)',
 \"0\":    `(text-scale-set 0)',
 \"1\":    `(text-scale-set 0)'
 
-The body can be accessed via `hydra-zoom/body'.
-
-Call the head: `(text-scale-set 0)'."
+The body can be accessed via `hydra-zoom/body'."
         (interactive)
         (hydra-default-pre)
         (let ((hydra--ignore t))
@@ -709,15 +715,15 @@ Call the head: `(text-scale-set 0)'."
            nil)
          nil))
       (defun hydra-zoom/lambda-0-and-exit nil
-        "Create a hydra with no body and the heads:
+        "Call the head `(text-scale-set 0)' in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
 
 \"r\":    `(text-scale-set 0)',
 \"0\":    `(text-scale-set 0)',
 \"1\":    `(text-scale-set 0)'
 
-The body can be accessed via `hydra-zoom/body'.
-
-Call the head: `(text-scale-set 0)'."
+The body can be accessed via `hydra-zoom/body'."
         (interactive)
         (hydra-default-pre)
         (hydra-keyboard-quit)
@@ -729,7 +735,9 @@ Call the head: `(text-scale-set 0)'."
            (interactive)
            (text-scale-set 0)))))
       (defun hydra-zoom/body nil
-        "Create a hydra with no body and the heads:
+        "Call the body in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
 
 \"r\":    `(text-scale-set 0)',
 \"0\":    `(text-scale-set 0)',
@@ -820,15 +828,15 @@ The body can be accessed via `hydra-zoom/body'."
            7 8 (face hydra-face-red)
            9 10 (face hydra-face-blue)))))
       (defun hydra-zoom/lambda-r nil
-        "Create a hydra with no body and the heads:
+        "Call the head `(text-scale-set 0)' in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
 
 \"r\":    `(text-scale-set 0)',
 \"0\":    `(text-scale-set 0)',
 \"1\":    `(text-scale-set 0)'
 
-The body can be accessed via `hydra-zoom/body'.
-
-Call the head: `(text-scale-set 0)'."
+The body can be accessed via `hydra-zoom/body'."
         (interactive)
         (hydra-default-pre)
         (let ((hydra--ignore t))
@@ -855,15 +863,15 @@ Call the head: `(text-scale-set 0)'."
            nil)
          nil))
       (defun hydra-zoom/lambda-0-and-exit nil
-        "Create a hydra with no body and the heads:
+        "Call the head `(text-scale-set 0)' in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
 
 \"r\":    `(text-scale-set 0)',
 \"0\":    `(text-scale-set 0)',
 \"1\":    `(text-scale-set 0)'
 
-The body can be accessed via `hydra-zoom/body'.
-
-Call the head: `(text-scale-set 0)'."
+The body can be accessed via `hydra-zoom/body'."
         (interactive)
         (hydra-default-pre)
         (hydra-keyboard-quit)
@@ -875,7 +883,9 @@ Call the head: `(text-scale-set 0)'."
            (interactive)
            (text-scale-set 0)))))
       (defun hydra-zoom/body nil
-        "Create a hydra with no body and the heads:
+        "Call the body in the \"hydra-zoom\" hydra.
+
+The heads for the associated hydra are:
 
 \"r\":    `(text-scale-set 0)',
 \"0\":    `(text-scale-set 0)',