2008-03-01 17:00:45 -05:00
|
|
|
IN: concurrency.combinators.tests
|
2008-02-18 17:20:18 -05:00
|
|
|
USING: concurrency.combinators tools.test random kernel math
|
2008-02-22 00:47:06 -05:00
|
|
|
concurrency.mailboxes threads sequences ;
|
2008-02-18 17:20:18 -05:00
|
|
|
|
|
|
|
|
[ [ drop ] parallel-each ] must-infer
|
|
|
|
|
[ [ ] parallel-map ] must-infer
|
|
|
|
|
[ [ ] parallel-subset ] must-infer
|
|
|
|
|
|
|
|
|
|
[ { 1 4 9 } ] [ { 1 2 3 } [ sq ] parallel-map ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 1 4 9 } ] [ { 1 2 3 } [ 1000 random sleep sq ] parallel-map ] unit-test
|
|
|
|
|
|
|
|
|
|
[ { 1 2 3 } [ dup 2 mod 0 = [ "Even" throw ] when ] parallel-map ]
|
2008-02-27 20:24:24 -05:00
|
|
|
[ delegate "Even" = ] must-fail-with
|
2008-02-18 17:20:18 -05:00
|
|
|
|
|
|
|
|
[ V{ 0 3 6 9 } ]
|
|
|
|
|
[ 10 [ 3 mod zero? ] parallel-subset ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 10 ]
|
|
|
|
|
[
|
|
|
|
|
V{ } clone
|
|
|
|
|
10 over [ push ] curry parallel-each
|
|
|
|
|
length
|
|
|
|
|
] unit-test
|
