Skip to content

Commit

Permalink
Don't override *exit-process?* or *exit-after-tests* unless needed.
Browse files Browse the repository at this point in the history
  • Loading branch information
technomancy committed Jul 17, 2012
1 parent c435247 commit 79107e7
Showing 1 changed file with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions src/leiningen/test.clj
Original file line number Diff line number Diff line change
Expand Up @@ -84,8 +84,12 @@ if they are symbols they will be treated as a list of test namespaces to run.
With no arguments the :default test selector is used if present, otherwise all
tests are run."
[project & tests]
(binding [main/*exit-process?* (not= :leiningen (:eval-in project))
*exit-after-tests* (not= :leiningen (:eval-in project))]
(binding [main/*exit-process?* (if (= :leiningen (:eval-in project))
false
main/*exit-process?*)
*exit-after-tests* (if (= :leiningen (:eval-in project))
false
*exit-after-tests*)]
(let [project (project/merge-profiles project [:leiningen/test :test])
[nses selectors] (read-args tests project)
form (form-for-testing-namespaces nses nil (vec selectors))]
Expand Down

0 comments on commit 79107e7

Please sign in to comment.