From 18d58964d578f6306e34e57304f6fcd2d71f19ad Mon Sep 17 00:00:00 2001
From: Chas Emerick <chas@cemerick.com>
Date: Mon, 23 Apr 2012 22:15:39 -0400
Subject: [PATCH] test for init-project

---
 leiningen-core/dev-resources/p3.clj                 | 3 +++
 leiningen-core/test/leiningen/core/test/project.clj | 7 ++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)
 create mode 100644 leiningen-core/dev-resources/p3.clj

diff --git a/leiningen-core/dev-resources/p3.clj b/leiningen-core/dev-resources/p3.clj
new file mode 100644
index 00000000..763068ff
--- /dev/null
+++ b/leiningen-core/dev-resources/p3.clj
@@ -0,0 +1,3 @@
+(defproject profile-middler "2.0.0-SNAPSHOT"
+  :description "Automate Clojure projects without setting your hair on fire."
+  :profiles {:middler {:middleware [leiningen.core.test.project/add-seven]}})
diff --git a/leiningen-core/test/leiningen/core/test/project.clj b/leiningen-core/test/leiningen/core/test/project.clj
index 6405c89c..89e72afb 100755
--- a/leiningen-core/test/leiningen/core/test/project.clj
+++ b/leiningen-core/test/leiningen/core/test/project.clj
@@ -90,4 +90,9 @@
   (assoc project :seven 7))
 
 (deftest test-middleware
-  (is (= 7 (:seven (read (.getFile (io/resource "p2.clj")))))))
\ No newline at end of file
+  (is (= 7 (:seven (read (.getFile (io/resource "p2.clj")))))))
+
+(deftest test-init-project
+  (is (= 7 (:seven (-> (.getFile (io/resource "p3.clj"))
+                     read
+                     (merge-profiles [:middler]))))))