Fix and test profile aliases.
This commit is contained in:
parent
4ccbbfd2bb
commit
69e286628c
2 changed files with 3 additions and 2 deletions
|
@ -109,7 +109,7 @@
|
|||
(defn- lookup-profile [profiles profile]
|
||||
(let [result (profiles profile)]
|
||||
(if (keyword? result)
|
||||
(recur result)
|
||||
(recur profiles result)
|
||||
result)))
|
||||
|
||||
(defn- profiles-for [project profiles-to-apply]
|
||||
|
|
|
@ -44,6 +44,7 @@
|
|||
|
||||
(def test-profiles (atom {:qa {:resources-path ["/etc/myapp"]}
|
||||
:test {:resources-path ["test/hi"]}
|
||||
:tes :test
|
||||
:dev {:test-path ["test"]}}))
|
||||
|
||||
(deftest test-merge-profile-paths
|
||||
|
@ -51,5 +52,5 @@
|
|||
(is (= ["/etc/myapp" "test/hi" "blue-resources" "resources"]
|
||||
(-> {:resources-path ["resources"]
|
||||
:profiles {:blue {:resources-path ["blue-resources"]}}}
|
||||
(merge-profiles [:qa :test :blue])
|
||||
(merge-profiles [:qa :tes :blue])
|
||||
:resources-path)))))
|
Loading…
Reference in a new issue