diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-06-29 21:35:39 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-06-29 21:35:39 (GMT) |
| commit | 24ecf8fb133a0888393dd8b3f3907ef9c11f4b3f (patch) | |
| tree | d44ae20eb6f3372d30c175b11bd0f97a94077f8c /tests | |
| parent | f904799240ca8b95fb5ab866b6019b76f3935861 (diff) | |
| parent | 3f0a3480d44af1f24b1bd12796f28078a2d927c6 (diff) | |
| download | tk-24ecf8fb133a0888393dd8b3f3907ef9c11f4b3f.zip tk-24ecf8fb133a0888393dd8b3f3907ef9c11f4b3f.tar.gz tk-24ecf8fb133a0888393dd8b3f3907ef9c11f4b3f.tar.bz2 | |
3341056 Correct segfault due to flaw in the 2011-06-17 commit.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ttk/ttk.test | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/tests/ttk/ttk.test b/tests/ttk/ttk.test index 1eec180..5a982b6 100644 --- a/tests/ttk/ttk.test +++ b/tests/ttk/ttk.test @@ -560,12 +560,29 @@ test ttk-15.1 {Bug 3062331} -setup { } -body { set Y {} ttk::button .b -textvariable Y - trace variable Y u "destroy .b" + trace variable Y u "destroy .b; #" unset Y } -cleanup { destroy .b } -result {} +test ttk-15.2 {Bug 3341056} -setup { + proc foo {} { + destroy .lf + ttk::labelframe .lf + ttk::checkbutton .lf.cb -text xxx + } +} -body { + ttk::button .b -text xxx -command foo + .b invoke + .b invoke + .lf.cb invoke + destroy .b +} -cleanup { + rename foo {} + destroy .lf +} -result {} + ## Test ensemble processing: # # (See also: SF#2021443) |