17 lines
596 B
Clojure
17 lines
596 B
Clojure
|
(ns test-install
|
||
|
|
(:use [leiningen.core :only [read-project defproject]]
|
||
|
|
[leiningen.install] :reload-all)
|
||
|
|
(:use [clojure.test]
|
||
|
|
[clojure.contrib.java-utils :only [delete-file-recursively file]]
|
||
|
|
[clojure.contrib.shell-out :only [with-sh-dir sh]]))
|
||
|
|
|
||
|
|
(def m2-dir (file (System/getProperty "user.home") ".m2" "repository"
|
||
|
|
"nomnomnom" "nomnomnom" "0.5.0-SNAPSHOT"))
|
||
|
|
|
||
|
|
(defonce test-project (read-project "sample/project.clj"))
|
||
|
|
|
||
|
|
(deftest test-install
|
||
|
|
(delete-file-recursively m2-dir true)
|
||
|
|
(install test-project)
|
||
|
|
(is (not (empty? (.listFiles m2-dir)))))
|