diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-10-01 16:18:34 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-11-05 08:45:58 -0700 |
| commit | 38e63c2e967c8cca1465f4bdc7560d9288f42e6b (patch) | |
| tree | 0022234ba332029bb5c3798deee53c0022837584 | |
| parent | b0fda0900001e08ee6fecd2091608036eeeebefd (diff) | |
Wrap JUnit XML headers in with-test-out; refs #431
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | src/clj/clojure/test/junit.clj | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/clj/clojure/test/junit.clj b/src/clj/clojure/test/junit.clj index 026b209d..e0af79d5 100644 --- a/src/clj/clojure/test/junit.clj +++ b/src/clj/clojure/test/junit.clj @@ -187,8 +187,9 @@ `(binding [t/report junit-report *var-context* (list) *depth* 1] - (println "<?xml version=\"1.0\" encoding=\"UTF-8\"?>") - (println "<testsuites>") + (t/with-test-out + (println "<?xml version=\"1.0\" encoding=\"UTF-8\"?>") + (println "<testsuites>")) (let [result# ~@body] - (println "</testsuites>") + (t/with-test-out (println "</testsuites>")) result#))) |