Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (use ['clojure.test :only ['report 'run-tests 'with-report]])
- (use ['clojure.test.junit :only ['junit-report]])
- (use ['clojure.java.io :only ['file 'writer]])
- (require 'com.example.ns1-test)
- (require 'com.example.ns2-test)
- (require 'com.example.ns3-test)
- (.mkdirs (file "target/surefire-reports"))
- (doseq [ns (filter #(.contains (str %) "-test") (all-ns))]
- (with-open [junit-out (writer (str "target/surefire-reports/TEST-" ns ".xml"))]
- (with-report [junit-report junit-out
- report *out*]
- (run-tests ns))))
Add Comment
Please, Sign In to add comment