[elpa] externals/leaf 1fd4508d4f 13/28: add testcase

[ELPA Syncer]

branch: externals/leaf
commit 1fd4508d4f8e68a7e39cd38112fc6fd226743c34
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Caowei <igooo.v@gmail.com>

    add testcase
---
 leaf-tests.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/leaf-tests.el b/leaf-tests.el
index 4a2603357a..191d7a626e 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -2448,7 +2448,13 @@ Example:
        (let* ((old (lookup-key global-map [(control 120) (control 102)]))
               (value `(global-map "C-x C-f" undo ,(and old (not (numberp old)) 
old) nil)))
          (leaf-safe-push value leaf-key-bindlist)
-         (define-key global-map [(control 120) (control 102)] 'undo))))))
+         (define-key global-map [(control 120) (control 102)] 'undo)))
+
+      ((leaf-key "M-s O" (lambda nil "color-moccur" (interactive) 
(color-moccur)))
+       (let* ((old (lookup-key global-map (kbd "M-s O")))
+              (value `(global-map "M-s O" *lambda-function* ,(and old (not 
(numberp old)) old) nil)))
+         (leaf-safe-push value leaf-key-bindlist)
+         (define-key global-map (kbd "M-s O") (lambda nil "color-moccur" 
(interactive) (color-moccur))))))))
 
 (when (version< "24.0" emacs-version)
   (cort-deftest-with-macroexpand leaf/leaf-key-bind-keymap