diff options
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 { |