test-is: run each test with *ns* set to its namespace

1 files changed, 4 insertions, 1 deletions

diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj
index a7b2604b..c56cdbbe 100644
--- a/src/clojure/contrib/test_is.clj
+++ b/src/clojure/contrib/test_is.clj
@@ -892,13 +892,16 @@ Chas Emerick, Allen Rohner, and Stuart Halloway",
   *report-counters*."
   [ns]
   (binding [*report-counters* (ref *initial-report-counters*)]
-    (let [ns (if (symbol? ns) (find-ns ns) ns)]
+    (let [current-ns *ns*
+	  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*))