diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-06-17 18:41:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-06-17 18:41:55 (GMT) |
| commit | 671c0f7cda2eee1a6e713aeff5440db8164ba33e (patch) | |
| tree | 69b34cedb247ef9754f5a5b69be4399c2fe6299f /tests | |
| parent | 5cb5cc94b78b74656a9c45195c71da541f672d79 (diff) | |
| parent | e0875570bfcfc57ab1ca0370e0b44cf7d7749be2 (diff) | |
| download | tk-671c0f7cda2eee1a6e713aeff5440db8164ba33e.zip tk-671c0f7cda2eee1a6e713aeff5440db8164ba33e.tar.gz tk-671c0f7cda2eee1a6e713aeff5440db8164ba33e.tar.bz2 | |
Crash in unset traces 3062331
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ttk/ttk.test | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/ttk/ttk.test b/tests/ttk/ttk.test index ddfaf84..1eec180 100644 --- a/tests/ttk/ttk.test +++ b/tests/ttk/ttk.test @@ -555,6 +555,16 @@ test ttk-14.3 "-textvariable in nonexistant namespace" -body { } -returnCodes 1 -result {can't trace *: parent namespace doesn't exist} \ -match glob -cleanup { destroy .tw } +test ttk-15.1 {Bug 3062331} -setup { + destroy .b +} -body { + set Y {} + ttk::button .b -textvariable Y + trace variable Y u "destroy .b" + unset Y +} -cleanup { + destroy .b +} -result {} ## Test ensemble processing: # |