diff options
| author | jenglish <jenglish@flightlab.com> | 2010-10-11 21:35:27 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2010-10-11 21:35:27 (GMT) |
| commit | 76b5e7a235315bd67ab0074a97a2bd6251385624 (patch) | |
| tree | 1ed7927ca375d0f312bc0e5a8667669b4aba4199 /tests/ttk | |
| parent | 3d017fe80096b934b7a1d2d5b1e05ddfd6010189 (diff) | |
| download | tk-76b5e7a235315bd67ab0074a97a2bd6251385624.zip tk-76b5e7a235315bd67ab0074a97a2bd6251385624.tar.gz tk-76b5e7a235315bd67ab0074a97a2bd6251385624.tar.bz2 | |
Fix crash in 'tag add' / 'tag remove' when no -tags specified [SF#3085489].
Diffstat (limited to 'tests/ttk')
| -rw-r--r-- | tests/ttk/treeview.test | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test index 5bc7a80..73d2dce 100644 --- a/tests/ttk/treeview.test +++ b/tests/ttk/treeview.test @@ -1,5 +1,5 @@ # -# $Id: treeview.test,v 1.3.2.3 2010/08/26 02:06:10 hobbs Exp $ +# $Id: treeview.test,v 1.3.2.4 2010/10/11 21:35:27 jenglish Exp $ # # [7Jun2005] TO CHECK: [$tv see {}] -- shouldn't work (at least, shouldn't do # what it currently does) @@ -571,7 +571,7 @@ test treeview-identify-8 "identify element" -body { } -match glob -result [list \ branch $disclosure branch2 $disclosure branch3 $disclosure] -# See #2381555 +# See #2381555 test treeview-identify-9 "identify works when horizontally scrolled" -setup { .tv configure -show {tree headings} foreach column {#0 A B C} { @@ -618,4 +618,24 @@ test treeview-3006842 "Null bindings" -setup { destroy .tv } +test treeview-3085489-1 "tag add, no -tags" -setup { + ttk::treeview .tv +} -body { + set item [.tv insert {} end] + .tv tag add foo $item + .tv item $item -tags +} -cleanup { + destroy .tv +} -result [list foo] + +test treeview-3085489-2 "tag remove, no -tags" -setup { + ttk::treeview .tv +} -body { + set item [.tv insert {} end] + .tv tag remove foo $item + .tv item $item -tags +} -cleanup { + destroy .tv +} -result [list] + tcltest::cleanupTests |