[elpa] master cb4b78a 11/18: hydra-test.el (hydra-format-4): Add test

[Oleh Krehel]

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

    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