diff options
Diffstat (limited to 'test/clojure/test_clojure')
| -rw-r--r-- | test/clojure/test_clojure/transients.clj | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/clojure/test_clojure/transients.clj b/test/clojure/test_clojure/transients.clj index 8444e2a3..97dfed0f 100644 --- a/test/clojure/test_clojure/transients.clj +++ b/test/clojure/test_clojure/transients.clj @@ -3,8 +3,10 @@ (deftest popping-off (testing "across a node boundary" - (let [v (-> (range 33) vec)] - (is (= (subvec v 0 31) (-> v transient pop! pop! persistent!))))) + (are [n] + (let [v (-> (range n) vec)] + (= (subvec v 0 (- n 2)) (-> v transient pop! pop! persistent!))) + 33 (+ 32 (inc (* 32 32))) (+ 32 (inc (* 32 32 32))))) (testing "off the end" (is (thrown-with-msg? IllegalStateException #"Can't pop empty vector" (-> [] transient pop!))))) |