summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2010-10-11 21:34:45 (GMT)
committerjenglish <jenglish@flightlab.com>2010-10-11 21:34:45 (GMT)
commitaff4deb1051f578be23a9c8449439e912d976c08 (patch)
treeab51d96c180845d6c165b2daec6782369de0feca /tests
parent0a4da5d57f06d8c18a71b3cbffaddda4da894b41 (diff)
downloadtk-aff4deb1051f578be23a9c8449439e912d976c08.zip
tk-aff4deb1051f578be23a9c8449439e912d976c08.tar.gz
tk-aff4deb1051f578be23a9c8449439e912d976c08.tar.bz2
Fix crash in 'tag add' / 'tag remove' when no -tags specified [SF#3085489].
Diffstat (limited to 'tests')
-rw-r--r--tests/ttk/treeview.test24
1 files changed, 22 insertions, 2 deletions
diff --git a/tests/ttk/treeview.test b/tests/ttk/treeview.test
index 2cb1704..79d4b17 100644
--- a/tests/ttk/treeview.test
+++ b/tests/ttk/treeview.test
@@ -1,5 +1,5 @@
#
-# $Id: treeview.test,v 1.7 2010/05/27 19:27:04 jenglish Exp $
+# $Id: treeview.test,v 1.8 2010/10/11 21:34:45 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