(defn run-watcher
[]
(try
(let [tests-begun (System/currentTimeMillis)
namespaces (namespaces-to-test)]
(when (seq namespaces)
(println "\n\nWatcher awakened" (Date. tests-begun))
(mark-watched tests-begun namespaces)
(re-test namespaces)))
(catch Exception e (.printStackTrace e))))
Comments top
No comments for run-watcher. Log in to add a comment.