Add a test for with-all

src/leiningen/monolith.clj

@@ -123,7 +123,10 @@
         [monolith subprojects] (u/load-monolith! project)
         targets (target/select monolith subprojects opts)
         profile (plugin/merged-profile monolith (select-keys subprojects targets))
-        project (reduce (fn remove-replace [m k] (update m k vary-meta assoc :replace false)) project (keys profile))]
+        project (reduce (fn remove-replace
+                          [m k]
+                          (update m k vary-meta assoc :replace false))
+                        project (keys profile))]
     (lein/apply-task
       task
       (plugin/add-active-profile project :monolith/all profile)

test/leiningen/monolith_test.clj

@@ -0,0 +1,26 @@
+(ns leiningen.monolith-test
+  (:require
+    [clojure.java.io :as io]
+    [clojure.test :refer [deftest is]]
+    [leiningen.core.project :as project]
+    [leiningen.monolith :as sut]))
+
+
+(defn absolute-path
+  [path]
+  (.. (io/file path) toPath toAbsolutePath))
+
+
+(deftest with-all-test
+  (let [project (project/read "example/project.clj")
+        output (with-out-str (sut/with-all project ["pprint" ":test-paths"]))
+        path (absolute-path "example")]
+    (is (= ["test/unit"
+            "test/integration"
+            "apps/app-a/test/unit"
+            "apps/app-a/test/integration"
+            "libs/lib-b/test"
+            "libs/lib-a/test/unit"
+            "libs/lib-a/test/integration"]
+           (mapv #(str (.relativize path (absolute-path %)))
+                 (read-string output))))))