summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authortreectrl <treectrl>2006-09-22 23:34:37 (GMT)
committertreectrl <treectrl>2006-09-22 23:34:37 (GMT)
commit88d40ba3897dc1bfcc6daa089a762f90e28d1206 (patch)
tree753e0eeee347cb537ee3e66deb53606f481cb015 /tests
parentddc5df29d0a9375f54ce6636b45c926f61a10d74 (diff)
downloadtktreectrl-88d40ba3897dc1bfcc6daa089a762f90e28d1206.zip
tktreectrl-88d40ba3897dc1bfcc6daa089a762f90e28d1206.tar.gz
tktreectrl-88d40ba3897dc1bfcc6daa089a762f90e28d1206.tar.bz2
More tests added for [item element xxx].
Added tests of multi-item [item style set], [item state set] and [item state forcolumn]. Added tests for [item enabled] and [item text].
Diffstat (limited to 'tests')
-rw-r--r--tests/item.test357
1 files changed, 339 insertions, 18 deletions
diff --git a/tests/item.test b/tests/item.test
index 19a4691..679d7e2 100644
--- a/tests/item.test
+++ b/tests/item.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# CVS: @(#) $Id: item.test,v 1.12 2005/07/15 01:43:39 treectrl Exp $
+# CVS: @(#) $Id: item.test,v 1.13 2006/09/22 23:34:37 treectrl Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -84,7 +84,7 @@ test item-3.4 {item delete: item range without common ancestor} -body {
.t item delete 10 11
} -returnCodes error -result {item 10 and item 11 don't share a common ancestor}
-test item-3.5 {item delete: item range without common ancestor} -body {
+test item-3.5 {item delete: item range with common ancestor} -body {
.t item lastchild 8 10
.t item lastchild 8 11
.t item delete 10 11
@@ -187,7 +187,7 @@ test item-13.2 {item complex: only allowed if column style is defined} -body {
} -returnCodes error -result {column #0 doesn't exist}
test item-13.3 {item complex: invalid list} -body {
- .t column create
+ .t column create -tag column0
.t item style set 8 0 testStyle
.t item complex 8 {{e1 -text}}
} -returnCodes error -result {wrong # args: should be "element option value ..."}
@@ -209,38 +209,149 @@ test item-14.1 {item element: missing command} -body {
} -returnCodes error -result {wrong # args: should be ".t item element command item column element ?arg ...?"}
test item-14.2 {item element: invalid command} -body {
- .t item element foo 8 0 eText
+ .t item element foo 8 column0 eText
} -returnCodes error -result {bad command "foo": must be *} -match glob
test item-14.3 {item element perstate: missing arg} -body {
- .t item element perstate 8 0 eText
+ .t item element perstate 8 column0 eText
} -returnCodes error -result {wrong # args: should be ".t item element perstate item column element option ?stateList?"}
-test item-14.4 {item element perstate} -body {
- .t item element actual 8 0 eText -fill
+test item-14.4 {item element perstate: without stateList} -body {
+ .t element configure eText -fill {red !selected blue {}}
+ .t item element perstate 8 column0 eText -fill
} -result {red}
-test item-14.5 {item element cget: missing arg} -body {
- .t item element cget 8 0 eText
+test item-14.5 {item element perstate: without stateList} -body {
+ .t item element perstate 8 column0 eText -fill
+} -result {red}
+
+test item-14.6 {item element perstate: with stateList} -body {
+ .t item element perstate 8 column0 eText -fill {selected}
+} -result {blue}
+
+test item-14.7 {item element perstate: all items} -body {
+ .t item element perstate all column0 eText -fill {selected}
+} -returnCodes error -result {item 0 column 0 has no style}
+
+test item-14.8 {item element perstate: several items} -body {
+ .t item element perstate {list {8 root}} column0 eText -fill {selected}
+} -result {blue}
+
+test item-14.21 {item element cget: missing arg} -body {
+ .t item element cget 8 column0 eText
} -returnCodes error -result {wrong # args: should be ".t item element cget item column element option"}
-test item-14.6 {item element cget} -body {
- .t item element cget 8 0 eText -fill
+test item-14.22 {item element cget: too many args} -body {
+ .t item element cget 8 a b c d
+} -returnCodes error -result {wrong # args: should be ".t item element cget item column element option"}
+
+test item-14.23 {item element cget: single item, get -fill} -body {
+ .t item element cget 8 column0 eText -fill
+} -result {}
+
+test item-14.24 {item element cget: all items, get -fill} -body {
+ .t item element cget all column0 eText -fill
+} -returnCodes error -result {item 0 column 0 has no style}
+
+test item-14.25 {item element cget: multiple items, get -fill} -body {
+ .t item element cget {list {8 1 3}} column0 eText -fill
} -result {}
-test item-14.7 {item element configure} -body {
- .t item element configure 8 0 eText
+test item-14.31 {item element configure: get all config info} -body {
+ .t item element configure 8 column0 eText
} -result {{-data {} {} {} {}} {-datatype {} {} {} {}} *} -match glob
-test item-14.8 {item element configure/cget} -body {
- .t item element configure 8 0 eText -fill yellow
+test item-14.32 {item element configure: single item, set -fill} -body {
+ .t item element configure 8 column0 eText -fill yellow
.t item element cget 8 0 eText -fill
} -result {yellow}
-test item-14.9 {item element configure} -body {
- .t item element configure 8 0 eText -fill
+test item-14.33 {item element configure: single item, get -fill} -body {
+ .t item element configure 8 column0 eText -fill
} -result {-fill {} {} {} yellow}
+test item-14.34 {item element configure: all items, get -fill} -body {
+ .t item element configure all column0 eText -fill
+} -returnCodes error -result {item 0 column 0 has no style}
+
+test item-14.35 {item element configure: several items, get -fill} -body {
+ .t item element configure {list {8 3}} column0 eText -fill
+} -result {-fill {} {} {} yellow}
+
+test item-14.36 {item element configure: all items, set -fill} -body {
+ .t item style set all column0 testStyle
+ .t item element configure all column0 eText -fill orange
+ set res {}
+ foreach I [.t item id {range first last}] {
+ lappend res [.t item element cget $I column0 eText -fill]
+ }
+ set res
+} -result {orange orange orange orange orange orange orange orange orange}
+
+test item-14.37 {item element configure: single item, multiple elements} -body {
+ .t item element configure root column0 eText -fill blue +
+} -returnCodes error -result {missing element name after "+"}
+
+test item-14.38 {item element configure: single item, multiple elements} -body {
+ .t item element configure root column0 eText -fill blue + eBorder
+} -returnCodes error -result {missing option-value pair after element "eBorder"}
+
+test item-14.39 {item element configure: single item, multiple elements} -body {
+ .t item element configure root column0 eText -fill blue + eBorder -draw
+} -returnCodes error -result {missing option-value pair after element "eBorder"}
+
+test item-14.40 {item element configure: single item, multiple elements} -body {
+ .t item element configure root column0 eText -fill blue + eBorder -draw false
+ list [.t item element cget root column0 eText -fill] \
+ [.t item element cget root column0 eBorder -draw]
+} -result {blue false}
+
+test item-14.41 {item element configure: single item, multiple columns} -body {
+ .t item element configure root column0 eText -fill blue ,
+} -returnCodes error -result {missing column after ","}
+
+test item-14.42 {item element configure: single item, multiple columns} -body {
+ .t column create -tag column1
+ .t item style set all column1 testStyle
+ .t item element configure root column0 eText -fill blue , column1
+} -returnCodes error -result {missing element name after column "column1"}
+
+test item-14.43 {item element configure: single item, multiple columns} -body {
+ .t item element configure root column0 eText -fill blue , column1 eBorder
+} -returnCodes error -result {missing option-value pair after element "eBorder"}
+
+test item-14.44 {item element configure: single item, multiple columns} -body {
+ .t item element configure root column0 eText -fill blue , column1 eBorder -draw
+} -returnCodes error -result {missing option-value pair after element "eBorder"}
+
+test item-14.45 {item element configure: single item, multiple columns} -body {
+ .t item element configure root column0 eText -fill green , column1 eBorder -draw true
+ list [.t item element cget root column0 eText -fill] \
+ [.t item element cget root column1 eBorder -draw]
+} -result {green true}
+
+test item-14.46 {item element configure: multiple items, multiple columns/elements} -body {
+ .t item element configure {list {1 3}} column0 eText -fill green -text boo + \
+ eBorder -background red , column1 eBorder -draw true + eText -font {{times 12}}
+ set res {}
+ foreach I {1 3} {
+ lappend res [.t item element cget $I column0 eText -fill]
+ lappend res [.t item element cget $I column0 eText -text]
+ lappend res [.t item element cget $I column0 eBorder -background]
+ lappend res [.t item element cget $I column1 eBorder -draw]
+ lappend res [.t item element cget $I column1 eText -font]
+ }
+ set res
+} -result {green boo red true {{times 12}} green boo red true {{times 12}}}
+
+test item-14.50 {item element configure: cleanup} -body {
+ .t item style set all 0 ""
+ .t column delete all
+ .t column create
+ .t item style set 8 0 testStyle
+ .t item element configure 8 0 eText -fill yellow
+} -result {}
+
test item-15.1 {item style: missing args} -body {
.t item style
} -returnCodes error -result {wrong # args: should be ".t item style command item ?arg ...?"}
@@ -322,11 +433,59 @@ test item-15.19 {item style set: without args returns style} -body {
.t item style set 8 0
} -result {testStyle}
-test item-15.20 {item style set} -body {
+test item-15.20 {item style set: single item, single column} -body {
.t item style set 8 0 testStyle2
.t item style set 8
} -result {testStyle2}
+test item-15.21 {item style set: all items, single column} -body {
+ .t item style set all 0 testStyle2
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item style set $I]
+ }
+ set res
+} -result {testStyle2 testStyle2 testStyle2 testStyle2 testStyle2 testStyle2 testStyle2 testStyle2}
+
+test item-15.22 {item style set: list of items, single column} -body {
+ .t item style set {list {2 4 6 8}} 0 ""
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item style set $I]
+ }
+ set res
+} -result {testStyle2 {{}} testStyle2 {{}} testStyle2 {{}} testStyle2 {{}}}
+
+test item-15.23 {item style set: all items, multiple columns} -body {
+ .t column create
+ .t item style set all 0 testStyle 1 testStyle2
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item style set $I]
+ }
+ set res
+} -result {{testStyle testStyle2} {testStyle testStyle2} {testStyle testStyle2} {testStyle testStyle2} {testStyle testStyle2} {testStyle testStyle2} {testStyle testStyle2} {testStyle testStyle2}}
+
+test item-15.24 {item style set: list of items, multiple columns} -body {
+ .t item style set {list {2 4 6 8}} 0 testStyle2 1 ""
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item style set $I]
+ }
+ set res
+} -result {{testStyle testStyle2} {testStyle2 {}} {testStyle testStyle2} {testStyle2 {}} {testStyle testStyle2} {testStyle2 {}} {testStyle testStyle2} {testStyle2 {}}}
+
+test item-15.25 {item style set: all items, multiple columns} -body {
+ .t item style set all 1 "" 0 ""
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item style set $I]
+ }
+ .t column delete all
+ .t column create
+ set res
+} -result {{{} {}} {{} {}} {{} {}} {{} {}} {{} {}} {{} {}} {{} {}} {{} {}}}
+
test item-16.1 {item state: missing args} -body {
.t item state
} -returnCodes error -result {wrong # args: should be ".t item state command item ?arg ...?"}
@@ -425,6 +584,81 @@ test item-16.22 {item state: reset predefined state} -body {
.t item state get 8 enabled
} -result {1}
+test item-16.23 {item state: set range} -body {
+ .t item state set 1 8 state0
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item state get $I state0]
+ }
+ set res
+} -result {1 1 1 1 1 1 1 1}
+
+test item-16.24 {item state: set list} -body {
+ .t item state set {list {2 4 6 8}} !state0
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item state get $I state0]
+ }
+ set res
+} -result {1 0 1 0 1 0 1 0}
+
+test item-16.25 {item state: set all} -body {
+ .t item state set all ~state0
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item state get $I state0]
+ }
+ set res
+} -result {0 1 0 1 0 1 0 1}
+
+test item-16.26 {item state set: invalid range} -body {
+ set I [.t item create]
+ .t item state set $I 8 state0
+} -returnCodes error -result {item 13 and item 8 don't share a common ancestor}
+
+test item-16.40 {item state forcolumn: missing arg} -body {
+ .t item state forcolumn
+} -returnCodes error -result {wrong # args: should be ".t item state command item ?arg ...?"}
+
+test item-16.41 {item state forcolumn: missing arg} -body {
+ .t item state forcolumn 8
+} -returnCodes error -result {wrong # args: should be ".t item state forcolumn item column ?stateList?"}
+
+test item-16.42 {item state forcolumn: too many args} -body {
+ .t item state forcolumn a b c d
+} -returnCodes error -result {wrong # args: should be ".t item state forcolumn item column ?stateList?"}
+
+test item-16.43 {item state forcolumn: get for single item} -body {
+ .t item state forcolumn 8 0
+} -result {}
+
+test item-16.44 {item state forcolumn: get for all} -body {
+ .t item state forcolumn all 0
+} -result {}
+
+test item-16.45 {item state forcolumn: set for single item} -body {
+ .t item state forcolumn 8 0 state0
+ .t item state forcolumn 8 0
+} -result {state0}
+
+test item-16.46 {item state forcolumn: set all} -body {
+ .t item state forcolumn all 0 state0
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item state forcolumn $I 0]
+ }
+ set res
+} -result {state0 state0 state0 state0 state0 state0 state0 state0}
+
+test item-16.47 {item state forcolumn: set list} -body {
+ .t item state forcolumn {list {2 4 6 8}} 0 !state0
+ set res {}
+ foreach I [.t item id {range 1 8}] {
+ lappend res [.t item state forcolumn $I 0]
+ }
+ set res
+} -result {state0 {} state0 {} state0 {} state0 {}}
+
test item-17.1 {item sort: missing args} -body {
.t item sort
} -returnCodes error -result {wrong # args: should be ".t item sort item ?option ...?"}
@@ -695,6 +929,93 @@ test item-17.49 {item sort -command: no columns} -body {
.t item sort root
} -returnCodes error -result {there are no columns}
+test item-18.1 {item enabled: too few args} -body {
+ .t item enabled
+} -returnCodes error -result {wrong # args: should be ".t item enabled item ?boolean?"}
+
+test item-18.2 {item enabled: too many args} -body {
+ .t item enabled a b c
+} -returnCodes error -result {wrong # args: should be ".t item enabled item ?boolean?"}
+
+test item-18.3 {item enabled: null item} -body {
+ .t item enabled 99
+} -returnCodes error -result {item "99" doesn't exist}
+
+test item-18.4 {item enabled: single item get} -body {
+ .t item enabled root
+} -result {1}
+
+test item-18.5 {item enabled: single item set} -body {
+ .t item enabled root false
+ set res {}
+ foreach I [.t item id {range first last}] {
+ lappend res [.t item enabled $I]
+ }
+ set res
+} -result {0 1 1 1 1 1 1 1 1}
+
+test item-18.6 {item enabled: all get} -body {
+ .t item enabled all
+} -result {0}
+
+test item-18.7 {item enabled: all set} -body {
+ .t item enabled all false
+ set res {}
+ foreach I [.t item id {range first last}] {
+ lappend res [.t item enabled $I]
+ }
+ set res
+} -result {0 0 0 0 0 0 0 0 0}
+
+test item-18.8 {item enabled: multi get} -body {
+ .t item enabled {list {2 4 7}}
+} -result {0}
+
+test item-18.9 {item enabled: multi set} -body {
+ .t item enabled {list {2 4 7}} true
+ set res {}
+ foreach I [.t item id {range first last}] {
+ lappend res [.t item enabled $I]
+ }
+ set res
+} -result {0 0 1 0 1 0 0 1 0}
+
+test item-19.1 {item text: too few args} -body {
+ .t item text
+} -returnCodes error -result {wrong # args: should be ".t item text item ?column? ?text? ?column text ...?"}
+
+test item-19.2 {item text: all items, get every column} -body {
+ .t item text all
+} -result {}
+
+test item-19.3 {item text: all items, set first column} -body {
+ .t column create
+ .t item style set all first testStyle
+ .t item text all first abc
+ set res {}
+ foreach I [.t item id {range first last}] {
+ lappend res [.t item text $I first]
+ }
+ set res
+} -result {abc abc abc abc abc abc abc abc abc}
+
+test item-19.4 {item text: all items, get first column} -body {
+ .t item text all first
+} -result {abc}
+
+test item-19.5 {item text: several items, set first column} -body {
+ .t item text {list {2 4 6 8}} first def
+ set res {}
+ foreach I [.t item id {range first last}] {
+ lappend res [.t item text $I first]
+ }
+ set res
+} -result {abc abc def abc def abc def abc def}
+
+test item-19.6 {item text: several items, get first column} -body {
+ .t item text {list {2 4 6 8}} first
+} -result {def}
+
test item-99.1 {some needed cleanup} -body {
destroy .t
} -result {}