Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / concurrency / combinators / combinators-tests.factor

diff --git a/basis/concurrency/combinators/combinators-tests.factor b/basis/concurrency/combinators/combinators-tests.factor
index 3a38daed8600d16464dca5781060a718c1f24758..d3f3229171bb279522c8d01d0e6c869d62a00077 100644 (file)
--- a/basis/concurrency/combinators/combinators-tests.factor
+++ b/basis/concurrency/combinators/combinators-tests.factor
@@ -1,7 +1,7 @@
-IN: concurrency.combinators.tests\r
 USING: concurrency.combinators tools.test random kernel math \r
 concurrency.mailboxes threads sequences accessors arrays\r
 math.parser ;\r
+IN: concurrency.combinators.tests\r
 \r
 [ [ drop ] parallel-each ] must-infer\r
 { 2 0 } [ [ 2drop ] 2parallel-each ] must-infer-as\r
@@ -11,7 +11,7 @@ math.parser ;
 \r
 [ { 1 4 9 } ] [ { 1 2 3 } [ sq ] parallel-map ] unit-test\r
 \r
-[ { 1 4 9 } ] [ { 1 2 3 } [ 1000 random sleep sq ] parallel-map ] unit-test\r
+[ { 1 4 9 } ] [ { 1 2 3 } [ 1000000 random sleep sq ] parallel-map ] unit-test\r
 \r
 [ { 1 2 3 } [ dup 2 mod 0 = [ "Even" throw ] when ] parallel-map ]\r
 [ error>> "Even" = ] must-fail-with\r
@@ -49,7 +49,7 @@ math.parser ;
 \r
 [ "1a" "4b" "3c" ] [\r
     2\r
-    { [ 1- ] [ sq ] [ 1+ ] } parallel-cleave\r
+    { [ 1 - ] [ sq ] [ 1 + ] } parallel-cleave\r
     [ number>string ] 3 parallel-napply\r
     { [ "a" append ] [ "b" append ] [ "c" append ] } parallel-spread\r
 ] unit-test\r