leiningen/test/test_jar.clj

(ns test-jar
  (:use [clojure.test]
        [leiningen.core :only [defproject]]
        [leiningen.jar]))

(defproject mock-project "1.0" :main foo.one-two.three-four.bar)

(deftest test-jar
  (is (= "foo.one_two.three_four.bar"
         (.getValue (.getMainAttributes (make-manifest mock-project))
                    "Main-Class"))))
Fix jar task and add test. The jar task is not correctly building the Main-Class attribute in the case of multiple hyphens in the namespace. Fix this and add regression test. 2010-03-11 04:31:50 +00:00			`(ns test-jar`
			`(:use [clojure.test]`
			`[leiningen.core :only [defproject]]`
			`[leiningen.jar]))`

			`(defproject mock-project "1.0" :main foo.one-two.three-four.bar)`

			`(deftest test-jar`
			`(is (= "foo.one_two.three_four.bar"`
Write ns->path and path->ns functions in core. 2010-04-07 04:41:23 +00:00			`(.getValue (.getMainAttributes (make-manifest mock-project))`
			`"Main-Class"))))`