Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: technomancy/leiningen
...
head fork: technomancy/leiningen
Checking mergeability… Don't worry, you can still create the pull request.
  • 2 commits
  • 2 files changed
  • 0 commit comments
  • 1 contributor
Showing with 7 additions and 3 deletions.
  1. +2 −1  src/leiningen/pom.clj
  2. +5 −2 test/leiningen/test/pom.clj
View
3  src/leiningen/pom.clj
@@ -119,7 +119,8 @@
[exclusion-spec]
exclusion-spec)]
[:exclusion (map (partial apply xml-tags)
- {:group-id (namespace dep)
+ {:group-id (or (namespace dep)
+ (name dep))
:artifact-id (name dep)
:classifier classifier
:type extension})]))
View
7 test/leiningen/test/pom.clj
@@ -9,10 +9,10 @@
(use-fixtures :once (fn [f]
(with-redefs [user/profiles (constantly {})]
- f)))
+ (f))))
(deftest test-pom-file-is-created
- (let [pom-file (file (:target-path sample-project) "pom.xml")]
+ (let [pom-file (file (:root sample-project) "pom.xml")]
(delete-file pom-file true)
(pom sample-project)
(is (.exists pom-file))))
@@ -183,6 +183,9 @@
(is (= ["ring-mock" nil nil nil]
(map #(first-in % [:dependency :exclusions :exclusion :artifactId])
(deep-content xml [:project :dependencies]))))
+ (is (= ["ring-mock" nil nil nil]
+ (map #(first-in % [:dependency :exclusions :exclusion :groupId])
+ (deep-content xml [:project :dependencies]))))
(is (= ["cla" nil nil nil]
(map #(first-in % [:dependency :exclusions :exclusion :classifier])
(deep-content xml [:project :dependencies]))))

No commit comments for this range

Something went wrong with that request. Please try again.