up

[clean-tests.git] / threadpool / test.icl

diff --git a/threadpool/test.icl b/threadpool/test.icl
new file mode 100644 (file)
index 0000000..b37123a
--- /dev/null
+++ b/threadpool/test.icl
@@ -0,0 +1,11 @@
+module test
+
+import iTasks
+import iTasks.Extensions.DateTime
+
+Start w = startEngine (
+               allTasksInPool 3 (repeat task)
+       >&> viewSharedInformation "result" []) w
+
+task :: Task Int
+task = enterInformation "int" [] >>= treturn