summaryrefslogtreecommitdiffstats
path: root/tests/item.test
diff options
context:
space:
mode:
authortreectrl <treectrl>2005-05-13 20:40:14 (GMT)
committertreectrl <treectrl>2005-05-13 20:40:14 (GMT)
commit7160cf548d9ee1d2ad9431aac3e11cf43ea3cbae (patch)
tree83e81d8a0df93c8a6dcbf563af8eebed0680f65e /tests/item.test
parent7837de024dfa9e591f1204a01e785f3b7f7cd6d3 (diff)
downloadtktreectrl-7160cf548d9ee1d2ad9431aac3e11cf43ea3cbae.zip
tktreectrl-7160cf548d9ee1d2ad9431aac3e11cf43ea3cbae.tar.gz
tktreectrl-7160cf548d9ee1d2ad9431aac3e11cf43ea3cbae.tar.bz2
Use "item id" instead of "index".
The error message changed when a specified column doesn't exist.
Diffstat (limited to 'tests/item.test')
-rw-r--r--tests/item.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/item.test b/tests/item.test
index 2149a63..68d0dd3 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.9 2005/03/29 20:41:08 treectrl Exp $
+# CVS: @(#) $Id: item.test,v 1.10 2005/05/13 20:40:14 treectrl Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -92,11 +92,11 @@ test item-3.5 {item delete: item range without common ancestor} -body {
test item-3.6 {item delete: don't delete "root" itemDesc} -body {
.t item delete root
- .t index root
+ .t item id root
} -result {0}
test item-3.7 {item delete: deleting root should be ignored} -body {
- .t item delete [.t index root]
+ .t item delete [.t item id root]
update idletasks
} -result {}
@@ -447,7 +447,7 @@ test item-17.5 {item sort: missing arg to an option} -body {
test item-17.6 {item sort: invalid column} -body {
.t item sort root -column 3
-} -returnCodes error -result {bad column index "3": must be from 0 to 0}
+} -returnCodes error -result {column "3" doesn't exist}
test item-17.7 {item sort: invalid column, second try} -body {
.t item sort root -column tail
@@ -689,8 +689,8 @@ test item-17.48 {item sort -element: useless for -command} -body {
} -result {1 2 3 4 5 6 7 8} ;# same result as in 17.39
test item-17.49 {item sort -command: no columns} -body {
- while {![catch {.t column configure 0}]} {
- .t column delete 0
+ while {![catch {.t column configure "order 0"}]} {
+ .t column delete "order 0"
}
.t item sort root
} -returnCodes error -result {there are no columns}