;;; core-evilify-keymap-ftest.el --- Spacemacs Functional 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-funcs)
(require 'core-evilify-keymap)
(require 'core-spacemacs-buffer)

;; ---------------------------------------------------------------------------
;; spacemacs|evilify-map
;; ---------------------------------------------------------------------------

;; commands

(ert-deftest test-evilify-map--s ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func-or-evil-func--evilified-input-map-s)
                     (83 . func--evilified-input-map-S))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-2-evilified ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    (define-key evil-map "S" 'evil-func2)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func-or-evil-func--evilified-input-map-s)
                     (83 . evil-func2--evilified-input-map-S)
                     (19 . func--evilified-input-map-C-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func1)
    (define-key input-map "S" 'func2)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func1-or-evil-func--evilified-input-map-s)
                     (83 . func2-or-func1--evilified-input-map-S)
                     (19 . func2--evilified-input-map-C-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-reversed-order ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "S" 'func2)
    (define-key input-map "s" 'func1)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func1-or-evil-func--evilified-input-map-s)
                     (83 . func2-or-func1--evilified-input-map-S)
                     (19 . func2--evilified-input-map-C-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-2-evilified ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func1)
                                    (define-key evil-map "S" 'evil-func2)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func1)
    (define-key input-map "S" 'func2)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func1-or-evil-func1--evilified-input-map-s)
                     (83 . func2-or-evil-func2--evilified-input-map-S)
                     (19 . func1--evilified-input-map-C-s)
                     (33554451 . func2--evilified-input-map-C-S-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-2-evilified-reversed-order ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "S" 'evil-func2)
                                    (define-key evil-map "s" 'evil-func1)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "S" 'func2)
    (define-key input-map "s" 'func1)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func1-or-evil-func1--evilified-input-map-s)
                     (83 . func2-or-evil-func2--evilified-input-map-S)
                     (19 . func1--evilified-input-map-C-s)
                     (33554451 . func2--evilified-input-map-C-S-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-C-s ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func1)
    (define-key input-map "S" 'func2)
    (define-key input-map (kbd "C-s") 'func3)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func1-or-evil-func--evilified-input-map-s)
                     (83 . func2-or-func1--evilified-input-map-S)
                     (19 . func3-or-func2--evilified-input-map-C-s)
                     (33554451 . func3--evilified-input-map-C-S-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-C-s-shuffled ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func1)
    (define-key input-map (kbd "C-s") 'func3)
    (define-key input-map "S" 'func2)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func1-or-evil-func--evilified-input-map-s)
                     (83 . func2-or-func1--evilified-input-map-S)
                     (19 . func3-or-func2--evilified-input-map-C-s)
                     (33554451 . func3--evilified-input-map-C-S-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-C-s-2-evilified ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func1)
                                    (define-key evil-map "S" 'evil-func2)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func1)
    (define-key input-map "S" 'func2)
    (define-key input-map (kbd "C-s") 'func3)
    (mocker-let
     ((spacemacs-buffer/warning (msg &rest args)
                                ((:record-cls 'mocker-stub-record
                                              :output nil :occur 1))))
     (spacemacs|evilify-map input-map)
     (should (equal '((115 . func1-or-evil-func1--evilified-input-map-s)
                      (83 . func2-or-evil-func2--evilified-input-map-S)
                      (19 . func3-or-func1--evilified-input-map-C-s)
                      (33554451 . func2--evilified-input-map-C-S-s))
                    (spacemacs//evilify-sort-keymap input-map))))))

(ert-deftest test-evilify-map--s-C-s-S-2-evilified-shuffled ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func1)
                                    (define-key evil-map "S" 'evil-func2)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func1)
    (define-key input-map (kbd "C-s") 'func3)
    (define-key input-map "S" 'func2)
    (mocker-let
     ((spacemacs-buffer/warning (msg &rest args)
                                ((:record-cls 'mocker-stub-record
                                              :output nil :occur 1))))
     (spacemacs|evilify-map input-map)
     (should (equal '((115 . func1-or-evil-func1--evilified-input-map-s)
                      (83 . func2-or-evil-func2--evilified-input-map-S)
                      (19 . func3-or-func1--evilified-input-map-C-s)
                      (33554451 . func2--evilified-input-map-C-S-s))
                    (spacemacs//evilify-sort-keymap input-map))))))

;; keymaps

(ert-deftest test-evilify-map--s-keymap ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap))
        (submap (make-sparse-keymap)))
    (define-key input-map "s" submap)
    (define-key submap "t" 'func)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . keymap-s-or-evil-func--evilified-input-map-s)
                     (83 . keymap-s--evilified-input-map-S))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-keymap-2-evilified ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func1)
                                    (define-key evil-map "S" 'evil-func2)
                                    evil-map))
        (input-map (make-sparse-keymap))
        (submap (make-sparse-keymap)))
    (define-key input-map "s" submap)
    (define-key submap "t" 'func)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . keymap-s-or-evil-func1--evilified-input-map-s)
                     (83 . evil-func2--evilified-input-map-S)
                     (19 . keymap-s--evilified-input-map-C-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-keymaps ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap))
        (submap (make-sparse-keymap)))
    (define-key input-map "s" submap)
    (define-key input-map "S" submap)
    (define-key submap "t" 'func)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . keymap-s-or-evil-func--evilified-input-map-s)
                     (83 . keymap-S-or-keymap-s--evilified-input-map-S)
                     (19 . keymap-S--evilified-input-map-C-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-keymaps-2-evilified ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func1)
                                    (define-key evil-map "S" 'evil-func2)
                                    evil-map))
        (input-map (make-sparse-keymap))
        (submap (make-sparse-keymap)))
    (define-key input-map "s" submap)
    (define-key input-map "S" submap)
    (define-key submap "t" 'func)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . keymap-s-or-evil-func1--evilified-input-map-s)
                     (83 . keymap-S-or-evil-func2--evilified-input-map-S)
                     (19 . keymap-s--evilified-input-map-C-s)
                     (33554451 . keymap-S--evilified-input-map-C-S-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-C-s-keymaps ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap))
        (submap (make-sparse-keymap)))
    (define-key input-map "s" submap)
    (define-key input-map "S" submap)
    (define-key input-map (kbd "C-s") submap)
    (define-key submap "t" 'func)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . keymap-s-or-evil-func--evilified-input-map-s)
                     (83 . keymap-S-or-keymap-s--evilified-input-map-S)
                     (19 . keymap-C-s-or-keymap-S--evilified-input-map-C-s)
                     (33554451 . keymap-C-s--evilified-input-map-C-S-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

(ert-deftest test-evilify-map--s-S-C-s-keymaps-2-evilified ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func1)
                                    (define-key evil-map "S" 'evil-func2)
                                    evil-map))
        (input-map (make-sparse-keymap))
        (submap (make-sparse-keymap)))
    (define-key input-map "s" submap)
    (define-key input-map "S" submap)
    (define-key input-map (kbd "C-s") submap)
    (define-key submap "t" 'func)
    (mocker-let
     ((spacemacs-buffer/warning (msg &rest args)
                                ((:record-cls 'mocker-stub-record
                                              :output nil :occur 1))))
     (spacemacs|evilify-map input-map)
     (should (equal '((115 . keymap-s-or-evil-func1--evilified-input-map-s)
                      (83 . keymap-S-or-evil-func2--evilified-input-map-S)
                      (19 . keymap-C-s-or-keymap-s--evilified-input-map-C-s)
                      (33554451 . keymap-S--evilified-input-map-C-S-s))
                    (spacemacs//evilify-sort-keymap input-map))))))

;; commands and keymaps

(ert-deftest test-evilify-map--s-command-and-keymap ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap))
        (submap (make-sparse-keymap)))
    (define-key input-map "s" 'func)
    (define-key input-map "S" submap)
    (define-key submap "t" 'func)
    (spacemacs|evilify-map input-map)
    (should (equal '((115 . func-or-evil-func--evilified-input-map-s)
                     (83 . keymap-S-or-func--evilified-input-map-S)
                     (19 . keymap-S--evilified-input-map-C-s))
                   (spacemacs//evilify-sort-keymap input-map)))))

;; idem-potency

(ert-deftest test-evilify-map--idem-potent ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap))
        (submap (make-sparse-keymap)))
    (define-key input-map "e" 'func1)
    (define-key input-map (kbd "C-c C-x") 'func3)
    (define-key input-map "s" 'func2)
    (define-key input-map "S" submap)
    (define-key submap "t" 'func)
    (dotimes (_ 10)
      (spacemacs|evilify-map input-map))
    (should (equal '((115 . func2-or-evil-func--evilified-input-map-s)
                     (101 . func1)
                     (83 . keymap-S-or-func2--evilified-input-map-S)
                     (19 . keymap-S--evilified-input-map-C-s)
                     (3 . (keymap (24 . func3))))
                   (spacemacs//evilify-sort-keymap input-map)))))

;; eval-after-load

(ert-deftest test-evilify-map--eval-after-load-already-loaded ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func)
    ;; pass a feature already loaded at the time of calling
    (spacemacs|evilify-map input-map :eval-after-load core-funcs)
    (should (equal '((115 . func-or-evil-func--evilified-input-map-s)
                     (83 . func--evilified-input-map-S))
                   (spacemacs//evilify-sort-keymap input-map)))))


(ert-deftest test-evilify-map--eval-after-load-not-loaded ()
  (let ((evil-evilified-state-map (let ((evil-map (make-sparse-keymap)))
                                    (define-key evil-map "s" 'evil-func)
                                    evil-map))
        (input-map (make-sparse-keymap)))
    (define-key input-map "s" 'func)
    (spacemacs|evilify-map input-map :eval-after-load dummy-feature)
    ;; unmodified keymap since `dummy-feature' is not loaded
    (should (equal '((115 . func))
                   (spacemacs//evilify-sort-keymap input-map)))))