summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-12-19 23:14:35 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-12-19 23:14:35 (GMT)
commitf9b0ceca7b9605cfb1f2de0b7d1315f0d33aec3f (patch)
treec8b944ca7d0bb9ecc57c4108e6936ecc1f24f0d7 /tests
parent05f8ab77f8dcabb1f3ad9394d48bc670277885e0 (diff)
parent56005a00aae9d8be182d5643373980ee371417d6 (diff)
downloadtk-f9b0ceca7b9605cfb1f2de0b7d1315f0d33aec3f.zip
tk-f9b0ceca7b9605cfb1f2de0b7d1315f0d33aec3f.tar.gz
tk-f9b0ceca7b9605cfb1f2de0b7d1315f0d33aec3f.tar.bz2
Fixed bug [793909] - Problem with nonexistent namespaces
Diffstat (limited to 'tests')
-rw-r--r--tests/entry.test9
-rw-r--r--tests/spinbox.test9
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.