Specify search places in error

This commit is contained in:
Vlad Bokov 2019-05-31 12:14:04 +07:00
parent d8c3ee5573
commit 8703f17c1f
No known key found for this signature in database
GPG key ID: 4D88DD3A10EA1D63

View file

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