Set classifier in pom. Fixes #349

src/leiningen/pom.clj

@@ -217,6 +217,7 @@
        [:groupId (:group project)]
        [:artifactId (:name project)]
        [:version (:version project)]
+       (when (:classifier project) [:classifier (:classifier project)])
        [:name (:name project)]
        [:description (:description project)]
        [:url (:url project)]

test/leiningen/test/pom.clj

@@ -1,15 +1,25 @@
 (ns leiningen.test.pom
   (:use [clojure.test]
         [clojure.java.io :only [file delete-file]]
-        [leiningen.pom :only [pom]]
+        [leiningen.pom :only [make-pom pom]]
         [leiningen.test.helper :only [sample-project]]))
 
-(deftest test-pom
+(deftest test-pom-file-is-created
   (let [pom-file (file (:target-path sample-project) "pom.xml")]
     (delete-file pom-file true)
     (pom sample-project)
     (is (.exists pom-file))))
 
+(deftest test-pom-has-classifier-when-defined
+  (let [pom (make-pom sample-project)]
+    (is (not (re-find #"classifier" pom))))
+  (let [altered-meta (assoc-in (meta sample-project)
+                               [:without-profiles :classifier]
+                               "stuff")
+        pom (make-pom (with-meta sample-project altered-meta))]
+    (is (re-find #"<classifier>stuff</classifier>" pom))))
+
+
 (deftest test-snapshot-checking
   (let [aborted? (atom false)]
     (binding [leiningen.pom/abort #(reset! aborted? %&)]