 ;; ---------------------------------------------------------------------------
 
 (ert-deftest test-declare-used-layers--result-order-is-not-reversed ()
-  (mocker-let ((configuration-layer//declare-used-layer
+  (mocker-let ((configuration-layer//make-used-layer
                 (x)
                 ((:input '(layer3) :output 'layer3)
                  (:input '(layer2) :output 'layer2)

    (should (eq var3 'bar3))))

(ert-deftest test-set-layers-variables--odd-number-of-values ()
  (let ((input '((testlayer :dir "/a/path/"
                            :ext-dir "/a/path/extensions/"
                            :variables
                            var1 'bar
                            var2))))
    (mocker-let
     ((spacemacs-buffer/warning
       (msg &rest args)

      (should (equal result input)))))

;; ---------------------------------------------------------------------------
;; configuration-layer//make-used-layer
;; ---------------------------------------------------------------------------

(ert-deftest test-make-used-layer--input-is-a-symbol ()
  (let ((input 'testlayer)
        (expected (cfgl-layer "testlayer"
                              :name 'testlayer
                              :dir "/a/dummy/path/testlayer/"
                              :ext-dir "/a/dummy/path/testlayer/extensions/")))
    (mocker-let ((configuration-layer/get-layer-path
                  (x)
                  ((:input `(,input) :output "/a/dummy/path/"))))
      (let ((result (configuration-layer//make-used-layer input)))
        (should (equal result expected))))))

(ert-deftest test-make-used-layer--input-is-a-list ()
  (let ((input '(testlayer :variables var1 t var2 nil))
        (expected (cfgl-layer "testlayer"
                              :name 'testlayer
                              :dir "/a/dummy/path/testlayer/"
                              :ext-dir "/a/dummy/path/testlayer/extensions/"
                              :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-used-layer input)))
        (should (equal result expected))))))

;; ---------------------------------------------------------------------------
