Browse files

Tests were taking too little time

  • Loading branch information...
1 parent 5257fa3 commit 728bca1f1cdd5c723ce4602b4d45f533c7285be1 @chrismgray committed Mar 29, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/persistent_data_structures/hash_map.clj
View
4 src/persistent_data_structures/hash_map.clj
@@ -126,11 +126,11 @@
(.containsKey (assoc p 1 2) 1)
(get (assoc p 1 2) 1)
(let [q (apply assoc (empty-phash-map) (range 1600))]
- (time (dotimes [n 100]
+ (time (dotimes [n 10000]
(get q (rand-int 800)))))
(let [q (apply assoc {} (range 1600))]
- (time (dotimes [n 100]
+ (time (dotimes [n 10000]
(get q (rand-int 800)))))
(time (dotimes [n 100]
(apply assoc (empty-phash-map) (range 200))))

0 comments on commit 728bca1

Please sign in to comment.