test harness

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

for {set i 0} {$i < 1000} {incr i} {
puts "Test run #$i"
if {[catch { exec tclsh mjanssen_thread_example.tcl } result]} {
puts stderr "Error: $result"
exit 1
} else {
puts $result
}
}