diff options
Diffstat (limited to 'tests/parallel/t5000.nim')
-rw-r--r-- | tests/parallel/t5000.nim | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/parallel/t5000.nim b/tests/parallel/t5000.nim new file mode 100644 index 000000000..1dd47a61c --- /dev/null +++ b/tests/parallel/t5000.nim @@ -0,0 +1,25 @@ +discard """ + output: '''50005000''' + disabled: "true" +""" + +# XXX this seems to deadlock certain Linux machines + +import threadpool, strutils + +proc foo(x: int): string = $x + +proc main() = + var a = newSeq[int]() + for i in 1..10000: + add(a, i) + + var s = 0 + for i in a: + s += parseInt(^spawn(foo(i))) + echo s + +setMaxPoolSize 2 + +parallel: + spawn main() |