summary refs log tree commit diff stats
path: root/tests/parallel/t5000.nim
diff options
context:
space:
mode:
Diffstat (limited to 'tests/parallel/t5000.nim')
-rw-r--r--tests/parallel/t5000.nim25
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()