summaryrefslogtreecommitdiffstats
path: root/tests/ttk/ttk.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-06-17 18:24:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-06-17 18:24:24 (GMT)
commit1fe70fb2d6b530dd2c12c5e5eb5e8d7bac9ec4b2 (patch)
treebbecfbfdd2691945d9c5d74393caacff1e883912 /tests/ttk/ttk.test
parentfbcd87e044a689ee654c0848842691e3c871730d (diff)
parentd96f0a1840e687316f7fb0d8153862a1ae684240 (diff)
downloadtk-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.test10
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:
#