Differences From Artifact [1a7847f201]:

• File tests/event.test — part of check-in [e1f890de4b] at 2016-06-16 17:06:25 on branch core-8-5-branch — [16828b3744] [vwait] *must* successfully undo its variable trace, or else it risks corrupting memory. Namespace teardown complexities were giving the traces an opportunity to survive. Added another (arguably better) Tcl_UntraceVar() call to be sure we avoid this problem. (user: dgp size: 26029) [more...]

To Artifact [066bae9e3d]:

• File tests/event.test — part of check-in [bdc8413143] at 2018-12-20 08:06:20 on branch core-8-5-branch — (cherry-pick) relax the timings of 2 tests, which incidentally fail on Travis CI. Also backport a few new test-cases, adapted to match pre-TIP-502 behavior. (user: jan.nijtmans size: 26029) [more...]

500
501
502
503
504
505
506
507
508
509
510
511
512
513
514

test event-11.4 {Tcl_VwaitCmd procedure} {} {
    foreach i [after info] {
	after cancel $i
    }
    after 10; update; # On Mac make sure update won't take long
    after 100 {set x x-done}
    after 200 {set y y-done}
    after 300 {set z z-done}
    after idle {set q q-done}
    set x before
    set y before
    set z before
    set q before
    list [vwait y] $x $y $z $q
} {{} x-done y-done before q-done}

|

500
501
502
503
504
505
506
507
508
509
510
511
512
513
514

test event-11.4 {Tcl_VwaitCmd procedure} {} {
    foreach i [after info] {
	after cancel $i
    }
    after 10; update; # On Mac make sure update won't take long
    after 100 {set x x-done}
    after 200 {set y y-done}
    after 400 {set z z-done}
    after idle {set q q-done}
    set x before
    set y before
    set z before
    set q before
    list [vwait y] $x $y $z $q
} {{} x-done y-done before q-done}