summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/column.test23
1 files changed, 21 insertions, 2 deletions
diff --git a/tests/column.test b/tests/column.test
index 65a837b..3b4d171 100644
--- a/tests/column.test
+++ b/tests/column.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: column.test,v 1.9 2005/07/15 01:40:52 treectrl Exp $
+# CVS: @(#) $Id: column.test,v 1.10 2005/09/07 20:39:07 treectrl Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -346,7 +346,7 @@ test column-4.5 {column cget: specify tail by its tag} -body {
test column-5.1 {column delete: missing args} -body {
.t column delete
-} -returnCodes error -result {wrong # args: should be ".t column delete column"}
+} -returnCodes error -result {wrong # args: should be ".t column delete first ?last?"}
test column-5.2 {column delete: column tail} -body {
.t column delete tail
@@ -360,6 +360,25 @@ test column-5.4 {deleted column doesn't exist} -body {
.t column cget 0 -tag
} -returnCodes error -result {column "0" doesn't exist}
+test column-5.5 {column delete: all} -body {
+ .t column delete all
+ .t column list
+} -result {}
+
+test column-5.6 {column delete: range of 1} -body {
+ .t column create -tag column1
+ .t column create -tag column2
+ .t column create -tag column3
+ .t column create -tag column4
+ .t column delete column1 column1
+ .t column list
+} -result {1 2 3}
+
+test column-5.7 {column delete: range of 2, reverse order} -body {
+ .t column delete column4 column3
+ .t column list
+} -result {1}
+
test column-6.1 {column id: missing args} -body {
.t column id
} -returnCodes error -result {wrong # args: should be ".t column id column"}