;;; core-configuration-layer-utest.el --- Spacemacs Unit Test File ;; ;; Copyright (c) 2012-2016 Sylvain Benner & Contributors ;; ;; Author: Sylvain Benner ;; URL: https://github.com/syl20bnr/spacemacs ;; ;; This file is not part of GNU Emacs. ;; ;;; License: GPLv3 (require 'mocker) (require 'core-configuration-layer) ;; --------------------------------------------------------------------------- ;; class cfgl-layer ;; --------------------------------------------------------------------------- (ert-deftest test-cfgl-layer-owned-packages--owns-packages () (let ((layer1 (cfgl-layer "layer1" :name 'layer1 :packages '(pkg1 pkg2 pkg3 pkg4))) (configuration-layer--packages (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer2) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer1) (cfgl-package "pkg3" :name 'pkg3 :owner 'layer1) (cfgl-package "pkg4" :name 'pkg4 :owner 'layer2)))) (should (equal (list (cfgl-package "pkg2" :name 'pkg2 :owner 'layer1) (cfgl-package "pkg3" :name 'pkg3 :owner 'layer1)) (cfgl-layer-owned-packages layer1))))) (ert-deftest test-cfgl-layer-owned-packages--nil-layer-returns-nil () (should (null (cfgl-layer-owned-packages nil)))) ;; --------------------------------------------------------------------------- ;; class cfgl-package ;; --------------------------------------------------------------------------- ;; method: cfgl-package-enabledp (ert-deftest test-cfgl-package-enabledp--default-toggle-eval-non-nil () (let ((pkg (cfgl-package "testpkg" :name 'testpkg))) (should (cfgl-package-enabledp pkg)))) (ert-deftest test-cfgl-package-enabledp--symbol-toggle-eval-non-nil-example () (let ((pkg (cfgl-package "testpkg" :name 'testpkg :toggle 'package-toggle)) (package-toggle t)) (should (cfgl-package-enabledp pkg)))) (ert-deftest test-cfgl-package-enabledp--symbol-toggle-eval-nil-example () (let ((pkg (cfgl-package "testpkg" :name 'testpkg :toggle 'package-toggle)) (package-toggle nil)) (should (null (cfgl-package-enabledp pkg))))) (ert-deftest test-cfgl-package-enabledp--list-toggle-eval-non-nil-example () (let ((pkg (cfgl-package "testpkg" :name 'testpkg :toggle '(memq package-toggle '(foo bar)))) (package-toggle 'foo)) (should (cfgl-package-enabledp pkg)))) (ert-deftest test-cfgl-package-enabledp--list-toggle-eval-nil-example () (let ((pkg (cfgl-package "testpkg" :name 'testpkg :toggle '(memq package-toggle '(foo bar)))) (package-toggle 'other)) (should (null (cfgl-package-enabledp pkg))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//resolve-package-archives ;; --------------------------------------------------------------------------- (ert-deftest test-resolve-package-archives--simple-https () (let ((input '(("melpa" . "melpa.org/packages/"))) (dotspacemacs-elpa-https t)) (should (equal '(("melpa" . "https://melpa.org/packages/")) (configuration-layer//resolve-package-archives input))))) (ert-deftest test-resolve-package-archives--simple-http () (let ((input '(("melpa" . "melpa.org/packages/"))) dotspacemacs-elpa-https) (should (equal '(("melpa" . "http://melpa.org/packages/")) (configuration-layer//resolve-package-archives input))))) (ert-deftest test-resolve-package-archives--org-supports-http () (let ((input '(("org" . "orgmode.org/elpa/"))) dotspacemacs-elpa-https) (should (equal '(("org" . "http://orgmode.org/elpa/")) (configuration-layer//resolve-package-archives input))))) (ert-deftest test-resolve-package-archives--org-does-not-support-https () (let ((input '(("org" . "orgmode.org/elpa/"))) (dotspacemacs-elpa-https t)) (should (equal '(("org" . "http://orgmode.org/elpa/")) (configuration-layer//resolve-package-archives input))))) (ert-deftest test-resolve-package-archives--idempotent-when-already-http-prefix () (let ((input '(("melpa" . "http://melpa.org/packages/"))) (dotspacemacs-elpa-https t)) (should (equal '(("melpa" . "http://melpa.org/packages/")) (configuration-layer//resolve-package-archives input))))) (ert-deftest test-resolve-package-archives--idempotent-when-already-https-prefix () (let ((input '(("melpa" . "https://melpa.org/packages/"))) dotspacemacs-elpa-https) (should (equal '(("melpa" . "https://melpa.org/packages/")) (configuration-layer//resolve-package-archives input))))) ;; --------------------------------------------------------------------------- ;; configuration-layer/retrieve-package-archives ;; --------------------------------------------------------------------------- (ert-deftest test-retrieve-package-archives--catch-time-out-error () (let ((package-archives '(("gnu" . "https://elpa.gnu.org/packages/"))) (configuration-layer--package-archives-refreshed nil) (dotspacemacs-elpa-timeout -1)) (mocker-let ((message (format-string &rest args) ((:record-cls 'mocker-stub-record :output nil)))) (configuration-layer/retrieve-package-archives)))) (ert-deftest test-retrieve-package-archives--catch-connection-errors () (let ((package-archives '(("gnu" . "https://elpa.gnu.org/packages/"))) (configuration-layer--package-archives-refreshed nil)) (cl-letf (((symbol-function 'url-retrieve-synchronously) (lambda (x) (signal 'file-error '("make client process failed" "connection refused" :name "elpa.gnu.org" :buffer dummy :host "elpa.gnu.org" :service 443 :nowait nil)))) ((symbol-function 'message) 'ignore)) (configuration-layer/retrieve-package-archives)))) ;; --------------------------------------------------------------------------- ;; configuration-layer//make-layers ;; --------------------------------------------------------------------------- (ert-deftest test-make-layers--result-order-is-not-reversed () (mocker-let ((configuration-layer/make-layer (x) ((:input '(layer1) :output 'layer1) (:input '(layer2) :output 'layer2) (:input '(layer3) :output 'layer3)))) (let* ((input '(layer1 layer2 layer3)) (result (configuration-layer//make-layers input))) (should (equal result input))))) (ert-deftest test-make-layers--ignore-not-found-layer () (mocker-let ((configuration-layer/make-layer (x) ((:input '(layer1) :output 'layer1) (:input '(layer2-not-found) :output nil) (:input '(layer3) :output 'layer3)))) (let* ((input '(layer1 layer2-not-found layer3)) (expected '(layer1 layer3)) (result (configuration-layer//make-layers input))) (should (equal result expected))))) ;; --------------------------------------------------------------------------- ;; configuration-layer/make-layer ;; --------------------------------------------------------------------------- (ert-deftest test-make-layer--input-is-a-symbol () (let ((input 'layer) (expected (cfgl-layer "layer" :name 'layer :dir "/a/dummy/path/layer/"))) (mocker-let ((configuration-layer/get-layer-path (x) ((:input `(,input) :output "/a/dummy/path/")))) (let ((result (configuration-layer/make-layer input))) (should (equal result expected)))))) (ert-deftest test-make-layer--input-is-a-list () (let ((input '(layer :variables var1 t var2 nil)) (expected (cfgl-layer "layer" :name 'layer :dir "/a/dummy/path/layer/" :variables '(var1 t var2 nil)))) (mocker-let ((configuration-layer/get-layer-path (x) ((:input `(,(car input)) :output "/a/dummy/path/")))) (let ((result (configuration-layer/make-layer input))) (should (equal result expected)))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//set-layers-variables ;; --------------------------------------------------------------------------- (ert-deftest test-set-layers-variables--none () (let ((input `(,(cfgl-layer "layer" :name 'layer :dir "/a/path/"))) (var 'foo)) (configuration-layer//set-layers-variables input) (should (eq var 'foo)))) (ert-deftest test-set-layers-variables--one-value () (let ((input `(,(cfgl-layer "layer" :name 'layer :dir "/a/path/" :variables '(var1 'bar))))) (setq var1 'foo) (configuration-layer//set-layers-variables input) (should (eq var1 'bar)))) (ert-deftest test-set-layers-variables--multiple-values () (let ((input `(,(cfgl-layer "layer" :name 'layer :dir "/a/path/" :variables '(var1 'bar1 var2 'bar2 var3 'bar3))))) (setq var1 'foo) (setq var2 'foo) (setq var3 'foo) (configuration-layer//set-layers-variables input) (should (eq var1 'bar1)) (should (eq var2 'bar2)) (should (eq var3 'bar3)))) (ert-deftest test-set-layers-variables--odd-number-of-values () (let ((input `(,(cfgl-layer "layer" :name 'layer :dir "/a/path/" :variables '(var1 'bar var2))))) (mocker-let ((spacemacs-buffer/warning (msg &rest args) ((:record-cls 'mocker-stub-record :output nil :occur 1)))) (setq var1 'foo) (setq var2 'foo) (configuration-layer//set-layers-variables input) (should (eq var1 'bar)) (should (eq var2 'foo))))) ;; --------------------------------------------------------------------------- ;; configuration-layer/make-package ;; --------------------------------------------------------------------------- (ert-deftest test-make-package--create-new-package-from-symbol () (let* ((input 'testpkg) (expected (cfgl-package "testpkg" :name 'testpkg :location 'elpa :owner nil :pre-layers nil :post-layers nil :step nil :excluded nil)) (result (configuration-layer/make-package input))) (should (equal result expected)))) (ert-deftest test-make-package--create-new-package-from-list () (let* ((input '(testpkg :location local :step pre)) (expected (cfgl-package "testpkg" :name 'testpkg :owner nil :location 'local :pre-layers nil :post-layers nil :step 'pre :excluded nil)) (result (configuration-layer/make-package input))) (should (equal result expected)))) (ert-deftest test-make-package--copy-package-properties-to-passed-obj () (let* ((obj (cfgl-package "testpkg" :name 'testpkg :owner nil :location 'elpa :step nil :excluded t)) (pkg '(testpkg :location local :step pre :excluded nil)) (expected (cfgl-package "testpkg" :name 'testpkg :owner nil :location 'local :step 'pre :excluded nil)) (result (configuration-layer/make-package pkg obj))) (should (equal result expected)))) ;; --------------------------------------------------------------------------- ;; configuration-layer/get-packages ;; --------------------------------------------------------------------------- (ert-deftest test-get-packages--symbols-only () (let* ((layer1 (cfgl-layer "layer1" :name 'layer1 :dir "/path")) (layers (list layer1)) (layer1-packages '(pkg1 pkg2 pkg3)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg1 nil) (defun layer1/init-pkg2 nil) (defun layer1/init-pkg3 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 1)))) (should (equal (list (cfgl-package "pkg3" :name 'pkg3 :owner 'layer1) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer1) (cfgl-package "pkg1" :name 'pkg1 :owner 'layer1)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--lists-only () (let* ((layer1 (cfgl-layer "layer1" :name 'layer1 :dir "/path")) (layers (list layer1)) (layer1-packages '((pkg1 :location elpa :excluded t) (pkg2 :location (recipe blahblah)) (pkg3 :location local :step pre))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg1 nil) (defun layer1/init-pkg2 nil) (defun layer1/init-pkg3 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 1)))) (should (equal (list (cfgl-package "pkg3" :name 'pkg3 :owner 'layer1 :location 'local :step 'pre) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer1 :location '(recipe blahblah)) (cfgl-package "pkg1" :name 'pkg1 :owner 'layer1 :excluded t)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--symbols-and-lists () (let* ((layer1 (cfgl-layer "layer1" :name 'layer1 :dir "/path")) (layers (list layer1)) (layer1-packages '(pkg1 (pkg2 :location (recipe blahblah)) (pkg3 :location local :step pre) pkg4)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg1 nil) (defun layer1/init-pkg2 nil) (defun layer1/init-pkg3 nil) (defun layer1/init-pkg4 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 1)))) (should (equal (list (cfgl-package "pkg4" :name 'pkg4 :owner 'layer1) (cfgl-package "pkg3" :name 'pkg3 :owner 'layer1 :location 'local :step 'pre) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer1 :location '(recipe blahblah)) (cfgl-package "pkg1" :name 'pkg1 :owner 'layer1)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--pkg2-has-no-owner-because-no-init-function () (let* ((layer2 (cfgl-layer "layer2" :name 'layer2 :dir "/path")) (layers (list layer2)) (layer2-packages '(pkg1 pkg2 pkg3)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer2/init-pkg1 nil) (defun layer2/init-pkg3 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 1)))) (should (equal (list (cfgl-package "pkg3" :name 'pkg3 :owner 'layer2) (cfgl-package "pkg2" :name 'pkg2) (cfgl-package "pkg1" :name 'pkg1 :owner 'layer2)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--pre-init-function () (let* ((layer3 (cfgl-layer "layer3" :name 'layer3 :dir "/path")) (layer4 (cfgl-layer "layer4" :name 'layer4 :dir "/path")) (layers (list layer3 layer4)) (layer3-packages '(pkg1)) (layer4-packages '(pkg1)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer3/init-pkg1 nil) (defun layer4/pre-init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer3 :pre-layers '(layer4))) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--post-init-function () (let* ((layer3 (cfgl-layer "layer3" :name 'layer3 :dir "/path")) (layer5 (cfgl-layer "layer5" :name 'layer5 :dir "/path")) (layers (list layer3 layer5)) (layer3-packages '(pkg1)) (layer5-packages '(pkg1)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer3/init-pkg1 nil) (defun layer5/post-init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer3 :post-layers '(layer5))) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--pre-and-post-init-functions () (let* ((layer3 (cfgl-layer "layer3" :name 'layer3 :dir "/path")) (layer6 (cfgl-layer "layer6" :name 'layer6 :dir "/path")) (layers (list layer3 layer6)) (layer3-packages '(pkg1)) (layer6-packages '(pkg1)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer3/init-pkg1 nil) (defun layer6/pre-init-pkg1 nil) (defun layer6/post-init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer3 :pre-layers '(layer6) :post-layers '(layer6))) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--several-init-functions-last-one-is-the-owner () (let* ((layer7 (cfgl-layer "layer7" :name 'layer7 :dir "/path")) (layer8 (cfgl-layer "layer8" :name 'layer8 :dir "/path")) (layers (list layer7 layer8)) (layer7-packages '(pkg1)) (layer8-packages '(pkg1)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer7/init-pkg1 nil) (defun layer8/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (spacemacs-buffer/warning (msg &rest args) ((:output nil :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer8)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--layer-10-excludes-pkg2-in-layer-9 () (let* ((layer9 (cfgl-layer "layer9" :name 'layer9 :dir "/path")) (layer10 (cfgl-layer "layer10" :name 'layer10 :dir "/path")) (layers (list layer9 layer10)) (layer9-packages '(pkg1 pkg2)) (layer10-packages '(pkg3 (pkg2 :excluded t))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer9/init-pkg1 nil) (defun layer9/init-pkg2 nil) (defun layer10/init-pkg3 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg3" :name 'pkg3 :owner 'layer10) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer9 :excluded t) (cfgl-package "pkg1" :name 'pkg1 :owner 'layer9)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--dotfile-excludes-pkg2-in-layer-11 () (let* ((layer11 (cfgl-layer "layer11" :name 'layer11 :dir "/path")) (layers (list layer11)) (layer11-packages '(pkg1 pkg2 pkg3)) (dotspacemacs-excluded-packages '(pkg2)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer11/init-pkg1 nil) (defun layer11/init-pkg2 nil) (defun layer11/init-pkg3 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 1)))) (should (equal (list (cfgl-package "pkg3" :name 'pkg3 :owner 'layer11) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer11 :excluded t) (cfgl-package "pkg1" :name 'pkg1 :owner 'layer11)) (configuration-layer/get-packages layers t)))))) (ert-deftest test-get-packages--dotfile-declares-and-owns-one-additional-package () (let* ((layer12 (cfgl-layer "layer12" :name 'layer12 :dir "/path")) (layers (list layer12)) (layer12-packages '(pkg1 pkg2)) (dotspacemacs-additional-packages '(pkg3)) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer12/init-pkg1 nil) (defun layer12/init-pkg2 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 1)))) (should (equal (list (cfgl-package "pkg3" :name 'pkg3 :owner 'dotfile) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer12) (cfgl-package "pkg1" :name 'pkg1 :owner 'layer12)) (configuration-layer/get-packages layers t)))))) (ert-deftest test-get-packages--last-owner-can-overwrite-location () (let* ((layer13 (cfgl-layer "layer13" :name 'layer13 :dir "/path")) (layer14 (cfgl-layer "layer14" :name 'layer14 :dir "/path")) (layers (list layer13 layer14)) (layer13-packages '((pkg1 :location elpa))) (layer14-packages '((pkg1 :location local))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer13/init-pkg1 nil) (defun layer14/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (spacemacs-buffer/warning (msg &rest args) ((:output nil :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer14 :location 'local)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--last-owner-can-overwrite-step-nil-to-pre () (let* ((layer15 (cfgl-layer "layer15" :name 'layer15 :dir "/path")) (layer16 (cfgl-layer "layer16" :name 'layer16 :dir "/path")) (layers (list layer15 layer16)) (layer15-packages '((pkg1 :step nil))) (layer16-packages '((pkg1 :step pre))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer15/init-pkg1 nil) (defun layer16/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (spacemacs-buffer/warning (msg &rest args) ((:output nil :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer16 :step 'pre)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--last-owner-cannot-overwrite-step-pre-to-nil () (let* ((layer15 (cfgl-layer "layer15" :name 'layer15 :dir "/path")) (layer16 (cfgl-layer "layer16" :name 'layer16 :dir "/path")) (layers (list layer15 layer16)) (layer15-packages '((pkg1 :step pre))) (layer16-packages '((pkg1 :step nil))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer15/init-pkg1 nil) (defun layer16/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (spacemacs-buffer/warning (msg &rest args) ((:output nil :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer16 :step 'pre)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--last-owner-can-overwrite-exclude () (let* ((layer17 (cfgl-layer "layer17" :name 'layer17 :dir "/path")) (layer18 (cfgl-layer "layer18" :name 'layer18 :dir "/path")) (layers (list layer17 layer18)) (layer17-packages '(pkg1)) (layer18-packages '((pkg1 :excluded t))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer17/init-pkg1 nil) (defun layer18/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1) (:output t :occur 1))) (spacemacs-buffer/warning (msg &rest args) ((:output nil :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer18 :excluded t)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--owner-layer-can-define-toggle () (let* ((layer19 (cfgl-layer "layer19" :name 'layer19 :dir "/path")) (layers (list layer19)) (layer19-packages '((pkg1 :toggle (foo-toggle)))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer19/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 1)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer19 :toggle '(foo-toggle))) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--not-owner-layer-cannot-define-toggle () (let* ((layer20 (cfgl-layer "layer20" :name 'layer20 :dir "/path")) (layer21 (cfgl-layer "layer21" :name 'layer21 :dir "/path")) (layers (list layer20 layer21)) (layer20-packages '((pkg1))) (layer21-packages '((pkg1 :toggle (foo-toggle)))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer20/init-pkg1 nil) (defun layer21/post-init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 2))) (spacemacs-buffer/warning (msg &rest args) ((:output nil :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer20 :post-layers '(layer21) :toggle t)) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--new-owner-layer-can-override-toggle () (let* ((layer22 (cfgl-layer "layer22" :name 'layer22 :dir "/path")) (layer23 (cfgl-layer "layer23" :name 'layer23 :dir "/path")) (layers (list layer22 layer23)) (layer22-packages '((pkg1 :toggle (foo-toggle)))) (layer23-packages '((pkg1 :toggle (bar-toggle)))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer22/init-pkg1 nil) (defun layer23/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 2))) (spacemacs-buffer/warning (msg &rest args) ((:output nil :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer23 :toggle '(bar-toggle))) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--dotfile-additional-pkg-can-override-toggle () (let* ((layer22 (cfgl-layer "layer22" :name 'layer22 :dir "/path")) (layer23 (cfgl-layer "layer23" :name 'layer23 :dir "/path")) (layers (list layer22 layer23)) (layer22-packages '((pkg1 :toggle (foo-toggle)))) (layer23-packages '((pkg1 :toggle (bar-toggle)))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer22/init-pkg1 nil) (defun layer23/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 2))) (spacemacs-buffer/warning (msg &rest args) ((:output nil :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 2)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer23 :toggle '(bar-toggle))) (configuration-layer/get-packages layers)))))) (ert-deftest test-get-packages--dotfile-additional-pkg-can-override-toggle () (let* ((layer24 (cfgl-layer "layer24" :name 'layer24 :dir "/path")) (layers (list layer24)) (layer24-packages '((pkg1 :toggle (foo-toggle)))) (dotspacemacs-additional-packages '((pkg1 :toggle (bar-toggle)))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer24/init-pkg1 nil) (mocker-let ((file-exists-p (f) ((:output t :occur 1))) (configuration-layer/layer-usedp (l) ((:output t :occur 1)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer24 :toggle '(bar-toggle))) (configuration-layer/get-packages layers t)))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//configure-package ;; --------------------------------------------------------------------------- (ert-deftest test-configure-package--init-is-evaluated () (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1)) (configuration-layer--layers `(,(cfgl-layer "layer1" :name 'layer1))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg nil) (mocker-let ((spacemacs-buffer/message (m) ((:output nil))) (layer1/init-pkg nil ((:output nil :occur 1)))) (configuration-layer//configure-package pkg)))) (ert-deftest test-configure-package--pre-init-is-evaluated () (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :pre-layers '(layer2))) (configuration-layer--layers `(,(cfgl-layer "layer1" :name 'layer1) ,(cfgl-layer "layer2" :name 'layer2))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg nil) (defun layer2/pre-init-pkg nil) (mocker-let ((spacemacs-buffer/message (m) ((:output nil))) (layer2/pre-init-pkg nil ((:output nil :occur 1)))) (configuration-layer//configure-package pkg)))) (ert-deftest test-configure-package--post-init-is-evaluated () (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :post-layers '(layer2))) (configuration-layer--layers `(,(cfgl-layer "layer1" :name 'layer1) ,(cfgl-layer "layer2" :name 'layer2))) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg nil) (defun layer2/post-init-pkg nil) (mocker-let ((spacemacs-buffer/message (m) ((:output nil))) (layer2/post-init-pkg nil ((:output nil :occur 1)))) (configuration-layer//configure-package pkg)))) (ert-deftest test-configure-package--pre-init-is-evaluated-before-init () (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :pre-layers '(layer2))) (configuration-layer--layers `(,(cfgl-layer "layer1" :name 'layer1) ,(cfgl-layer "layer2" :name 'layer2))) (witness nil) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg () (push 'init witness)) (defun layer2/pre-init-pkg () (push 'pre-init witness)) (mocker-let ((spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-package pkg) (should (equal '(init pre-init) witness))))) (ert-deftest test-configure-package--post-init-is-evaluated-after-init () (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :post-layers '(layer2))) (configuration-layer--layers `(,(cfgl-layer "layer1" :name 'layer1) ,(cfgl-layer "layer2" :name 'layer2))) (witness nil) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg () (push 'init witness)) (defun layer2/post-init-pkg () (push 'post-init witness)) (mocker-let ((spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-package pkg) (should (equal '(post-init init) witness))))) (ert-deftest test-configure-package--disabled-for-does-not-call-pre-post-init () (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :pre-layers '(layer2) :post-layers '(layer3))) (configuration-layer--layers `(,(cfgl-layer "layer1" :name 'layer1 :disabled-for '(layer2 layer3)) ,(cfgl-layer "layer2" :name 'layer2) ,(cfgl-layer "layer2" :name 'layer3))) (witness nil) (mocker-mock-default-record-cls 'mocker-stub-record)) (defun layer1/init-pkg () (push 'init witness)) (defun layer2/pre-init-pkg () (push 'pre-init witness)) (defun layer3/post-init-pkg () (push 'post-init witness)) (mocker-let ((spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-package pkg) (should (equal '(init) witness))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//configure-packages-2 ;; --------------------------------------------------------------------------- (ert-deftest test-configure-packages-2--package-w/-layer-owner-is-configured() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) ((:occur 1))) (spacemacs-buffer/loading-animation nil ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--site-package-is-configured() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :location 'site)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) ((:occur 1))) (spacemacs-buffer/loading-animation nil ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--toggle-t-is-configured () (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :toggle t)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) ((:occur 1))) (spacemacs-buffer/loading-animation nil ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--toggle-nil-is-not-configured () (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :toggle nil)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) nil) (spacemacs-buffer/loading-animation nil ((:output nil))) (spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--protected-package-is-configured() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :protected t)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) ((:occur 1))) (spacemacs-buffer/loading-animation nil ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--protected-excluded-package-is-configured() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :excluded t :protected t)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) ((:occur 1))) (spacemacs-buffer/loading-animation nil ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--excluded-package-is-not-configured() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :excluded t)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) nil) (spacemacs-buffer/loading-animation nil ((:output nil))) (spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--package-w/o-owner-is-not-configured() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner nil)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) nil) (spacemacs-buffer/loading-animation nil ((:output nil))) (spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--package-owned-by-dotfile-is-not-configured() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'dotfile)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) nil) (spacemacs-buffer/loading-animation nil ((:output nil))) (spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--lazy-install-package-is-not-configured() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer :lazy-install t)) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((configuration-layer//configure-package (p) nil) (spacemacs-buffer/loading-animation nil ((:output nil))) (spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg))))) (ert-deftest test-configure-packages-2--local-package-w/-layer-owner-update-load-path() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'layer1 :location 'local)) (configuration-layer--layers `(,(cfgl-layer "layer1" :name 'layer1 :dir "/a/path/"))) (expected-load-path load-path) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((spacemacs-buffer/loading-animation nil ((:output nil))) (configuration-layer//configure-package (p) ((:occur 1)))) (configuration-layer//configure-packages-2 `(,pkg)) (push "/a/path/local/pkg/" expected-load-path) (should (equal expected-load-path load-path))))) (ert-deftest test-configure-packages-2--local-package-w/-dotfile-owner-update-load-path() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'dotfile :location 'local)) (expected-load-path load-path) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((spacemacs-buffer/loading-animation nil ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg)) (push (file-name-as-directory (concat configuration-layer-private-directory "local/pkg")) expected-load-path) (should (equal expected-load-path load-path))))) (ert-deftest test-configure-packages-2--local-package-w/o-owner-doesnt-update-load-path() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner nil :location 'local)) (old-load-path load-path) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((spacemacs-buffer/loading-animation nil ((:output nil))) (spacemacs-buffer/message (m) ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg)) (should (equal load-path old-load-path))))) (ert-deftest test-configure-packages-2--local-package-w/-string-location-update-load-path() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'dotfile :location spacemacs-docs-directory)) (expected-load-path load-path) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((spacemacs-buffer/loading-animation nil ((:output nil)))) (configuration-layer//configure-packages-2 `(,pkg)) (push spacemacs-docs-directory expected-load-path) (should (equal expected-load-path load-path))))) (ert-deftest test-configure-packages-2--local-package-w/-bad-string-location-gives-warning() (let ((pkg (cfgl-package "pkg" :name 'pkg :owner 'dotfile :location "/this/directory/does/not/exist/")) (mocker-mock-default-record-cls 'mocker-stub-record)) (mocker-let ((spacemacs-buffer/loading-animation nil ((:output nil))) (spacemacs-buffer/warning (msg &rest args) ((:record-cls 'mocker-stub-record :output nil :occur 1)))) (configuration-layer//configure-packages-2 `(,pkg))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//sort-packages ;; --------------------------------------------------------------------------- (ert-deftest test-sort-packages--example () (let ((pkgs `(,(configuration-layer/make-package 'pkg4) ,(configuration-layer/make-package 'pkg3) ,(configuration-layer/make-package 'pkg6) ,(configuration-layer/make-package 'pkg2) ,(configuration-layer/make-package 'pkg1)))) (should (equal (list (cfgl-package "pkg1" :name 'pkg1) (cfgl-package "pkg2" :name 'pkg2) (cfgl-package "pkg3" :name 'pkg3) (cfgl-package "pkg4" :name 'pkg4) (cfgl-package "pkg6" :name 'pkg6)) (configuration-layer//sort-packages pkgs))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//package-has-recipe-p ;; --------------------------------------------------------------------------- (ert-deftest test-package-has-a-recipe-p--true () (let ((configuration-layer--packages `(,(configuration-layer/make-package '(pkg1 :location (recipe blah))) ,(configuration-layer/make-package '(pkg2 :location elpa))))) (should (configuration-layer//package-has-recipe-p 'pkg1)))) (ert-deftest test-package-has-a-recipe-p--false () (let ((configuration-layer--packages `(,(configuration-layer/make-package '(pkg1 :location (recipe blah))) ,(configuration-layer/make-package '(pkg2 :location elpa))))) (should (not (configuration-layer//package-has-recipe-p 'pkg2))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//get-package-recipe ;; --------------------------------------------------------------------------- (ert-deftest test-get-package-recipe--return-recipe-if-package-has-one () (let ((configuration-layer--packages `(,(configuration-layer/make-package '(pkg1 :location (recipe blah))) ,(configuration-layer/make-package '(pkg2 :location elpa))))) (should (eq 'recipe (car (configuration-layer//get-package-recipe 'pkg1)))))) (ert-deftest test-get-package-recipe--return-nil-if-package-has-no-recipe () (let ((configuration-layer--packages `(,(configuration-layer/make-package '(pkg1 :location (recipe blah))) ,(configuration-layer/make-package '(pkg2 :location elpa))))) (should (not (configuration-layer//get-package-recipe 'pkg2))))) ;; --------------------------------------------------------------------------- ;; configuration-layer/filter-objects ;; --------------------------------------------------------------------------- (ert-deftest test-filter-packages--example-filter-excluded-packages () (let* ((pkg1 (configuration-layer/make-package 'pkg1)) (pkg2 (configuration-layer/make-package 'pkg2)) (pkg3 (configuration-layer/make-package 'pkg3)) (pkg4 (configuration-layer/make-package 'pkg4)) (pkg5 (configuration-layer/make-package 'pkg5)) (pkg6 (configuration-layer/make-package 'pkg6)) (pkg7 (configuration-layer/make-package 'pkg7)) (pkg8 (configuration-layer/make-package 'pkg8)) (pkgs (list pkg1 pkg2 pkg3 pkg4 pkg5 pkg6 pkg7 pkg8))) (oset pkg1 :excluded t) (oset pkg3 :excluded t) (oset pkg5 :excluded t) (oset pkg6 :excluded t) (should (equal (list (cfgl-package "pkg2" :name 'pkg2) (cfgl-package "pkg4" :name 'pkg4) (cfgl-package "pkg7" :name 'pkg7) (cfgl-package "pkg8" :name 'pkg8)) (configuration-layer/filter-objects pkgs (lambda (x) (not (oref x :excluded)))))))) (ert-deftest test-filter-packages--expample-filter-local-packages () (let* ((pkg1 (configuration-layer/make-package 'pkg1)) (pkg2 (configuration-layer/make-package 'pkg2)) (pkg3 (configuration-layer/make-package 'pkg3)) (pkg4 (configuration-layer/make-package 'pkg4)) (pkg5 (configuration-layer/make-package 'pkg5)) (pkg6 (configuration-layer/make-package 'pkg6)) (pkg7 (configuration-layer/make-package 'pkg7)) (pkg8 (configuration-layer/make-package 'pkg8)) (pkgs (list pkg1 pkg2 pkg3 pkg4 pkg5 pkg6 pkg7 pkg8))) (oset pkg1 :location 'local) (oset pkg3 :location 'local) (oset pkg5 :location 'local) (oset pkg6 :location 'local) (should (equal (list (cfgl-package "pkg2" :name 'pkg2) (cfgl-package "pkg4" :name 'pkg4) (cfgl-package "pkg7" :name 'pkg7) (cfgl-package "pkg8" :name 'pkg8)) (configuration-layer/filter-objects pkgs (lambda (x) (not (eq 'local (oref x :location))))))))) (ert-deftest test-filter-packages--example-filter-packages-local-or-excluded () (let* ((pkg1 (configuration-layer/make-package 'pkg1)) (pkg2 (configuration-layer/make-package 'pkg2)) (pkg3 (configuration-layer/make-package 'pkg3)) (pkg4 (configuration-layer/make-package 'pkg4)) (pkg5 (configuration-layer/make-package 'pkg5)) (pkg6 (configuration-layer/make-package 'pkg6)) (pkg7 (configuration-layer/make-package 'pkg7)) (pkg8 (configuration-layer/make-package 'pkg8)) (pkgs (list pkg1 pkg2 pkg3 pkg4 pkg5 pkg6 pkg7 pkg8))) (oset pkg1 :location 'local) (oset pkg1 :excluded t) (oset pkg3 :location 'local) (oset pkg5 :location 'local) (oset pkg6 :location 'local) (oset pkg6 :excluded t) (oset pkg7 :excluded t) (should (equal (list (cfgl-package "pkg2" :name 'pkg2) (cfgl-package "pkg4" :name 'pkg4) (cfgl-package "pkg8" :name 'pkg8)) (configuration-layer/filter-objects pkgs (lambda (x) (and (not (eq 'local (oref x :location))) (not (oref x :excluded))))))))) (ert-deftest test-filter-packages--example-filter-packages-both-local-and-excluded () (let* ((pkg1 (configuration-layer/make-package 'pkg1)) (pkg2 (configuration-layer/make-package 'pkg2)) (pkg3 (configuration-layer/make-package 'pkg3)) (pkg4 (configuration-layer/make-package 'pkg4)) (pkg5 (configuration-layer/make-package 'pkg5)) (pkg6 (configuration-layer/make-package 'pkg6)) (pkg7 (configuration-layer/make-package 'pkg7)) (pkg8 (configuration-layer/make-package 'pkg8)) (pkgs (list pkg1 pkg2 pkg3 pkg4 pkg5 pkg6 pkg7 pkg8))) (oset pkg1 :location 'local) (oset pkg1 :excluded t) (oset pkg3 :location 'local) (oset pkg5 :excluded t) (oset pkg6 :location 'local) (oset pkg6 :excluded t) (should (equal (list (cfgl-package "pkg2" :name 'pkg2) (cfgl-package "pkg3" :name 'pkg3 :location 'local) (cfgl-package "pkg4" :name 'pkg4) (cfgl-package "pkg5" :name 'pkg5 :excluded t) (cfgl-package "pkg7" :name 'pkg7) (cfgl-package "pkg8" :name 'pkg8)) (configuration-layer/filter-objects pkgs (lambda (x) (or (not (eq 'local (oref x :location))) (not (oref x :excluded))))))))) ;; --------------------------------------------------------------------------- ;; configuration-layer/package-usedp ;; --------------------------------------------------------------------------- (ert-deftest test-package-usedp--package-with-owner-can-be-used () (let* ((layer1 (cfgl-layer "layer1" :name 'layer1 :dir "/path")) (layers (list layer1)) (layer1-packages '(pkg1 pkg2 pkg3)) (mocker-mock-default-record-cls 'mocker-stub-record) (configuration-layer--packages (list (cfgl-package "pkg3" :name 'pkg3 :owner 'layer1) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer1) (cfgl-package "pkg1" :name 'pkg1 :owner 'layer1)))) (should (configuration-layer/package-usedp (nth (random 3) layer1-packages))))) (ert-deftest test-package-usedp--package-with-no-owner-cannot-be-used () (let* ((layer1 (cfgl-layer "layer1" :name 'layer1 :dir "/path")) (layers (list layer1)) (layer1-packages '(pkg1 pkg2 pkg3)) (mocker-mock-default-record-cls 'mocker-stub-record) (configuration-layer--packages (list (cfgl-package "pkg3" :name 'pkg3) (cfgl-package "pkg2" :name 'pkg2) (cfgl-package "pkg1" :name 'pkg1)))) (should (null (configuration-layer/package-usedp (nth (random 3) layer1-packages)))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//directory-type ;; --------------------------------------------------------------------------- (ert-deftest test-directory-type--input-is-a-file () (let ((input "/a/path/to/a/layer/file")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output nil :occur 1)))) (should (null (configuration-layer//directory-type input)))))) (ert-deftest test-directory-type--category () (let ((input (concat configuration-layer-directory "+vim/"))) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1)))) (should (eq 'category (configuration-layer//directory-type input)))))) (ert-deftest test-directory-type--input-is-an-empty-directory () (let ((input "/a/path/to/a/layer/")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1))) (directory-files (directory &optional full match nosort) ((:record-cls 'mocker-stub-record :output nil :occur 1)))) (should (null (configuration-layer//directory-type input)))))) (ert-deftest test-directory-type--input-is-directory-and-not-a-layer () (let ((input "/a/path/to/a/layer/")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1))) (directory-files (directory &optional full match nosort) ((:record-cls 'mocker-stub-record :output '("toto.el" "tata.el") :occur 1)))) (should (null (configuration-layer//directory-type input)))))) (ert-deftest test-directory-type--layer-with-packages.el () (let ((input "/a/path/to/a/layer/")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1))) (directory-files (directory &optional full match nosort) ((:record-cls 'mocker-stub-record :output '("packages.el") :occur 1)))) (should (eq 'layer (configuration-layer//directory-type input)))))) (ert-deftest test-directory-type--layer-with-config.el () (let ((input "/a/path/to/a/layer/")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1))) (directory-files (directory &optional full match nosort) ((:record-cls 'mocker-stub-record :output '("config.el") :occur 1)))) (should (eq 'layer (configuration-layer//directory-type input)))))) (ert-deftest test-directory-type--layer-with-keybindings.el () (let ((input "/a/path/to/a/layer/")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1))) (directory-files (directory &optional full match nosort) ((:record-cls 'mocker-stub-record :output '("keybindings.el") :occur 1)))) (should (eq 'layer (configuration-layer//directory-type input)))))) (ert-deftest test-directory-type--layer-with-funcs.el () (let ((input "/a/path/to/a/layer/")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1))) (directory-files (directory &optional full match nosort) ((:record-cls 'mocker-stub-record :output '("funcs.el") :occur 1)))) (should (eq 'layer (configuration-layer//directory-type input)))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//get-category-from-path ;; --------------------------------------------------------------------------- (ert-deftest test-get-category-from-path--input-is-a-file () (let ((input "/a/path/to/a/file")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output nil :occur 1)))) (should (null (configuration-layer//get-category-from-path input)))))) (ert-deftest test-get-category-from-path--input-is-a-regular-directory () (let ((input "/a/path/to/a/layer/")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1)))) (should (null (configuration-layer//get-category-from-path input)))))) (ert-deftest test-get-category-from-path--return-category () (let ((input "/a/path/to/a/+cat/")) (mocker-let ((file-directory-p (f) ((:record-cls 'mocker-stub-record :output t :occur 1)))) (should (eq 'cat (configuration-layer//get-category-from-path input)))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//gather-auto-mode-extensions ;; --------------------------------------------------------------------------- (ert-deftest test-gather-auto-mode-extensions--one-entry-in-auto-mode-alist () (let ((auto-mode-alist '(("\\.spacemacs\\'" . mode)))) (should (equal "\\(\\.spacemacs\\'\\)" (configuration-layer//gather-auto-mode-extensions 'mode))))) (ert-deftest test-gather-auto-mode-extensions--several-entries-in-auto-mode-alist () (let ((auto-mode-alist '(("\\.spacemacs\\'" . mode) ("\\.dotspacemacs\\'" . mode) ("\\.spacelayer\\'" . mode)))) (should (equal "\\(\\.spacelayer\\'\\|\\.dotspacemacs\\'\\|\\.spacemacs\\'\\)" (configuration-layer//gather-auto-mode-extensions 'mode))))) (ert-deftest test-gather-auto-mode-extensions--ext-entry-is-not-symbol () (let ((auto-mode-alist '(((nil t) . mode)))) (should (null (configuration-layer//gather-auto-mode-extensions 'mode))))) (ert-deftest test-gather-auto-mode-extensions--mode-entry-is-not-symbol () (let ((auto-mode-alist '(("ext" . (lambda nil nil))))) (should (null (configuration-layer//gather-auto-mode-extensions 'mode))))) (ert-deftest test-gather-auto-mode-extensions--regexp-correctness () "Correctness is a big word here :-)" (let ((regexp (configuration-layer//gather-auto-mode-extensions 'emacs-lisp-mode))) (should (string-match-p regexp "/_emacs")) (should (string-match-p regexp "/.toto_gnus")) (should (string-match-p regexp "/.toto_viper")) (should (string-match-p regexp "/toto/emacs.el")) (should (string-match-p regexp "/toto/project.ede")) (should (not (string-match-p regexp "/toto/emacs.dummy"))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//lazy-install-extensions-for-layer ;; --------------------------------------------------------------------------- (ert-deftest test-lazy-install-extensions-for-layer--owned-packages () (let ((configuration-layer--layers (list (cfgl-layer "layer" :name 'layer :packages '(pkg1 pkg2)))) (configuration-layer--packages (list (cfgl-package "pkg1" :name 'pkg1 :owner 'layer) (cfgl-package "pkg2" :name 'pkg2 :owner 'layer))) (auto-mode-alist '(("\\.pkg1\\'" . pkg1) ("\\.pkg2\\'" . pkg2)))) (should (equal '((pkg2 . "\\(\\.pkg2\\'\\)") (pkg1 . "\\(\\.pkg1\\'\\)")) (configuration-layer//lazy-install-extensions-for-layer 'layer))))) (ert-deftest test-lazy-install-extensions-for-layer--not-owned-package () (let ((configuration-layer--layers (list (cfgl-layer "layer" :name 'layer :packages '(pkg1)))) (configuration-layer--packages (list (cfgl-package "pkg1" :name 'pkg1 :owner 'other))) (auto-mode-alist '(("\\.pkg1\\'" . pkg1)))) (should (null (configuration-layer//lazy-install-extensions-for-layer 'layer))))) ;; --------------------------------------------------------------------------- ;; configuration-layer//insert-lazy-install-form ;; --------------------------------------------------------------------------- (ert-deftest test-insert-lazy-install-form () (cl-letf (((symbol-function 'insert) 'identity)) (should (equal (concat "(configuration-layer/lazy-install 'layer " ":extensions '(\"\\\\(\\\\.ext\\\\'\\\\)\" mode))\n") (configuration-layer//insert-lazy-install-form 'layer 'mode "\\(\\.ext\\'\\)"))))) ;; --------------------------------------------------------------------------- ;; configuration-layer/configured-packages-stats ;; --------------------------------------------------------------------------- (ert-deftest test-configured-packages-stats--correct-counts () (let ((packages (list (cfgl-package "pkg1" :name 'pkg1 :location 'built-in) (cfgl-package "pkg2" :name 'pkg2 :location 'built-in) (cfgl-package "pkg3" :name 'pkg3 :location 'elpa) (cfgl-package "pkg4" :name 'pkg4 :location 'elpa) (cfgl-package "pkg5" :name 'pkg5 :location 'elpa) (cfgl-package "pkg6" :name 'pkg6 :location 'local) (cfgl-package "pkg7" :name 'pkg7 :location '(recipe :foo bar)) (cfgl-package "pkg8" :name 'pkg8 :location '(recipe :foo bar))))) (should (equal '((total 8) (elpa 3) (recipe 2) (local 1) (built-in 2)) (configuration-layer/configured-packages-stats packages))))) (ert-deftest test-configured-packages-stats--sum-is-correct () (let* ((packages (list (cfgl-package "pkg1" :name 'pkg1 :location 'built-in) (cfgl-package "pkg2" :name 'pkg2 :location 'built-in) (cfgl-package "pkg3" :name 'pkg3 :location 'elpa) (cfgl-package "pkg4" :name 'pkg4 :location 'elpa) (cfgl-package "pkg5" :name 'pkg5 :location 'elpa) (cfgl-package "pkg6" :name 'pkg6 :location 'local) (cfgl-package "pkg7" :name 'pkg7 :location '(recipe :foo bar)) (cfgl-package "pkg8" :name 'pkg8 :location '(recipe :foo bar)))) (stats (configuration-layer/configured-packages-stats packages))) (should (equal 8 (+ (cadr (assq 'elpa stats)) (cadr (assq 'recipe stats)) (cadr (assq 'local stats)) (cadr (assq 'built-in stats)))))))