From 15637254ae9ff097e9e4afa7659484cb26aa4d5e Mon Sep 17 00:00:00 2001 From: jem Date: Tue, 28 May 2019 18:59:52 +0200 Subject: [PATCH] add file as testing context --- main/src/data_test.clj | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/main/src/data_test.clj b/main/src/data_test.clj index aeed91f..232b0df 100644 --- a/main/src/data_test.clj +++ b/main/src/data_test.clj @@ -33,7 +33,10 @@ :test `(fn [] (doseq [data-spec# (fl/load-data-test-specs ~namespaced-test-key#)] (let [~(symbol (first bindings)) (:input data-spec#) - ~(symbol (second bindings)) (:expectation data-spec#)] - ~@body))) + ~(symbol (second bindings)) (:expectation data-spec#) + data-spec-file# (:data-spec-file data-spec#)] + (binding [ct/*testing-contexts* + (conj ct/*testing-contexts* data-spec-file#)] + ~@body)))) :data-spec-key namespaced-test-key#) (fn [] (ct/test-var (var ~n)))))))