yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix and test profile aliases.

Browse source
This commit is contained in:
Phil Hagelberg 2011-12-08 09:05:16 -08:00
parent 4ccbbfd2bb
commit 69e286628c
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
leiningen-core/src/leiningen/core/project.clj
View file

@ -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]

3
leiningen-core/test/leiningen/core/test/project.clj
View file

@ -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)))))