diff options
| author | Frantisek Sodomka <fsodomka@gmail.com> | 2009-02-15 21:37:09 +0000 |
|---|---|---|
| committer | Frantisek Sodomka <fsodomka@gmail.com> | 2009-02-15 21:37:09 +0000 |
| commit | 5107e9d5b03204c2a60b47a669821939de7c07ac (patch) | |
| tree | aaea7f59a21cdd15c99c5ccc8ed64fda6a73e57e /src/clojure/contrib/test_clojure/sequences.clj | |
| parent | eb1979100191ae02cd11c29b162545d6ff696e67 (diff) | |
test data_structures: hash-set; sequences: zipmap
Diffstat (limited to 'src/clojure/contrib/test_clojure/sequences.clj')
| -rw-r--r-- | src/clojure/contrib/test_clojure/sequences.clj | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_clojure/sequences.clj b/src/clojure/contrib/test_clojure/sequences.clj index ffd49fcb..78953734 100644 --- a/src/clojure/contrib/test_clojure/sequences.clj +++ b/src/clojure/contrib/test_clojure/sequences.clj @@ -361,6 +361,18 @@ (interleave [] []) nil )) +(deftest test-zipmap + (are (= _1 _2) + (zipmap [:a :b] [1 2]) {:a 1 :b 2} + + (zipmap [:a] [1 2]) {:a 1} + (zipmap [:a :b] [1]) {:a 1} + + (zipmap [] [1 2]) {} + (zipmap [:a :b] []) {} + (zipmap [] []) {} )) + + (deftest test-concat (are (= _1 _2) (concat) nil |