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

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

Browse source 
Specify search places in error
This commit is contained in:
M.Jerger 2019-05-31 08:16:23 +02:00 committed by GitHub
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 Expand all files Collapse all files

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