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]
[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))))