120 lines
4.8 KiB
EmacsLisp
120 lines
4.8 KiB
EmacsLisp
;;; core-evilify-keymap-utest.el --- Spacemacs Unit Test File
|
|
;;
|
|
;; Copyright (c) 2012-2014 Sylvain Benner
|
|
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
(require 'core-evilify-keymap)
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; spacemacs//evilify-find-new-event
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(ert-deftest test-evilify-find-new-event--s-to-S ()
|
|
(let ((input ?s))
|
|
(should (equal ?S (spacemacs//evilify-find-new-event input)))))
|
|
|
|
(ert-deftest test-evilify-find-new-event--S-to-C-s ()
|
|
(let ((input ?S))
|
|
(should (equal ?\C-s (spacemacs//evilify-find-new-event input)))))
|
|
|
|
(ert-deftest test-evilify-find-new-event--C-s-to-C-S-s ()
|
|
(let ((input ?\C-s)
|
|
(output (+ (expt 2 25) ?\C-s)))
|
|
(should (equal output (spacemacs//evilify-find-new-event input)))))
|
|
|
|
(ert-deftest test-evilify-find-new-event--C-S-s-error-return-nil ()
|
|
(let ((input (+ (expt 2 25) ?\C-s)))
|
|
(should (equal nil (spacemacs//evilify-find-new-event input)))))
|
|
|
|
(ert-deftest test-evilify-find-new-event--Space-error-return-nil ()
|
|
(let ((input 32))
|
|
(should (equal nil (spacemacs//evilify-find-new-event input)))))
|
|
|
|
(ert-deftest test-evilify-find-new-event--/-error-not-covered-for-now ()
|
|
(let ((input ?/))
|
|
(should (equal nil (spacemacs//evilify-find-new-event input)))))
|
|
|
|
(ert-deftest test-evilify-find-new-event--/-error-return-nil ()
|
|
(let ((input ?:))
|
|
(should (equal nil (spacemacs//evilify-find-new-event input)))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; spacemacs//evilify-sort-keymap
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(ert-deftest test-evilify-sort-keymap-1 ()
|
|
(let ((map '(keymap
|
|
(menu-bar keymap
|
|
(Menu menu-item "Title"
|
|
(keymap "Map"
|
|
(Action1 menu-item "Action1" action1)
|
|
(Action2 menu-item "Action2" action2))))
|
|
(23 . func1)
|
|
(M-tab . func9)
|
|
(remap keymap (func1 . func4) (func2. func5) (func3 . func6))
|
|
(s-tab . func8)
|
|
(24 keymap (52 keymap (97 . func2)) (97 . func3))
|
|
(33 . func4)
|
|
(58 . func5)
|
|
(122 . func6)
|
|
(M-return . func7)
|
|
(C-tab . func10))))
|
|
(should (equal '((122 . func6)
|
|
(58 . func5)
|
|
(33 . func4)
|
|
(24 keymap (52 keymap (97 . func2)) (97 . func3))
|
|
(23 . func1)
|
|
(C-tab . func10)
|
|
(M-return . func7)
|
|
(M-tab . func9)
|
|
(menu-bar
|
|
keymap
|
|
(Menu menu-item "Title"
|
|
(keymap "Map"
|
|
(Action1 menu-item "Action1" action1)
|
|
(Action2 menu-item "Action2" action2))))
|
|
(remap keymap (func1 . func4) (func2. func5) (func3 . func6))
|
|
(s-tab . func8))
|
|
(spacemacs//evilify-sort-keymap map)))))
|
|
|
|
|
|
(ert-deftest test-evilify-sort-keymap-2 ()
|
|
(let ((map '(keymap
|
|
(s-tab . func8)
|
|
(23 . func1)
|
|
(122 . func6)
|
|
(remap keymap (func1 . func4) (func2. func5) (func3 . func6))
|
|
(33 . func4)
|
|
(M-return . func7)
|
|
(menu-bar keymap
|
|
(Menu menu-item "Title"
|
|
(keymap "Map"
|
|
(Action1 menu-item "Action1" action1)
|
|
(Action2 menu-item "Action2" action2))))
|
|
(58 . func5)
|
|
(M-tab . func9)
|
|
(24 keymap (52 keymap (97 . func2)) (97 . func3))
|
|
(C-tab . func10))))
|
|
(should (equal '((122 . func6)
|
|
(58 . func5)
|
|
(33 . func4)
|
|
(24 keymap (52 keymap (97 . func2)) (97 . func3))
|
|
(23 . func1)
|
|
(C-tab . func10)
|
|
(M-return . func7)
|
|
(M-tab . func9)
|
|
(menu-bar
|
|
keymap
|
|
(Menu menu-item "Title"
|
|
(keymap "Map"
|
|
(Action1 menu-item "Action1" action1)
|
|
(Action2 menu-item "Action2" action2))))
|
|
(remap keymap (func1 . func4) (func2. func5) (func3 . func6))
|
|
(s-tab . func8))
|
|
(spacemacs//evilify-sort-keymap map)))))
|