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

improve file-loaders exception readability

Browse source
This commit is contained in:
jem 2019-05-24 13:17:59 +02:00
parent f0a30e0c20
commit dfb35e06f0
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
main/src/data_test/file_loader.clj
View file

@ -39,4 +39,8 @@
(s/defn load-test-data (s/defn load-test-data
[file-prefix :- s/Str] [file-prefix :- s/Str]
(let [file-path (str file-prefix ".edn")] (let [file-path (str file-prefix ".edn")]
(read-data (io/resource file-path)))) (try
(read-data (io/resource file-path))
(catch IllegalArgumentException e
(throw (ex-info "unable to load test spec" {:cause e
:file-path file-prefix}))))))

3
test/src/data_test/file_loader_test.clj
View file

@ -35,3 +35,6 @@
(is (= {:test "data"} (is (= {:test "data"}
(sut/load-test-data (sut/data-file-prefix ::test-it))))) (sut/load-test-data (sut/data-file-prefix ::test-it)))))
(deftest should-throw-exception
(is (thrown? Exception
(sut/load-test-data (sut/data-file-prefix ::not-existing)))))