From 53caec96320917139d44ad4ba25f52ac61cc4c23 Mon Sep 17 00:00:00 2001 From: Stuart Sierra Date: Thu, 12 Aug 2010 01:38:47 +0000 Subject: Comment out tests in macro-utils with circular dependency on monads --- .../src/test/clojure/clojure/contrib/test_macro_utils.clj | 9 ++++----- 1 file 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)) -- cgit v1.2.3-18-g5258