diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2009-08-25 21:52:48 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2009-08-25 21:52:48 -0400 |
| commit | c3cc2ea4356abc6c9e3faf43c862e3d6df3f28de (patch) | |
| tree | 4517577a06fefe89b2a343198b8e93cde3be48d3 /src/clojure/contrib/test_contrib/seq_utils_test.clj | |
| parent | addc9c1460d56074962d85a99685573319a3c496 (diff) | |
| parent | f191c6be636ad682343279280fbe02fb2a956a03 (diff) | |
Merge branch 'expect'
Diffstat (limited to 'src/clojure/contrib/test_contrib/seq_utils_test.clj')
| -rw-r--r-- | src/clojure/contrib/test_contrib/seq_utils_test.clj | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_contrib/seq_utils_test.clj b/src/clojure/contrib/test_contrib/seq_utils_test.clj new file mode 100644 index 00000000..f8815041 --- /dev/null +++ b/src/clojure/contrib/test_contrib/seq_utils_test.clj @@ -0,0 +1,11 @@ +(ns clojure.contrib.test-contrib.seq-utils-test + (:use clojure.test + clojure.contrib.seq-utils)) + + +(deftest test-positions + (are [expected pred coll] (= expected (positions pred coll)) + [2] string? [:a :b "c"] + () :d [:a :b :c] + [0 2] #{:d} [:d :a :d :a])) +
\ No newline at end of file |