aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorscgilardi <scgilardi@gmail.com>2009-02-10 05:12:14 +0000
committerscgilardi <scgilardi@gmail.com>2009-02-10 05:12:14 +0000
commit7e3467ba25ad040c6728fb44a2e41c1715ec1660 (patch)
treef2e14b2d682211fa83f2bec9daa3b308799eb253 /src
parent5bb43b5212d3aca42322861c32e69535375548f2 (diff)
fix issue 19: test-clojure/sequences: pmap regression, vector/seq equality, from Shawn Hoover
Diffstat (limited to 'src')
-rw-r--r--src/clojure/contrib/test_clojure/sequences.clj16
1 files changed, 16 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_clojure/sequences.clj b/src/clojure/contrib/test_clojure/sequences.clj
index de58b299..83cbf4dc 100644
--- a/src/clojure/contrib/test_clojure/sequences.clj
+++ b/src/clojure/contrib/test_clojure/sequences.clj
@@ -275,3 +275,19 @@
#{1 2}
"abc"
(into-array [1 2])))
+
+
+;; pmap
+;;
+(deftest pmap-does-its-thing
+ ;; regression fixed in r1218; was OutOfMemoryError
+ (is (= '(1) (pmap inc [0]))))
+
+
+;; equality
+;;
+(deftest vectors-equal-other-seqs-by-items-equality
+ ;; regression fixed in r1208; was not equal
+ (is (= '() []))
+
+ (is (= '(1) [1])))