diff options
author | fvogel <fvogelnew1@free.fr> | 2015-12-19 22:54:54 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2015-12-19 22:54:54 (GMT) |
commit | a1a3c3455aeb4fd0ec57f5e8c31105b29f5ff0a8 (patch) | |
tree | 2ed3d9df7b0f4d317df931efaac15f719252c928 /tests | |
parent | 8d5c02b36bab0cd28bbb503d248bdee783c9e3ef (diff) | |
parent | 703edc8e5e80be0e7c37dbe1b3157ba854d258db (diff) | |
download | tk-a1a3c3455aeb4fd0ec57f5e8c31105b29f5ff0a8.zip tk-a1a3c3455aeb4fd0ec57f5e8c31105b29f5ff0a8.tar.gz tk-a1a3c3455aeb4fd0ec57f5e8c31105b29f5ff0a8.tar.bz2 |
Fixed bug [793909] - Problem with nonexistent namespaces
Diffstat (limited to 'tests')
-rw-r--r-- | tests/entry.test | 6 | ||||
-rw-r--r-- | tests/spinbox.test | 6 |
2 files changed, 12 insertions, 0 deletions
diff --git a/tests/entry.test b/tests/entry.test index da8f280..da3637d 100644 --- a/tests/entry.test +++ b/tests/entry.test @@ -1641,6 +1641,12 @@ test entry-23.1 {error in trace proc attached to the textvariable} { } [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} { + destroy .e + catch {entry .e -textvariable thisnsdoesntexist::myvar} result1 + set result1 +} {can't trace "thisnsdoesntexist::myvar": parent namespace doesn't exist} + destroy .e # XXX Still need to write tests for EntryBlinkProc, EntryFocusProc, diff --git a/tests/spinbox.test b/tests/spinbox.test index 5fba390..68c6fae 100644 --- a/tests/spinbox.test +++ b/tests/spinbox.test @@ -1599,6 +1599,12 @@ test spinbox-24.1 {error in trace proc attached to the textvariable} { {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} ## |