TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: fix error when a layer is not found

This commit is contained in:
syl20bnr 2015-07-26 20:41:06 -04:00
parent c0ec9faa56
commit a0cbcd4a5d
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/core-configuration-layer.el
View File

@ -306,7 +306,7 @@ path."
(defun configuration-layer//declare-used-layers (layers)
"Declare the passed configuration LAYERS.
LAYERS is a list of layer symbols."
(reduce (lambda (acc elt) (push elt acc))
(reduce (lambda (acc elt) (if elt (push elt acc) acc))
(mapcar 'configuration-layer//make-used-layer (reverse layers))
:initial-value nil))

11
core/tests/core-configuration-layer-utest.el
View File

@ -26,6 +26,17 @@
(result (configuration-layer//declare-used-layers input)))
(should (equal result input)))))
(ert-deftest test-declare-used-layers--ignore-not-found-layer ()
(mocker-let ((configuration-layer//make-used-layer
(x)
((:input '(layer3) :output 'layer3)
(:input '(layer2-not-found) :output nil)
(:input '(layer1) :output 'layer1))))
(let* ((input '(layer1 layer2-not-found layer3))
(expected '(layer1 layer3))
(result (configuration-layer//declare-used-layers input)))
(should (equal result expected)))))
;; ---------------------------------------------------------------------------
;; configuration-layer//make-used-layer
;; ---------------------------------------------------------------------------