Fixed bug [793909] - Problem with nonexistent namespaces

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.