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