diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/entry.test | 9 | ||||
| -rw-r--r-- | tests/spinbox.test | 9 |
2 files changed, 18 insertions, 0 deletions
diff --git a/tests/entry.test b/tests/entry.test index 4cc9218..9c30b00 100644 --- a/tests/entry.test +++ b/tests/entry.test @@ -3493,6 +3493,15 @@ test entry-23.1 {error in trace proc attached to the textvariable} -setup { } -result [list {can't set "myvar": Intentional error here!} \ {can't set "myvar": Intentional error here!}] +test entry-24.1 {textvariable lives in a non-existing namespace} -setup { + destroy .e +} -body { + catch {entry .e -textvariable thisnsdoesntexist::myvar} result1 + set result1 +} -cleanup { + destroy .e +} -result {can't trace "thisnsdoesntexist::myvar": parent namespace doesn't exist} + # Gathered comments about lacks # XXX Still need to write tests for EntryBlinkProc, EntryFocusProc, # and EntryTextVarProc. diff --git a/tests/spinbox.test b/tests/spinbox.test index f101640..594cc90 100644 --- a/tests/spinbox.test +++ b/tests/spinbox.test @@ -3808,6 +3808,15 @@ test spinbox-24.1 {error in trace proc attached to the textvariable} -setup { {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} -setup { + destroy .s +} -body { + catch {spinbox .s -textvariable thisnsdoesntexist::myvar} result1 + set result1 +} -cleanup { + destroy .s +} -result {can't trace "thisnsdoesntexist::myvar": parent namespace doesn't exist} + # Collected comments about lacks from the test # XXX Still need to write tests for SpinboxBlinkProc, SpinboxFocusProc, # and SpinboxTextVarProc. |