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_contrib/macro_utils.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_contrib/macro_utils.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/macro_utils.clj | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/clojure/contrib/test_contrib/macro_utils.clj b/src/clojure/contrib/test_contrib/macro_utils.clj index 47d947a5..01c64678 100644 --- a/src/clojure/contrib/test_contrib/macro_utils.clj +++ b/src/clojure/contrib/test_contrib/macro_utils.clj @@ -12,13 +12,17 @@ ;; remove this notice, or any other, from this software. (ns clojure.contrib.test-contrib.macro-utils - (:use [clojure.contrib.test-is :only (deftest is are run-tests)] + (:use [clojure.contrib.test-is :only (deftest is are run-tests use-fixtures)] [clojure.contrib.macro-utils :only (macrolet symbol-macrolet defsymbolmacro with-symbol-macros mexpand-1 mexpand mexpand-all)] [clojure.contrib.monads :only (with-monad domonad)])) +(use-fixtures :each + (fn [f] (binding [*ns* (the-ns 'clojure.contrib.test-contrib.macro-utils)] + (f)))) + (deftest macrolet-test (is (= (macroexpand-1 '(macrolet [(foo [form] `(~form ~form))] (foo x))) @@ -60,3 +64,4 @@ (is (= (macroexpand '(macrolet [(plus [a b] `(+ ~a ~b))] (+ 1 sum-2-3))) '(do (+ 1 (clojure.core/+ 2 3))))) (ns-unmap *ns* 'sum-2-3)) + |