diff --git a/src/babashka/impl/clojure/test.clj b/src/babashka/impl/clojure/test.clj index 422947a2..8903e911 100644 --- a/src/babashka/impl/clojure/test.clj +++ b/src/babashka/impl/clojure/test.clj @@ -297,7 +297,7 @@ current assertion." {:added "1.1"} [m] - (let [{:keys [:file :line]} (meta (first @testing-vars))] + (let [{:keys [:file :line]} (merge m (meta (first @testing-vars)))] (str ;; Uncomment to include namespace in failure report: ;;(ns-name (:ns (meta (first *testing-vars*)))) "/ " diff --git a/test/babashka/test_test.clj b/test/babashka/test_test.clj index 08a58249..b0ad6da5 100644 --- a/test/babashka/test_test.clj +++ b/test/babashka/test_test.clj @@ -112,3 +112,9 @@ (deftest line-number-test (is (str/includes? (bb "test-resources/line_number_test_test.clj") "line_number_test_test.clj:4"))) + +(deftest testing-vars-str-test + (is (str/includes? + (bb "(clojure.test/testing-vars-str {:file \"x\" :line 1})") + "() (x:1)") + "includes explicit line number + file name in test report"))