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

Fix tests to reflect sample project version change.

Browse source
This commit is contained in:
Phil Hagelberg 2010-12-07 11:07:05 -08:00
parent de9c54fac2
commit b66a046609
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/test_core.clj
View file

@ -35,6 +35,6 @@
(deftest test-unquote (deftest test-unquote
(let [project (binding [*ns* (find-ns 'leiningen.core)] (let [project (binding [*ns* (find-ns 'leiningen.core)]
(read-project "test_projects/sample/project.clj"))] (read-project "test_projects/sample/project.clj"))]
(is (= ['org.clojure/clojure "1.1.0-master-SNAPSHOT"] (is (= ['org.clojure/clojure "1.1.0"]
(first (:dependencies project)))) (first (:dependencies project))))
(is (= '(fn [_] (> (rand) 0.5)))))) (is (= '(fn [_] (> (rand) 0.5))))))

4
test/test_jar.clj
View file

@ -23,8 +23,8 @@
bat (slurp (.getInputStream jar-file (.getEntry jar-file bat (slurp (.getInputStream jar-file (.getEntry jar-file
"bin/nom.bat")))] "bin/nom.bat")))]
(is (= "bin/nom" (manifest "Leiningen-shell-wrapper"))) (is (= "bin/nom" (manifest "Leiningen-shell-wrapper")))
(is (re-find #"org/clojure/clojure/1\.1\.0-master-SNAPSHOT/" bin)) (is (re-find #"org/clojure/clojure/1\.1\.0/" bin))
(is (re-find #"org\\clojure\\clojure\\1\.1\.0-master-SNAPSHOT" bat)) (is (re-find #"org\\clojure\\clojure\\1\.1\.0" bat))
(is (re-find #"use 'nom\.nom\.nom\)\(apply -main .command-line-args." bin)) (is (re-find #"use 'nom\.nom\.nom\)\(apply -main .command-line-args." bin))
(is (re-find #"use 'nom\.nom\.nom\)\(apply -main .command-line-args." bat)) (is (re-find #"use 'nom\.nom\.nom\)\(apply -main .command-line-args." bat))
(is (re-find #"\$HOME/\.m2/repository/rome/rome/0\.9/rome-0\.9\.jar" bin)) (is (re-find #"\$HOME/\.m2/repository/rome/rome/0\.9/rome-0\.9\.jar" bin))

2
test_projects/sample/src/nom/nom/nom.clj
View file

@ -3,7 +3,7 @@
(:require [sample2.core]) (:require [sample2.core])
(:gen-class)) (:gen-class))
(when-not (= "1.1.0-master-SNAPSHOT" (clojure-version)) (when-not (= "1.1.0" (clojure-version))
(throw (Exception. (str "Not running Clojure 1.1.0 Snapshot: " (throw (Exception. (str "Not running Clojure 1.1.0 Snapshot: "
(clojure-version))))) (clojure-version)))))