Added test for unknown column option.

1 files changed, 6 insertions, 2 deletions

diff --git a/tests/column.test b/tests/column.test
index 3fe1dd7..8ea9d7f 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.15 2006/12/03 00:26:12 treectrl Exp $
+# CVS: @(#) $Id: column.test,v 1.16 2008/07/21 18:42:15 treectrl Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -56,7 +56,7 @@ test column-1.5 {configure: create and fill a column} -body {
 } -result {1}
 
 test column-1.6 {configure: create another column} -body {
-	.t column create
+    .t column create
     .t column configure 1 -tags column1
 } -result {}
 
@@ -98,6 +98,10 @@ test column-3.4 {column configure: tail column} -body {
     .t column configure tail
 } -result {{-arrow {} {} none none} *} -match glob
 
+test column-3.4a {column configure: invalid option} -body {
+    .t column configure tail -foo
+} -returnCodes error -result {unknown option "-foo"}
+
 test column-3.5 {column configure: invalid -arrow} -body {
     .t column configure column1 -arrow straight
 } -returnCodes error -result {bad arrow "straight": must be none, up, or down}