Branch: Tag:

2002-12-18

2002-12-18 20:45:39 by Martin Stjernholm <mast@lysator.liu.se>

Added test with Process.wait used from several threads.

Rev: src/testsuite.in:1.579

1: - test_true([["$Id: testsuite.in,v 1.578 2002/12/12 17:14:54 nilsson Exp $"]]); + test_true([["$Id: testsuite.in,v 1.579 2002/12/18 20:45:39 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
9279:      return Fnord()->start()->wait()-({ -1 });   ]],[[ ({}) ]]) +  + test_do([[ +  object proc = Process.create_process (({"/bin/sleep", "99999"})); +  array threads = allocate (10, Thread.thread_create) ( +  lambda (object proc) {proc->wait();}, proc); +  sleep (1); +  proc->kill (9); +  return threads->wait() - ({-1}); + ]], ({}))   ]])      test_do([[