diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-06-24 00:01:11 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-06-24 00:01:11 -0400 |
| commit | 0930bfdf3361f76d773149b5bd7170c435fe5f20 (patch) | |
| tree | 8445bed1696c397a1e56f3e50f8f356ba3869dd6 /src/clojure/contrib/test_contrib/fnmap.clj | |
| parent | 85c4905b3ccb94dfdb2272e92de6ba1051e304e3 (diff) | |
gtic: updated contrib tests to use new template syntax
Diffstat (limited to 'src/clojure/contrib/test_contrib/fnmap.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/fnmap.clj | 6 |
1 files changed, 3 insertions, 3 deletions
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 |