1The interp-36.7 patch has race conditions and is missing cleanup.  This patch by
2a Tcl maintainer should improve matters.
3
4Upstream-Status: Pending
5Signed-off-by: Ross Burton <ross.burton@arm.com>
6
7diff --git a/tests/interp.test b/tests/interp.test
8index d7424847f..fc90990f3 100644
9--- a/tests/interp.test
10+++ b/tests/interp.test
11@@ -3595,17 +3595,18 @@ test interp-36.7 {ChildBgerror sets error handler of child [1999035]} -setup {
12         variable result
13         set result [lindex $args 0]
14     }
15+    set tout [after 5000 {set result timeout}]
16 } -body {
17     child eval {
18         variable done {}
19         after 0 error foo
20-        after 10 [list ::set [namespace which -variable done] {}]
21-        vwait [namespace which -variable done]
22     }
23+    vwait result
24     set result
25 } -cleanup {
26+    after cancel $tout
27     variable result {}
28-    unset -nocomplain result
29+    unset -nocomplain result tout
30     interp delete child
31 } -result foo
32
33