Posted to tcl by sebres at Mon Jul 12 15:04:16 GMT 2021view raw

  1. diff --git "a/tests/interp.test" "b/tests/interp.test"
  2. --- "a/tests/interp.test"
  3. +++ "b/tests/interp.test"
  4. @@ -3595,17 +3595,18 @@ test interp-36.7 {SlaveBgerror sets error handler of slave [1999035]} -setup {
  5. variable result
  6. set result [lindex $args 0]
  7. }
  8. + set tout [after 5000 {set result timeout}]
  9. } -body {
  10. slave eval {
  11. variable done {}
  12. after 0 error foo
  13. - after 10 [list ::set [namespace which -variable done] {}]
  14. - vwait [namespace which -variable done]
  15. }
  16. + vwait result
  17. set result
  18. } -cleanup {
  19. + after cancel $tout
  20. variable result {}
  21. - unset -nocomplain result
  22. + unset -nocomplain result tout
  23. interp delete slave
  24. } -result foo
  25.  
  26.