diff options
author | treectrl <treectrl> | 2006-11-18 04:43:23 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-11-18 04:43:23 (GMT) |
commit | 8a24e0abae16794e57e85a4d6afc79d0c9790394 (patch) | |
tree | cffefeab57fab2acb1a0b13803ebb32de3516b4c /tests/itemdesc.test | |
parent | 52ae13defd32dc5a4ab6e5ced8de6c2aad5a0a1d (diff) | |
download | tktreectrl-8a24e0abae16794e57e85a4d6afc79d0c9790394.zip tktreectrl-8a24e0abae16794e57e85a4d6afc79d0c9790394.tar.gz tktreectrl-8a24e0abae16794e57e85a4d6afc79d0c9790394.tar.bz2 |
Added a test of an invalid item description.
Diffstat (limited to 'tests/itemdesc.test')
-rw-r--r-- | tests/itemdesc.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/itemdesc.test b/tests/itemdesc.test index ed18109..f49fd3e 100644 --- a/tests/itemdesc.test +++ b/tests/itemdesc.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. # -# RCS: @(#) $Id: itemdesc.test,v 1.1 2006/10/29 02:39:45 treectrl Exp $ +# RCS: @(#) $Id: itemdesc.test,v 1.2 2006/11/18 04:43:23 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -35,6 +35,10 @@ test itemdesc-1.1 {bogus itemdesc} -body { .t item id "" } -returnCodes error -result {bad item description ""} +test itemdesc-1.1.1 {bogus itemdesc} -body { + .t item id "\{all" +} -returnCodes error -result "bad item description \"\{all\"" + test itemdesc-1.2 {all} -setup { .t item create -count 10 } -body { |