Fix #1451: Allow passing explicit file and line number to clojure.test
This commit is contained in:
parent
d9aad85476
commit
62916fa292
2 changed files with 7 additions and 1 deletions
|
|
@ -297,7 +297,7 @@
|
||||||
current assertion."
|
current assertion."
|
||||||
{:added "1.1"}
|
{:added "1.1"}
|
||||||
[m]
|
[m]
|
||||||
(let [{:keys [:file :line]} (meta (first @testing-vars))]
|
(let [{:keys [:file :line]} (merge m (meta (first @testing-vars)))]
|
||||||
(str
|
(str
|
||||||
;; Uncomment to include namespace in failure report:
|
;; Uncomment to include namespace in failure report:
|
||||||
;;(ns-name (:ns (meta (first *testing-vars*)))) "/ "
|
;;(ns-name (:ns (meta (first *testing-vars*)))) "/ "
|
||||||
|
|
|
||||||
|
|
@ -112,3 +112,9 @@
|
||||||
(deftest line-number-test
|
(deftest line-number-test
|
||||||
(is (str/includes? (bb "test-resources/line_number_test_test.clj")
|
(is (str/includes? (bb "test-resources/line_number_test_test.clj")
|
||||||
"line_number_test_test.clj:4")))
|
"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"))
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue