summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Solano Gómez <clojure@sattvik.com>2010-05-05 22:12:28 -0500
committerStuart Halloway <stu@thinkrelevance.com>2010-05-07 18:45:29 -0400
commit3f8be323e5b1c8ca3b51e946930174b90284ace7 (patch)
treeaf63492e887d933cb136b7fdc0a0eb3c3a4a8c73
parent8b1ea574a61b105b9cbe9ffa3b05785cec0b3bc0 (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.clj8
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"