diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-07-14 13:41:16 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-07-27 17:03:57 -0400 |
| commit | 9929b83d3a2b65bc26cbd8f433e25b1671ab583a (patch) | |
| tree | a7e8129dc7d120ddb303b0446eb200044f9dd025 /test | |
| parent | f314991069b6c34ca0575695b6b39d732eea47fb (diff) | |
fix degenerate defrecords, #402
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'test')
| -rw-r--r-- | test/clojure/test_clojure/protocols.clj | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/clojure/test_clojure/protocols.clj b/test/clojure/test_clojure/protocols.clj index 257a73d8..d8d2ac7f 100644 --- a/test/clojure/test_clojure/protocols.clj +++ b/test/clojure/test_clojure/protocols.clj @@ -192,6 +192,11 @@ (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 degenerate-defrecord-test + (let [empty (EmptyRecord.)] + (is (nil? (seq empty))) + (is (not (.containsValue empty :a))))) + (deftest defrecord-interfaces-test (testing "java.util.Map" (let [rec (r 1 2)] |