diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-06-30 22:09:30 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-07-09 18:04:53 -0400 |
| commit | 07906aab47bdda48d11b56ef0395adb7bf13db43 (patch) | |
| tree | 7da85df61beb5f4fcdf9be0506328533b61d534c | |
| parent | a07040032714a2f88c23b76c6484c1b8acd462b0 (diff) | |
test for #393
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | test/clojure/test_clojure/protocols.clj | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/protocols.clj b/test/clojure/test_clojure/protocols.clj index 016f9aa2..257a73d8 100644 --- a/test/clojure/test_clojure/protocols.clj +++ b/test/clojure/test_clojure/protocols.clj @@ -11,6 +11,7 @@ (ns clojure.test-clojure.protocols (:use clojure.test clojure.test-clojure.protocols.examples) (:require [clojure.test-clojure.protocols.more-examples :as other] + [clojure.set :as set] clojure.test-clojure.helpers) (:import [clojure.test_clojure.protocols.examples ExampleInterface])) @@ -188,6 +189,7 @@ (deftest defrecord-acts-like-a-map (let [rec (r 1 2)] (is (= (r 1 3 {} {:c 4}) (merge rec {:b 3 :c 4}))) + (is (= {:foo 1 :b 2} (set/rename-keys rec {:a :foo}))) (is (= {:a 11 :b 2 :c 10} (merge-with + rec {:a 10 :c 10}))))) (deftest defrecord-interfaces-test |