diff options
| author | fvogel <fvogelnew1@free.fr> | 2015-12-12 16:01:18 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2015-12-12 16:01:18 (GMT) |
| commit | 703edc8e5e80be0e7c37dbe1b3157ba854d258db (patch) | |
| tree | 413e35497f15aad01cbe4d2c145dc2231c909d3c /tests | |
| parent | eb0c5a2b21fcefd1331e9ccf98b5f2bdc62f9395 (diff) | |
| download | tk-703edc8e5e80be0e7c37dbe1b3157ba854d258db.zip tk-703edc8e5e80be0e7c37dbe1b3157ba854d258db.tar.gz tk-703edc8e5e80be0e7c37dbe1b3157ba854d258db.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} ## |