test for #358

Signed-off-by: STUART HALLOWAY <stuart@STUART-HALLOWAYs-MacBook-Pro.local>
arthuredelstein · May 27, 2010 · 7304976 · 7304976
1 parent 7700d66
commit 7304976
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/test/clojure/test_clojure/transients.clj b/test/clojure/test_clojure/transients.clj
@@ -0,0 +1,10 @@
+(ns clojure.test-clojure.transients
+  (:use clojure.test))
+
+(deftest popping-off
+  (testing "across a node boundary"
+    (let [v (-> (range 33) vec)]
+      (is (= (subvec v 0 31) (-> v transient pop! pop! persistent!)))))
+  (testing "off the end"
+    (is (thrown-with-msg? IllegalStateException #"Can't pop empty vector"
+          (-> [] transient pop!)))))