expose query-dependencies api

Author: itai-spiritt

packages/kmono-core/src/k16/kmono/core/graph.clj

@@ -126,6 +126,22 @@
 
     (into (set (:dependents pkg)) dependents)))
 
+(defn query-dependencies
+  "Find all dependency packages of `pkg-name` within the given `packages` map.
+
+  This includes all transitive dependencies."
+  {:malli/schema [:=> [:cat core.schema/?PackageMap :symbol] [:set :symbol]]}
+  [packages pkg-name]
+
+  (let [pkg (get packages pkg-name)
+        dependencies
+        (mapcat
+         (fn [dep-pkg-name]
+           (query-dependencies packages dep-pkg-name))
+         (:depends-on pkg))]
+
+    (into (set (:depends-on pkg)) dependencies)))
+
 (defn- update-graph-edges
   [packages filtered]
   (into

packages/kmono-core/test/k16/kmono/core/graph_test.clj

@@ -79,6 +79,24 @@
     (is (match? #{}
                 (core.graph/query-dependents packages 'com.kepler16/c)))))
 
+(deftest query-dependencies-test
+  (fs/create-dirs (fs/file *repo* "packages/c"))
+  (fs/write-bytes (fs/file *repo* "packages/c/deps.edn")
+                  (.getBytes (prn-str {:kmono/package {}
+                                       :deps {'com.kepler16/b {:local/root "../b"}}})))
+
+  (let [config (core.config/resolve-workspace-config *repo*)
+        packages (core.packages/resolve-packages *repo* config)]
+
+    (is (match? #{'com.kepler16/b 'com.kepler16/a}
+                (core.graph/query-dependencies packages 'com.kepler16/c)))
+
+    (is (match? #{'com.kepler16/a}
+                (core.graph/query-dependencies packages 'com.kepler16/b)))
+
+    (is (match? #{}
+                (core.graph/query-dependencies packages 'com.kepler16/a)))))
+
 (deftest filter-packages-test
   (let [config (core.config/resolve-workspace-config *repo*)
         packages (core.packages/resolve-packages *repo* config)]