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 | 81b1512fb78c144b75114659c12e535bf48c65d6 (patch) | |
| tree | 69b34cedb247ef9754f5a5b69be4399c2fe6299f /tests/ttk/ttk.test | |
| parent | 12efa830f66d02509c99edcf8843347c8ec2487d (diff) | |
| parent | 1fe70fb2d6b530dd2c12c5e5eb5e8d7bac9ec4b2 (diff) | |
| download | tk-81b1512fb78c144b75114659c12e535bf48c65d6.zip tk-81b1512fb78c144b75114659c12e535bf48c65d6.tar.gz tk-81b1512fb78c144b75114659c12e535bf48c65d6.tar.bz2 | |
Crash in unset traces 3062331
Diffstat (limited to 'tests/ttk/ttk.test')
| -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: # |