old/threadpool/test.icl

   1 module test
   2
   3 import iTasks
   4 import iTasks.Extensions.DateTime
   5
   6 Start w = startEngine (
   7                 allTasksInPool 3 (repeat task)
   8         >&> viewSharedInformation "result" []) w
   9
  10 task :: Task Int
  11 task = enterInformation "int" [] >>= treturn