Posted to tcl by sebres at Fri Aug 02 14:46:48 GMT 2019view raw

  1.  
  2. # for the people searching for sporadic bug - nice possibility
  3. # to repeat something unless it failed, here:
  4. # test async.test 10 seconds long (and stop if it failed)...
  5.  
  6. package require tcltest
  7. namespace import -force ::tcltest::*
  8. # tcltest::configure -match *-5.*
  9.  
  10. proc ::tcltest::cleanupTestsHook {} {
  11. if {$::tcltest::numTests(Failed)} {error failed}
  12. }
  13. timerate {source tests/async.test} 10000
  14.