diff options
author | Daniel Solano Gómez <clojure@sattvik.com> | 2010-05-05 22:12:28 -0500 |
---|---|---|
committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-07 18:45:29 -0400 |
commit | 3f8be323e5b1c8ca3b51e946930174b90284ace7 (patch) | |
tree | af63492e887d933cb136b7fdc0a0eb3c3a4a8c73 | |
parent | 8b1ea574a61b105b9cbe9ffa3b05785cec0b3bc0 (diff) |
Rename two vec-test to be distinct and fix upper bound on random sequence modifier, see #341
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
-rw-r--r-- | test/clojure/test_clojure/vectors.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/clojure/test_clojure/vectors.clj b/test/clojure/test_clojure/vectors.clj index 45eb98ff..fdf3ba54 100644 --- a/test/clojure/test_clojure/vectors.clj +++ b/test/clojure/test_clojure/vectors.clj @@ -79,11 +79,11 @@ vs-32 vs vs nil)))) -(deftest test-vec - (let [ nums (range 1 100) +(deftest test-vec-compare + (let [nums (range 1 100) ; randomly replaces a single item with the given value rand-replace (fn[val] - (let [r (rand-int 100)] + (let [r (rand-int 99)] (concat (take r nums) [val] (drop (inc r) nums)))) ; all num sequences in map num-seqs {:standard nums @@ -275,7 +275,7 @@ (:rand-lesser-3 long-vecs) (:rand-lesser-3 regular-vecs)))))) -(deftest test-vec +(deftest test-vec-associative (let [empty-v (vector-of :long) v (into empty-v (range 1 6))] (testing "Associative.containsKey" |