Specify search places in error

5 years ago · 8703f17c1f
parent d8c3ee5573
commit 8703f17c1f
1 changed files with 4 additions and 3 deletions
--- a/main/src/data_test/loader.clj
+++ b/main/src/data_test/loader.clj
@ -62,10 +62,11 @@

 (s/defn load-data-test-specs :- [RuntimeTestDataSpec]
  [name-key :- s/Keyword]
-  (let [data-test-specs (filter some?
-                                (map load-data-test-spec (data-test-spec-file-names name-key)))]
+  (let [locations (data-test-spec-file-names name-key)
+        data-test-specs (filter some? (map load-data-test-spec locations))]
    (if (empty? data-test-specs)
      (throw (ex-info (str "Could not find test spec on " name-key)
                      {:message "Could not find test spec"
-                       :name-key name-key}))
+                       :name-key name-key
+                       :locations locations}))
      (into [] data-test-specs))))