test code of Io Language.

test-actor.io

sender := Object clone
sender start := method(f, t, r,
  for(i, f, t, r post(i); yield; wait(Random value(2)))
)

receiver := Object clone
receiver post := method(val,
  val println
)

s1 := sender clone
s2 := sender clone
rv := receiver clone

s1 @@start(1, 10, rv); s2 @@start(100, 110, rv)

while(Scheduler yieldingCoros size > 1, yield)

"end." println