Guest User

Untitled

a guest
Jun 23rd, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. (use ['clojure.test :only ['report 'run-tests 'with-report]])
  2. (use ['clojure.test.junit :only ['junit-report]])
  3. (use ['clojure.java.io :only ['file 'writer]])
  4.  
  5. (require 'com.example.ns1-test)
  6. (require 'com.example.ns2-test)
  7. (require 'com.example.ns3-test)
  8.  
  9. (.mkdirs (file "target/surefire-reports"))
  10. (doseq [ns (filter #(.contains (str %) "-test") (all-ns))]
  11. (with-open [junit-out (writer (str "target/surefire-reports/TEST-" ns ".xml"))]
  12. (with-report [junit-report junit-out
  13. report *out*]
  14. (run-tests ns))))
Add Comment
Please, Sign In to add comment