Differences From Artifact [73b8e125e5]:

• File tests/event.test — part of check-in [d9a732f301] at 2017-07-03 13:30:36 on branch sebres-8-5-event-perf-branch — "after at" set factor to 1000000 (seconds), test cases fixed (user: sebres size: 32804)

To Artifact [e0fccb433b]:

• File tests/event.test — part of check-in [ca89c4e5a7] at 2019-03-08 04:05:12 on branch sebres-8-5-event-perf-branch — merge sebres-8-5-timerate (prepare for consolidation with 8.5) (user: sebres size: 32804) [more...]

531
532
533
534
535
536
537
538
539
540
541
542
543
544
545

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}

|

531
532
533
534
535
536
537
538
539
540
541
542
543
544
545

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}