Specify search places in error
This commit is contained in:
parent
d8c3ee5573
commit
8703f17c1f
1 changed files with 4 additions and 3 deletions
|
@ -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))))
|
||||||
|
|
Loading…
Reference in a new issue