diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-06-02 17:28:54 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-06-03 21:26:20 -0400 |
| commit | 3353eeafb5aab2e465fb953f3f50ac7bc60c2e0a (patch) | |
| tree | d43605d78b84822dcdc28c020402ef2ddc4162b6 | |
| parent | 673f4c70a82b6af9379aa7b7e8188c8b809fed51 (diff) | |
test for #361: merge-with for defrecord
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | test/clojure/test_clojure/protocols.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/clojure/test_clojure/protocols.clj b/test/clojure/test_clojure/protocols.clj index b0f48453..78a62dae 100644 --- a/test/clojure/test_clojure/protocols.clj +++ b/test/clojure/test_clojure/protocols.clj @@ -187,7 +187,8 @@ (deftest defrecord-acts-like-a-map (let [rec (r 1 2)] - (is (= (r 1 3 {} {:c 4}) (merge rec {:b 3 :c 4}))))) + (is (= (r 1 3 {} {:c 4}) (merge rec {:b 3 :c 4}))) + (is (= {:a 11 :b 2 :c 10} (merge-with + rec {:a 10 :c 10}))))) (deftest defrecord-interfaces-test (testing "java.util.Map" |