test-clojure: added parallel.clj for pmap, pcalls, etc.;

special.clj - note about letfn

5 files changed, 29 insertions, 8 deletions

diff --git a/src/clojure/contrib/load_all.clj b/src/clojure/contrib/load_all.clj
index 2137ad2c..eab7f060 100644
--- a/src/clojure/contrib/load_all.clj
+++ b/src/clojure/contrib/load_all.clj
@@ -95,6 +95,7 @@ test-clojure.multimethods
 test-clojure.ns-libs
 test-clojure.numbers
 test-clojure.other-functions
+test-clojure.parallel
 test-clojure.predicates
 test-clojure.printer
 test-clojure.reader
diff --git a/src/clojure/contrib/test_clojure.clj b/src/clojure/contrib/test_clojure.clj
index c241ea26..90a650ff 100644
--- a/src/clojure/contrib/test_clojure.clj
+++ b/src/clojure/contrib/test_clojure.clj
@@ -36,6 +36,7 @@
       :refs
       :agents
       :atoms
+      :parallel
       :java-interop
       ;; libraries
       :clojure-main
diff --git a/src/clojure/contrib/test_clojure/parallel.clj b/src/clojure/contrib/test_clojure/parallel.clj
new file mode 100644
index 00000000..855e507b
--- /dev/null
+++ b/src/clojure/contrib/test_clojure/parallel.clj
@@ -0,0 +1,26 @@
+;;  Copyright (c) Frantisek Sodomka. All rights reserved.  The use and
+;;  distribution terms for this software are covered by the Eclipse Public
+;;  License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which can
+;;  be found in the file epl-v10.html at the root of this distribution.  By
+;;  using this software in any fashion, you are agreeing to be bound by the
+;;  terms of this license.  You must not remove this notice, or any other,
+;;  from this software.
+
+(ns clojure.contrib.test-clojure.parallel
+  (:use clojure.contrib.test-is))
+
+;; !! Tests for the parallel library will be in a separate file clojure_parallel.clj !!
+
+; future-call
+; future
+; pmap
+; pcalls
+; pvalues
+
+
+;; pmap
+;;
+(deftest pmap-does-its-thing
+  ;; regression fixed in r1218; was OutOfMemoryError
+  (is (= '(1) (pmap inc [0]))))
+
diff --git a/src/clojure/contrib/test_clojure/sequences.clj b/src/clojure/contrib/test_clojure/sequences.clj
index ab7c6d31..72251295 100644
--- a/src/clojure/contrib/test_clojure/sequences.clj
+++ b/src/clojure/contrib/test_clojure/sequences.clj
@@ -985,10 +985,3 @@
 
 ; TODO: some
 
-
-;; pmap
-;;
-(deftest pmap-does-its-thing
-  ;; regression fixed in r1218; was OutOfMemoryError
-  (is (= '(1) (pmap inc [0]))))
-
diff --git a/src/clojure/contrib/test_clojure/special.clj b/src/clojure/contrib/test_clojure/special.clj
index 81138573..dcb6a561 100644
--- a/src/clojure/contrib/test_clojure/special.clj
+++ b/src/clojure/contrib/test_clojure/special.clj
@@ -14,7 +14,7 @@
 
 ; http://clojure.org/special_forms
 
-; let
+; let, letfn
 ; quote
 ; var
 ; fn