0d9b349091
Since the introduction of `spacemacs-bootstrap`, the position of layers inside `configuration-layer--used-layers` was shifted by 1 to the right. The test changes account for that now, and the names were changed to indicate they are related to testing the `spacemacs-base` distribution, since the complete `spacemacs` distribution has other layers in between bootstrap and defaults.
50 lines
2.5 KiB
EmacsLisp
50 lines
2.5 KiB
EmacsLisp
;;; core-configuration-layer-ftest.el --- Spacemacs Functional Test File
|
|
;;
|
|
;; Copyright (c) 2012-2018 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-configuration-layer)
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; configuration-layer//declare-used-layers
|
|
;; ---------------------------------------------------------------------------
|
|
|
|
(ert-deftest test-declare-layers--bootstrap-layer-always-first ()
|
|
(let ((dotspacemacs-distribution 'spacemacs)
|
|
(dotspacemacs-configuration-layers '(emacs-lisp
|
|
(git :variables foo 'bar)))
|
|
configuration-layer--used-layers
|
|
(configuration-layer--indexed-layers (make-hash-table :size 1024)))
|
|
(configuration-layer/discover-layers 'refresh-index)
|
|
(configuration-layer//declare-used-layers dotspacemacs-configuration-layers)
|
|
(should (eq 'spacemacs-bootstrap
|
|
(first configuration-layer--used-layers)))))
|
|
|
|
(ert-deftest test-declare-layers--defaults-layer-is-second-for-base-distribution ()
|
|
(let ((dotspacemacs-distribution 'spacemacs-base)
|
|
(dotspacemacs-configuration-layers '(emacs-lisp
|
|
(git :variables foo 'bar)))
|
|
configuration-layer--used-layers
|
|
(configuration-layer--indexed-layers (make-hash-table :size 1024)))
|
|
(configuration-layer/discover-layers 'refresh-index)
|
|
(configuration-layer//declare-used-layers dotspacemacs-configuration-layers)
|
|
(should (eq 'spacemacs-defaults (second configuration-layer--used-layers)))))
|
|
|
|
(ert-deftest test-declare-layers--base-layer-is-third-for-base-distribution ()
|
|
(let ((dotspacemacs-distribution 'spacemacs-base)
|
|
(dotspacemacs-configuration-layers '(emacs-lisp
|
|
(git :variables foo 'bar)))
|
|
configuration-layer--used-layers
|
|
(configuration-layer--indexed-layers (make-hash-table :size 1024)))
|
|
(configuration-layer/discover-layers 'refresh-index)
|
|
(configuration-layer//declare-used-layers dotspacemacs-configuration-layers)
|
|
(should (eq 'spacemacs-base (third configuration-layer--used-layers)))))
|
|
|
|
;; ---------------------------------------------------------------------------
|
|
;; Lazy installation of layers
|
|
;; ---------------------------------------------------------------------------
|