0.4.37 - add dispatch test for add lein

build.clj

@@ -3,7 +3,7 @@
             [deps-deploy.deps-deploy :as dd]))
 
 (def lib 'org.clojars.some/depo)
-(def version "0.4.36")
+(def version "0.4.37")
 (def jar-file (format "target/%s-%s.jar" (name lib) version))
 (def class-dir "target/classes")
 (def url "https://github.com/somecho/depo")

src/depo/core.clj

@@ -44,7 +44,7 @@
 (def CONFIGURATION
   {:command "depo"
    :description "Manage dependencies for Clojure projects easily"
-   :version "0.4.36"
+   :version "0.4.37"
    :opts [{:as "path to configuration file"
            :default nil
            :option "file"

test/depo/dispatch_test.clj

@@ -5,6 +5,7 @@
             [clojure.test :refer [deftest testing is]]))
 
 (def DEFAULT-PATH "test/resources/input/deps.edn")
+(def LEIN-PATH "test/resources/input/project.clj")
 
 (deftest add-default
   (testing "add reagent 1.2.0"
@@ -50,4 +51,19 @@
                        z/root-string)]
       (is (= new-deps (slurp DEFAULT-PATH))))))
 
-
+(deftest add-lein
+  (testing "add reagent 1.2.0"
+    (let [procedure (create-procedure {:config-path LEIN-PATH
+                                       :id "reagent@1.2.0"
+                                       :operation :add})
+          new-deps (-> procedure
+                       dispatch
+                       z/root-string
+                       z/of-string
+                       (z/find-value z/next :dependencies)
+                       z/next
+                       z/string
+                       read-string
+                       (as-> v (into (sorted-map) v)))]
+      (is (contains? new-deps 'reagent))
+      (is (= (get new-deps 'reagent) "1.2.0")))))