TDEPS-259 Improve error reporting on deps.edn spec errors

Author: namenu

src/main/clojure/clojure/tools/deps/specs.clj

@@ -139,7 +139,7 @@
                        (sort-by #(- (count (:in %))))
                        (sort-by #(- (count (:path %)))))
             {:keys [path pred val reason via in]} (first problems)]
-        (str "Found: " (pr-str val) ", expected: " (if reason reason (s/abbrev pred)))))))
+        (str "Found: " (pr-str val) ", expected: " (if reason reason (s/abbrev pred)) ", in: " (pr-str in))))))
 
 ;; API
 

src/test/clojure/clojure/tools/deps/test_specs.clj

@@ -0,0 +1,19 @@
+(ns clojure.tools.deps.test-specs
+  (:require
+    [clojure.test :refer [deftest is]]
+    [clojure.tools.deps.specs :as specs]))
+
+
+(deftest test-explain-deps
+  (let [deps-map {:mvn/repos {"myrepo" {:url "https://repo1.maven.org/maven2/"
+                                        :snapshots true}}}]
+    (is (= (specs/explain-deps deps-map)
+           "Found: true, expected: map?, in: [:mvn/repos \"myrepo\" 1 :snapshots]")))
+
+  (let [deps-map {:tools/usage {:ns-default "some.ns"}}]
+    (is (= (specs/explain-deps deps-map)
+           "Found: \"some.ns\", expected: simple-symbol?, in: [:tools/usage :ns-default]"))))
+
+(comment
+  (test-explain-deps)
+  )