diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-03 17:42:22 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-03 17:42:22 -0400 |
| commit | 48b81e07256c697c23a1aff896596300e7d0115b (patch) | |
| tree | 8e5cb77cde93c05f33b2e7c3afd4a918d433f7ce /src/test/clojure/clojure/contrib | |
| parent | eb7021af8260c17e29d2653a3de982fb48e1e6c8 (diff) | |
put includes? back into the seq namespaces
- seq-contains? is dead in clojure
- includes? is deprecated, but no need to gratuitously break people
Diffstat (limited to 'src/test/clojure/clojure/contrib')
| -rw-r--r-- | src/test/clojure/clojure/contrib/test_seq.clj | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/test/clojure/clojure/contrib/test_seq.clj b/src/test/clojure/clojure/contrib/test_seq.clj index 144f7ced..2a7b5ef7 100644 --- a/src/test/clojure/clojure/contrib/test_seq.clj +++ b/src/test/clojure/clojure/contrib/test_seq.clj @@ -72,3 +72,12 @@ (deftest test-find-first (is (= (find-first even? [1 2 3 4 5]) 2)) (is (= (find-first even? '(1 2 3 4 5)) 2))) + +(deftest test-includes + (are [coll k] (false? (includes? coll k)) + [1 2 3] 0 + [] nil + [:a :b] :c) + (are [coll k] (true? (includes? coll k)) + [1 2 3] 1 + [:a :b] :b)) |