diff --git a/main/src/data_test/runner.clj b/main/src/data_test/runner.clj index ff082fc..4ebe689 100644 --- a/main/src/data_test/runner.clj +++ b/main/src/data_test/runner.clj @@ -31,8 +31,9 @@ (defprotocol RunTest "Protocol for data driven tests" + (name-prefix [dda-test]) (run-test [dda-test]) - (name-prefix [dda-test])) + ) (s/defn dispatch-by-name :- s/Keyword "Dispatcher for data-tests." @@ -50,24 +51,27 @@ (aero/read-config resource-url)) (s/defn data-file-prefix :- s/Str - [runner :- TestRunner] - (let [name-key (:name runner)] - (str/replace - (str/replace (str (namespace name-key) "/" (name name-key)) - #"-" "_") - #"\." "/"))) + [name-key :- s/Keyword] + (str/replace + (str/replace (str (namespace name-key) "/" (name name-key)) + #"-" "_") + #"\." "/")) + +(s/defn load-test-data + [file-prefix :- s/Str] + (let [file-path (str (data-file-prefix file-prefix) ".edn")] + (println file-path) + (read-data + (io/resource file-path)))) (extend-type TestRunner RunTest (name-prefix [_] - (data-file-prefix _)) + (data-file-prefix (:name _))) (run-test [_] - (println (data-file-prefix _)) - (let [testdata (read-data - (io/resource "data_test_test/should-test-with-data-record-version.edn")) - ;(str (data-file-prefix _) ".edn"))) - {:keys [input expectation]} testdata] - (data-test _ input expectation)))) + (let [testdata (load-test-data (data-file-prefix (:name _))) + {:keys [input expectation]} testdata] + (data-test _ input expectation)))) (defn create-test-runner [test-name] diff --git a/test/resources/data_test/runner_test/test_it.edn b/test/resources/data_test/runner_test/test_it.edn new file mode 100644 index 0000000..e85d33d --- /dev/null +++ b/test/resources/data_test/runner_test/test_it.edn @@ -0,0 +1 @@ +{:test "data"} \ No newline at end of file diff --git a/test/resources/data_test_test/should_test_with_data_record_version.edn b/test/resources/data_test_test/should_test_with_data_record_version.edn new file mode 100644 index 0000000..030c81f --- /dev/null +++ b/test/resources/data_test_test/should_test_with_data_record_version.edn @@ -0,0 +1,2 @@ +{:input 1 + :expectation 1} \ No newline at end of file diff --git a/test/src/data_test/runner_test.clj b/test/src/data_test/runner_test.clj index 8855c1c..c395d9d 100644 --- a/test/src/data_test/runner_test.clj +++ b/test/src/data_test/runner_test.clj @@ -29,7 +29,11 @@ (deftest should-calculate-data-file-prefix (is (= "data_test/runner_test/test_it" - (sut/data-file-prefix (sut/create-test-runner ::test-it))))) + (sut/data-file-prefix ::test-it)))) + +(deftest should-load-data + (is (= {:test "data"} + (sut/load-test-data ::test-it)))) (s/defmethod sut/data-test ::test-it [_ input :- s/Any expectation :- s/Any]