diff options
| author | Stuart Sierra <pair@thinkrelevance.com> | 2010-08-12 01:38:47 +0000 |
|---|---|---|
| committer | Stuart Sierra <pair@thinkrelevance.com> | 2010-08-12 01:38:47 +0000 |
| commit | 53caec96320917139d44ad4ba25f52ac61cc4c23 (patch) | |
| tree | 875226e0d39e6d4be07ae354ab7f020500907588 | |
| parent | fd185b68492657dcb6b1d15ef18fc67becf8450c (diff) | |
Comment out tests in macro-utils with circular dependency on monads
| -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)) |