diff options
author | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-05-06 16:26:54 +0000 |
---|---|---|
committer | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-05-06 16:26:54 +0000 |
commit | e17240ed0a48563a6b5131ff22a2eecba3eca47f (patch) | |
tree | bb15cef05c800c0b19a287e4e48f81eb6c00a281 /src/clojure/contrib/test_is.clj | |
parent | eec8b11cbbd53f94e510161998e54992fccb0de8 (diff) |
test_is: undo change from r761 and replace it by a fixture in test-contrib.macro-utils
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*)) |