1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
(ns clojure.test-clojure.transients
(:use clojure.test))
(deftest popping-off
(testing "across a node boundary"
(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!))))
(testing "copying array from a non-editable when put in tail position")
(is (= 31 (let [pv (vec (range 34))]
(-> pv transient pop! pop! pop! (conj! 42))
(nth pv 31)))))
(defn- hash-obj [hash]
(reify Object (hashCode [this] hash)))
(deftest dissocing
(testing "dissocing colliding keys"
(is (= [0 {}] (let [ks (concat (range 7) [(hash-obj 42) (hash-obj 42)])
m (zipmap ks ks)
dm (persistent! (reduce dissoc! (transient m) (keys m)))]
[(count dm) dm])))))
(deftest test-disj!
(testing "disjoin multiple items in one call"
(is (= #{5 20} (-> #{5 10 15 20} transient (disj! 10 15) persistent!)))))
(deftest empty-transient
(is (= false (.contains (transient #{}) :bogus-key))))
(deftest persistent-assoc-on-collision
(testing "Persistent assoc on a collision node which underwent a transient dissoc"
(let [a (reify Object (hashCode [_] 42))
b (reify Object (hashCode [_] 42))]
(is (= (-> #{a b} transient (disj! a) persistent! (conj a))
(-> #{a b} transient (disj! a) persistent! (conj a)))))))
|
