From 0930bfdf3361f76d773149b5bd7170c435fe5f20 Mon Sep 17 00:00:00 2001 From: Stuart Halloway Date: Wed, 24 Jun 2009 00:01:11 -0400 Subject: gtic: updated contrib tests to use new template syntax --- src/clojure/contrib/test_contrib/fnmap.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/clojure/contrib/test_contrib/fnmap.clj') diff --git a/src/clojure/contrib/test_contrib/fnmap.clj b/src/clojure/contrib/test_contrib/fnmap.clj index ccd7a54a..8d833360 100644 --- a/src/clojure/contrib/test_contrib/fnmap.clj +++ b/src/clojure/contrib/test_contrib/fnmap.clj @@ -4,16 +4,16 @@ (deftest acts-like-map (let [m1 (fnmap get assoc :key1 1 :key2 2)] - (are (= _2 (get m1 _1)) + (are [k v] (= v (get m1 k)) :key1 1 :key2 2 :nonexistent-key nil) - (are (= _2 (_1 m1)) + (are [k v] (= v (k m1)) :key1 1 :key2 2 :nonexistent-key nil) (let [m2 (assoc m1 :key3 3 :key4 4)] - (are (= _2 (get m2 _1)) + (are [k v] (= v (get m2 k)) :key1 1 :key2 2 :key3 3 -- cgit v1.2.3-18-g5258