meissa
/
data-test
7
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #1 from DomainDrivenArchitecture/specify-search-places

Browse Source 
Specify search places in error
master
M.Jerger 5 years ago committed by GitHub
parent d8c3ee5573 8703f17c1f
commit cf62e4f386
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File

7
main/src/data_test/loader.clj
Unescape Escape 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))))

Write Preview
Loading…
Cancel
Save