diff options
| author | culler <culler> | 2020-07-25 14:21:28 (GMT) |
|---|---|---|
| committer | culler <culler> | 2020-07-25 14:21:28 (GMT) |
| commit | 2c481a8b318d561e9941bd5152601d5957f2b443 (patch) | |
| tree | decec6024e4be9e93b710172c3e822a79dbd6f2e /tests | |
| parent | 03090437950d662b8892aaaf5238917c8bcca961 (diff) | |
| download | tk-2c481a8b318d561e9941bd5152601d5957f2b443.zip tk-2c481a8b318d561e9941bd5152601d5957f2b443.tar.gz tk-2c481a8b318d561e9941bd5152601d5957f2b443.tar.bz2 | |
Remove the race condition from listbox-21.10 the same way as for listbox-21.9
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/listbox.test | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/tests/listbox.test b/tests/listbox.test index 806bbe0..3a6c860 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -2680,21 +2680,19 @@ test listbox-21.10 {ListboxListVarProc, test hscrollbar after listvar mod} -setu } -body { catch {unset x} listbox .l -font $fixed -width 10 -xscrollcommand "record x" -listvar x - set log {} pack .l - set timeout [after 500 {lappend log timeout2}] - vwait log + update idletasks + set log {} lappend x "0000000000" - update + update idletasks lappend x "00000000000000000000" - update + update idletasks set x [list "0000000000"] - update + update idletasks set log } -cleanup { destroy .l - after cancel $timeout -} -result [list {x 0 1} {x 0 1} {x 0 0.5} {x 0 1}] +} -result [list {x 0 1} {x 0 0.5} {x 0 1}] test listbox-21.11 {ListboxListVarProc, bad list} -setup { destroy .l } -body { |