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 | e0875570bfcfc57ab1ca0370e0b44cf7d7749be2 (patch) | |
| tree | bbecfbfdd2691945d9c5d74393caacff1e883912 /tests/ttk | |
| parent | 003b1790dcbe8fad02cd4132d39c5bd333f63c70 (diff) | |
| parent | ef7eb943beafeb45c06020f6ff22306a9d9cd72a (diff) | |
| download | tk-e0875570bfcfc57ab1ca0370e0b44cf7d7749be2.zip tk-e0875570bfcfc57ab1ca0370e0b44cf7d7749be2.tar.gz tk-e0875570bfcfc57ab1ca0370e0b44cf7d7749be2.tar.bz2 | |
Crash in unset traces 3062331
Diffstat (limited to 'tests/ttk')
| -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: # |