From 9ff4f1fbe14803ba7f0455cbeafc2d4ab50165d5 Mon Sep 17 00:00:00 2001 From: Chris Gray Date: Tue, 10 Jan 2012 12:09:53 -0700 Subject: [PATCH] Failing test --- src/test/clojure/clojure/core/match/test/core.clj | 8 ++++++++ 1 files changed, 8 insertions(+), 0 deletions(-) diff --git a/src/test/clojure/clojure/core/match/test/core.clj b/src/test/clojure/clojure/core/match/test/core.clj index bbcedce..2d7dd03 100644 --- a/src/test/clojure/clojure/core/match/test/core.clj +++ b/src/test/clojure/clojure/core/match/test/core.clj @@ -187,6 +187,14 @@ :else [])) 9))) +(deftest guard-pattern-match-4 + (is (= (match [1 2] + [(a :when #(odd? %)) (b :when #(odd? %))] :a1 + [(a :when #(odd? %)) _] :a2 + [_ (b :when #(even? %))] :a3 + :else :a4) + :a2))) + ;; use ':when pattern to match literal :when (as opposed to guard syntax) (deftest literal-when-match-1 (is (= (let [x :as y :when z 1] -- 1.7.7.3