src/clojure/contrib/test_contrib/seq_utils_test.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(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))
       [1] nil [0 nil 5]
       [1] nil? [0 nil 5]
       () string? [:a :b :c]
       [2] string? [:a :b "c"]
       () :d [:a :b :c]
       [0 2] :d [:d :a :d :a]))