diff options
author | fvogel <fvogelnew1@free.fr> | 2015-12-21 12:12:06 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2015-12-21 12:12:06 (GMT) |
commit | 60480c3f5dfc5ab6e13b6e55a310e3b991879eac (patch) | |
tree | 95edbf2775f385130019de74bc06510673b84a7b /tests/spinbox.test | |
parent | f3e4c6787e4309d230f3d102105b2ebedf2d12ca (diff) | |
parent | 56005a00aae9d8be182d5643373980ee371417d6 (diff) | |
download | tk-60480c3f5dfc5ab6e13b6e55a310e3b991879eac.zip tk-60480c3f5dfc5ab6e13b6e55a310e3b991879eac.tar.gz tk-60480c3f5dfc5ab6e13b6e55a310e3b991879eac.tar.bz2 |
Merged core-8-5-branch
Diffstat (limited to 'tests/spinbox.test')
-rw-r--r-- | tests/spinbox.test | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/spinbox.test b/tests/spinbox.test index 0661635..68c6fae 100644 --- a/tests/spinbox.test +++ b/tests/spinbox.test @@ -1583,6 +1583,28 @@ test spinbox-23.1 {selection present while disabled, bug 637828} { } {1 1 345} destroy .e + +test spinbox-24.1 {error in trace proc attached to the textvariable} { + destroy .s + 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 +} [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!}] + +test spinbox-25.1 {textvariable lives in a non-existing namespace} { + destroy .s + catch {spinbox .s -textvariable thisnsdoesntexist::myvar} result1 + set result1 +} {can't trace "thisnsdoesntexist::myvar": parent namespace doesn't exist} + catch {unset ::e ::vVals} ## |