branch: master
commit cb4b78a769eb1d1ee99d7c9ae5f4ad08c44db9d1
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
hydra-test.el (hydra-format-4): Add test
Re #94
---
hydra-test.el | 11 +++++++++++
1 files changed, 11 insertions(+), 0 deletions(-)
diff --git a/hydra-test.el b/hydra-test.el
index 06aa77a..35e65bb 100644
--- a/hydra-test.el
+++ b/hydra-test.el
@@ -751,6 +751,17 @@ _f_ auto-fill-mode: %`auto-fill-function
'(("<SPC>" ace-jump-char-mode nil :cmd-name
bar/ace-jump-char-mode))))
'(concat (format "%s ace jump\n" "{<SPC>}") ""))))
+(ert-deftest hydra-format-4 ()
+ (should
+ (equal (hydra--format
+ nil
+ '(nil nil :hint nil)
+ "\n_j_,_k_"
+ '(("j" nil) ("k" nil)))
+ '(concat (format "%s,%s"
+ #("j" 0 1 (face hydra-face-blue))
+ #("k" 0 1 (face hydra-face-blue))) ""))))
+
(ert-deftest hydra-format-with-sexp-1 ()
(should (equal
(let ((hydra-fontify-head-function
