diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-25 15:33:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-25 15:33:28 (GMT) |
| commit | 9dde25967a5e4166c9ebaf37ec92b9809ef60a3f (patch) | |
| tree | e828c2f5e4c2a7694b56b025fae5c9d9deff94b1 | |
| parent | 925e9507ee2ff21b2fc0ae03cce706a035662fdf (diff) | |
| download | tcl-9dde25967a5e4166c9ebaf37ec92b9809ef60a3f.zip tcl-9dde25967a5e4166c9ebaf37ec92b9809ef60a3f.tar.gz tcl-9dde25967a5e4166c9ebaf37ec92b9809ef60a3f.tar.bz2 | |
error in test naming
| -rw-r--r-- | tests/appendComp.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/appendComp.test b/tests/appendComp.test index e5c96f8..9eaff48 100644 --- a/tests/appendComp.test +++ b/tests/appendComp.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: appendComp.test,v 1.5 2001/11/23 01:25:38 das Exp $ +# RCS: @(#) $Id: appendComp.test,v 1.6 2004/05/25 15:33:28 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -198,11 +198,11 @@ test appendComp-4.18 {lappend command} { proc foo {} { lappend x {} } foo } {{}} -test append-4.19 {lappend command} { +test appendComp-4.19 {lappend command} { proc foo {} { lappend x(0) } foo } {} -test append-4.20 {lappend command} { +test appendComp-4.20 {lappend command} { proc foo {} { lappend x(0) abc } foo } {abc} |