[elpa] externals/hydra 6eaf10f52c 05/46: hydra-test.el (hydra-format-5): Fix failing test

[Stefan Monnier]

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

    hydra-test.el (hydra-format-5): Fix failing test
---
 hydra-test.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/hydra-test.el b/hydra-test.el
index ffbfa2440a..ec6a0c48ec 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -1061,21 +1061,21 @@ _f_ auto-fill-mode:    %`auto-fill-function
   (should
    (equal (hydra--format
            nil nil "\n_-_: mark          _u_: unmark\n"
-           '(("-" Buffer-menu-mark)
-             ("u" Buffer-menu-unmark)))
+           '(("-" Buffer-menu-mark nil)
+             ("u" Buffer-menu-unmark nil)))
           '(concat
-           (format
-            "%s: mark          %s: unmark\n"
-            #("-" 0 1 (face hydra-face-red))
-            #("u" 0 1 (face hydra-face-red)))
+            (format
+             "%s: mark          %s: unmark\n"
+             #("-" 0 1 (face hydra-face-red))
+             #("u" 0 1 (face hydra-face-red)))
             ""))))
 
 (ert-deftest hydra-format-6 ()
   (should
    (equal (hydra--format
            nil nil "\n[_]_] forward [_[_] backward\n"
-           '(("]" forward-char)
-             ("[" backward-char)))
+           '(("]" forward-char nil)
+             ("[" backward-char nil)))
           '(concat
             (format
              "[%s] forward [%s] backward\n"