diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-10 08:10:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-10 08:10:37 (GMT) |
| commit | 39447d34159fdbb309e60c257463f4e301a4357b (patch) | |
| tree | 8364dbe8ff125e9aceed0c1f640a9497c5c03dbb /tests/scale.test | |
| parent | cbaffee229fcb25874c1a203cce2c365bfd7626e (diff) | |
| parent | 56de2058b0be5410f7b9f6c913c1a70b418137a6 (diff) | |
| download | tk-39447d34159fdbb309e60c257463f4e301a4357b.zip tk-39447d34159fdbb309e60c257463f4e301a4357b.tar.gz tk-39447d34159fdbb309e60c257463f4e301a4357b.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/scale.test')
| -rw-r--r-- | tests/scale.test | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/tests/scale.test b/tests/scale.test index adc9c07..34f2cd9 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1478,10 +1478,12 @@ test scale-20.4 {Bug [2262543fff] - Scale widget unexpectedly fires command call scale .s -from 1 -to 50 -command {set commandedVar} .s set 10 pack .s - update ; # -command callback shall fire + set timeout [after 500 {set $commandedVar "timeout"}] + vwait commandedVar ; # -command callback shall fire set res [list [.s get] $commandedVar] } -cleanup { destroy .s + after cancel $timeout } -result {10 10} test scale-20.5 {Bug [2262543fff] - Scale widget unexpectedly fires command callback, case 5} -setup { catch {destroy .s} @@ -1506,10 +1508,12 @@ test scale-20.6 {Bug [2262543fff] - Scale widget unexpectedly fires command call pack .s .s configure -command {set commandedVar} .s set 10 - update ; # -command callback shall fire + set timeout [after 500 {set $commandedVar "timeout"}] + vwait commandedVar ; # -command callback shall fire set res [list [.s get] $commandedVar] } -cleanup { destroy .s + after cancel $timeout } -result {10 10} test scale-20.7 {Bug [2262543fff] - Scale widget unexpectedly fires command callback, case 7} -setup { catch {destroy .s} @@ -1519,10 +1523,12 @@ test scale-20.7 {Bug [2262543fff] - Scale widget unexpectedly fires command call scale .s -from 1 -to 50 -command {set commandedVar} pack .s .s set 10 - update ; # -command callback shall fire + set timeout [after 500 {set $commandedVar "timeout"}] + vwait commandedVar ; # -command callback shall fire set res [list [.s get] $commandedVar] } -cleanup { destroy .s + after cancel $timeout } -result {10 10} test scale-20.8 {Bug [2262543fff] - Scale widget unexpectedly fires command callback, case 8} -setup { catch {destroy .s} @@ -1533,10 +1539,12 @@ test scale-20.8 {Bug [2262543fff] - Scale widget unexpectedly fires command call scale .s -from 1 -to 50 -variable scaleVar -command {set commandedVar} pack .s .s set 10 - update ; # -command callback shall fire + set timeout [after 500 {set $commandedVar "timeout"}] + vwait commandedVar ; # -command callback shall fire set res [list [.s get] $commandedVar] } -cleanup { destroy .s + after cancel $timeout } -result {10 10} test scale-21.1 {Bug [55b95f578a] - Associating variable with bignum value with scale crashes it} -setup { |