1 2for {set runs 0} {$runs < 200} {incr runs} { 3 set procs [list] 4 5 for {set i 0} {$i < 50} {incr i} { 6 lappend procs [exec /bin/ls &] 7 lappend procs [exec [info nameofexecutable] ./create_destroy_child.tcl &] 8 #Pick one at random to kill. 9 set randi [expr {int(rand() * [llength $procs])}] 10 set randproc [lindex $procs $i] 11 set procs [lreplace $procs $i $i] 12 catch {exec kill $randproc} 13 } 14 15 foreach p $procs { 16 catch {exec kill $p} 17 } 18} 19