diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj b/modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj index 8b603a67..448898fa 100644 --- a/modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj +++ b/modules/macro-utils/src/test/clojure/clojure/contrib/test_macro_utils.clj @@ -15,9 +15,7 @@ (:use [clojure.test :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)])) + mexpand-1 mexpand mexpand-all)])) (use-fixtures :each (fn [f] (binding [*ns* (the-ns 'clojure.contrib.test-macro-utils)] @@ -49,13 +47,14 @@ '(symbol-macrolet [x foo z bar] (fn f ([x y] [x y z]) ([x y z] [x y z])))) '(do (fn* f ([x y] [x y bar]) ([x y z] [x y z]))))) - (is (= (nth (second (macroexpand-1 + (comment + (is (= (nth (second (macroexpand-1 '(symbol-macrolet [x xx y yy z zz] (domonad m [a x b y x z] [a b x z])))) 2) '(do (m-bind xx (fn* ([a] (m-bind yy (fn* ([b] (m-bind zz (fn* ([x] - (m-result [a b x zz])))))))))))))) + (m-result [a b x zz]))))))))))))))) (deftest symbol-test (defsymbolmacro sum-2-3 (plus 2 3)) |