Posted to tcl by sebres at Mon Jul 12 15:04:16 GMT 2021view pretty
diff --git "a/tests/interp.test" "b/tests/interp.test" --- "a/tests/interp.test" +++ "b/tests/interp.test" @@ -3595,17 +3595,18 @@ test interp-36.7 {SlaveBgerror sets error handler of slave [1999035]} -setup { variable result set result [lindex $args 0] } + set tout [after 5000 {set result timeout}] } -body { slave eval { variable done {} after 0 error foo - after 10 [list ::set [namespace which -variable done] {}] - vwait [namespace which -variable done] } + vwait result set result } -cleanup { + after cancel $tout variable result {} - unset -nocomplain result + unset -nocomplain result tout interp delete slave } -result foo