diff options
-rw-r--r-- | tests/column.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/column.test b/tests/column.test index 2b3f1b6..5006dfc 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.13 2006/11/18 04:42:14 treectrl Exp $ +# CVS: @(#) $Id: column.test,v 1.14 2006/11/23 22:04:58 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -342,15 +342,15 @@ test column-4.2 {column configure: -tags} -body { test column-4.3 {column cget: -tags of tail} -body { .t column cget tail -tags -} -result {tail} +} -result {} test column-4.4 {column configure/cget: -tags of tail} -body { .t column configure tail -tags head -} -returnCodes error -result {can't change tag of tail column} +} -result {} test column-4.5 {column cget: specify tail by its tag} -body { .t column cget head -tags -} -returnCodes error -result {column "head" doesn't exist} +} -result {head} test column-5.1 {column delete: missing args} -body { .t column delete |