diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-03-27 13:19:13 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-03-27 13:19:13 (GMT) |
| commit | 6def5b4ca3044c768a03aad8316287ebfa8249ff (patch) | |
| tree | 723e0cd6f1265d1b4add45cfea8f14253c9bf2d8 /tests/info.test | |
| parent | 5775be2569a55d245b9f3dc34eefe98fc5e17cff (diff) | |
| download | tcl-6def5b4ca3044c768a03aad8316287ebfa8249ff.zip tcl-6def5b4ca3044c768a03aad8316287ebfa8249ff.tar.gz tcl-6def5b4ca3044c768a03aad8316287ebfa8249ff.tar.bz2 | |
Eliminated duplicate test numbers [Bugs 710322, 710327, 710349, 710363]
Diffstat (limited to 'tests/info.test')
| -rw-r--r-- | tests/info.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/info.test b/tests/info.test index 4f87e99..30ce636 100644 --- a/tests/info.test +++ b/tests/info.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: info.test,v 1.24 2002/07/01 07:52:03 dgp Exp $ +# RCS: @(#) $Id: info.test,v 1.25 2003/03/27 13:19:15 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -162,16 +162,16 @@ test info-5.1 {info complete option} { test info-5.2 {info complete option} { info complete abc } 1 -test info-5.2 {info complete option} { +test info-5.3 {info complete option} { info complete "\{abcd " } 0 -test info-5.3 {info complete option} { +test info-5.4 {info complete option} { info complete {# Comment should be complete command} } 1 -test info-5.4 {info complete option} { +test info-5.5 {info complete option} { info complete {[a [b] } } 0 -test info-5.5 {info complete option} { +test info-5.6 {info complete option} { info complete {[a [b]} } 0 |