diff options
Diffstat (limited to 'src/clojure/contrib/test_is.clj')
| -rw-r--r-- | src/clojure/contrib/test_is.clj | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj index c56cdbbe..a7b2604b 100644 --- a/src/clojure/contrib/test_is.clj +++ b/src/clojure/contrib/test_is.clj @@ -892,16 +892,13 @@ Chas Emerick, Allen Rohner, and Stuart Halloway", *report-counters*." [ns] (binding [*report-counters* (ref *initial-report-counters*)] - (let [current-ns *ns* - ns (if (symbol? ns) (find-ns ns) ns)] + (let [ns (if (symbol? ns) (find-ns ns) ns)] (report {:type :begin-test-ns, :ns ns}) - (in-ns (ns-name ns)) ;; If ns has a test-ns-hook function, call that: (if-let [v (find-var (symbol (str (ns-name ns)) "test-ns-hook"))] ((var-get v)) ;; Otherwise, just test every var in the ns. (test-all-vars ns)) - (in-ns (ns-name current-ns)) (report {:type :end-test-ns, :ns ns})) @*report-counters*)) |