diff options
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 |