diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-06-17 18:24:24 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-06-17 18:24:24 (GMT) |
| commit | 1fe70fb2d6b530dd2c12c5e5eb5e8d7bac9ec4b2 (patch) | |
| tree | bbecfbfdd2691945d9c5d74393caacff1e883912 /tests/ttk/ttk.test | |
| parent | fbcd87e044a689ee654c0848842691e3c871730d (diff) | |
| parent | d96f0a1840e687316f7fb0d8153862a1ae684240 (diff) | |
| download | tk-1fe70fb2d6b530dd2c12c5e5eb5e8d7bac9ec4b2.zip tk-1fe70fb2d6b530dd2c12c5e5eb5e8d7bac9ec4b2.tar.gz tk-1fe70fb2d6b530dd2c12c5e5eb5e8d7bac9ec4b2.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: # |