src/clojure/contrib/test_contrib/seq_utils_test.clj


1
2
3
4
5
6
7
8
9
10
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]))