00f9ab19ac
The script used to identify and update the change is added into the GitHub workflows script directory. A workflow action can be created to trigger the script to update the headers on the first of every new year. Possibly a task for a consequent PR.
70 lines
2.7 KiB
EmacsLisp
70 lines
2.7 KiB
EmacsLisp
;;; spacebind-utest.el --- Spacemacs Unit Test File -*- lexical-binding: t -*-
|
|
;;
|
|
;; Copyright (c) 2012-2022 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Eugene "JAremko" Yaremenko <w3techplayground@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;; This program is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
;;
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
(require 'core-spacebind)
|
|
(require 'cl-lib)
|
|
|
|
;;;; Helpers:
|
|
(defmacro test-spacebind|process-bind-stack-called-p (&rest body)
|
|
"Mocks `spacebind//process-bind-stack' and returns true if it was called.
|
|
NOTE: `spacebind--eager-bind' set to true. "
|
|
`(cl-letf* ((spacebind--eager-bind t)
|
|
(spacebind--bs-minor-mode-replacements '())
|
|
(spacebind--bs-major-mode-replacements '())
|
|
(spacebind--bs-declare-prefix '())
|
|
(spacebind--bs-declare-prefix-for-mode '())
|
|
(spacebind--bs-leader-keys '())
|
|
(spacebind--bs-leader-keys-for-major-mode '())
|
|
(spacebind--bs-leader-keys-for-minor-mode '())
|
|
(spacebind--bs-global-replacements '())
|
|
(spacebind--bs-fn-key-seq-override '())
|
|
(spacebind--timer [t])
|
|
(called nil)
|
|
((symbol-function 'spacebind//process-bind-stack)
|
|
(lambda () (setq called t))))
|
|
,@body
|
|
called))
|
|
|
|
;;;; Tests:
|
|
(ert-deftest test-spacebind-sanity-check ()
|
|
(thread-last (spacemacs|spacebind
|
|
:major
|
|
(python-mode
|
|
"with a description"
|
|
("c" "compile/execute"
|
|
("c" spacemacs/python-execute-file "execute file"))))
|
|
(test-spacebind|process-bind-stack-called-p)
|
|
(eq t)
|
|
(should)))
|
|
|
|
(ert-deftest test-spacebind-use-package-integration-works ()
|
|
(thread-last (use-package use-package
|
|
:spacebind
|
|
(:major
|
|
(python-mode
|
|
"with a description"
|
|
("c" "compile/execute"
|
|
("c" spacemacs/python-execute-file "execute file")))))
|
|
(test-spacebind|process-bind-stack-called-p)
|
|
(eq t)
|
|
(should)))
|