test_is.clj: throw meaningful exception if namespace does not exist

1 files changed, 7 insertions, 7 deletions

diff --git a/src/clojure/contrib/test_is.clj b/src/clojure/contrib/test_is.clj
index a7b2604b..cce68275 100644
--- a/src/clojure/contrib/test_is.clj
+++ b/src/clojure/contrib/test_is.clj
@@ -892,14 +892,14 @@ 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)]
-      (report {:type :begin-test-ns, :ns ns})
-      ;; If ns has a test-ns-hook function, call that:
-      (if-let [v (find-var (symbol (str (ns-name ns)) "test-ns-hook"))]
+    (let [ns-obj (the-ns ns)]
+      (report {:type :begin-test-ns, :ns ns-obj})
+      ;; If the namespace has a test-ns-hook function, call that:
+      (if-let [v (find-var (symbol (str (ns-name ns-obj)) "test-ns-hook"))]
 	((var-get v))
-        ;; Otherwise, just test every var in the ns.
-        (test-all-vars ns))
-      (report {:type :end-test-ns, :ns ns}))
+        ;; Otherwise, just test every var in the namespace.
+        (test-all-vars ns-obj))
+      (report {:type :end-test-ns, :ns ns-obj}))
     @*report-counters*))