58 lines
2.2 KiB
EmacsLisp
58 lines
2.2 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 'mocker)
|
||
|
|
(require 'core-evilify-keymap)
|
||
|
|
|
||
|
|
;; ---------------------------------------------------------------------------
|
||
|
|
;; spacemacs//evilify-next-event
|
||
|
|
;; ---------------------------------------------------------------------------
|
||
|
|
|
||
|
|
;; TO UPDATE
|
||
|
|
|
||
|
|
;; (ert-deftest test-evilify-choose-rebind-event--h-to-H ()
|
||
|
|
;; (let* ((event ?h)
|
||
|
|
;; (map (let ((keymap (make-sparse-keymap)))
|
||
|
|
;; (define-key keymap "h" 'ignore)
|
||
|
|
;; keymap))
|
||
|
|
;; (result (spacemacs//evilify-next-event map event)))
|
||
|
|
;; (should (equal ?H result))))
|
||
|
|
|
||
|
|
;; (ert-deftest test-evilify-choose-rebind-event--h-to-C-h ()
|
||
|
|
;; (let* ((event ?h)
|
||
|
|
;; (map (let ((keymap (make-sparse-keymap)))
|
||
|
|
;; (define-key keymap "h" 'ignore)
|
||
|
|
;; (define-key keymap "H" 'ignore)
|
||
|
|
;; keymap))
|
||
|
|
;; (result (spacemacs//evilify-next-event map event)))
|
||
|
|
;; (should (equal (string-to-char "\C-h") result))))
|
||
|
|
|
||
|
|
;; (ert-deftest test-evilify-choose-rebind-event--h-to-C-H ()
|
||
|
|
;; (let* ((event ?h)
|
||
|
|
;; (map (let ((keymap (make-sparse-keymap)))
|
||
|
|
;; (define-key keymap "h" 'ignore)
|
||
|
|
;; (define-key keymap "H" 'ignore)
|
||
|
|
;; (define-key keymap (kbd "C-h") 'ignore)
|
||
|
|
;; keymap))
|
||
|
|
;; (result (spacemacs//evilify-next-event map event)))
|
||
|
|
;; (should (equal (aref (kbd "C-S-H") 0) result))))
|
||
|
|
|
||
|
|
;; (ert-deftest test-evilify-choose-rebind-event--h-to-nil ()
|
||
|
|
;; (let* ((event ?h)
|
||
|
|
;; (map (let ((keymap (make-sparse-keymap)))
|
||
|
|
;; (define-key keymap "h" 'ignore)
|
||
|
|
;; (define-key keymap "H" 'ignore)
|
||
|
|
;; (define-key keymap (kbd "C-h") 'ignore)
|
||
|
|
;; (define-key keymap (kbd "C-S-h") 'ignore)
|
||
|
|
;; keymap))
|
||
|
|
;; (result (spacemacs//evilify-next-event map event)))
|
||
|
|
;; (should (equal nil result))))
|