Posted to tcl by bairui at Thu Apr 27 02:40:52 GMT 2017view raw

  1.  
  2. for {set i 0} {$i < 1000} {incr i} {
  3. puts "Test run #$i"
  4. if {[catch { exec tclsh mjanssen_thread_example.tcl } result]} {
  5. puts stderr "Error: $result"
  6. exit 1
  7. } else {
  8. puts $result
  9. }
  10. }
  11.