Posted to tcl by sebres at Fri Aug 02 14:46:48 GMT 2019view pretty
# for the people searching for sporadic bug - nice possibility # to repeat something unless it failed, here: # test async.test 10 seconds long (and stop if it failed)... package require tcltest namespace import -force ::tcltest::* # tcltest::configure -match *-5.* proc ::tcltest::cleanupTestsHook {} { if {$::tcltest::numTests(Failed)} {error failed} } timerate {source tests/async.test} 10000