diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-12-19 22:50:03 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-12-19 22:50:03 (GMT) |
| commit | 05f8ab77f8dcabb1f3ad9394d48bc670277885e0 (patch) | |
| tree | 467e89f0b026ad95e7d0e6919570f18df328abdb /tests/spinbox.test | |
| parent | b0403585584cc0e6e4518f2cd03ac46fa21db2f9 (diff) | |
| parent | 545a4416a85546b7b713c06ed8ca42c6932b9887 (diff) | |
| download | tk-05f8ab77f8dcabb1f3ad9394d48bc670277885e0.zip tk-05f8ab77f8dcabb1f3ad9394d48bc670277885e0.tar.gz tk-05f8ab77f8dcabb1f3ad9394d48bc670277885e0.tar.bz2 | |
Fixed bug [1700065] - error in trace proc on textvariable doesn't trigger bgerror
Diffstat (limited to 'tests/spinbox.test')
| -rw-r--r-- | tests/spinbox.test | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/spinbox.test b/tests/spinbox.test index b8170c5..f101640 100644 --- a/tests/spinbox.test +++ b/tests/spinbox.test @@ -3790,6 +3790,23 @@ test spinbox-23.1 {selection present while disabled, bug 637828} -body { destroy .e } -result {1 1 345} +test spinbox-24.1 {error in trace proc attached to the textvariable} -setup { + destroy .s +} -body { + trace variable myvar w traceit + proc traceit args {error "Intentional error here!"} + spinbox .s -textvariable myvar -from 1 -to 10 + catch {.s set mystring} result1 + catch {.s insert 0 mystring} result2 + catch {.s delete 0} result3 + catch {.s invoke buttonup} result4 + list $result1 $result2 $result3 $result4 +} -cleanup { + destroy .s +} -result [list {can't set "myvar": Intentional error here!} \ + {can't set "myvar": Intentional error here!} \ + {can't set "myvar": Intentional error here!} \ + {can't set "myvar": Intentional error here!}] # Collected comments about lacks from the test # XXX Still need to write tests for SpinboxBlinkProc, SpinboxFocusProc, |