add multifile support

DomainDrivenArchitecture · May 28, 2019 · 9eaf281 · 9eaf281
1 parent 86cd372
commit 9eaf281
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/main/src/data_test/file_loader.clj b/main/src/data_test/file_loader.clj
@@ -43,6 +43,16 @@
           (map #(str prefix "." % ".edn")
                 (range 10)))))
 
+(s/defn load-data-test-specs :- '(TestDataSpec)
+  [file-prefix :- s/Str]
+  (let [file-path (str file-prefix ".edn")]
+    (try
+      (read-test-data-spec (io/resource file-path))
+      (catch IllegalArgumentException e
+        (throw (ex-info (str "Could not find test spec on " file-path)
+                        {:message "Could not find test spec"
+                         :file-path file-prefix} e))))))
+
 (s/defn load-test-data
   [file-prefix :- s/Str]
   (let [file-path (str file-prefix ".edn")]