summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-05-25 15:33:28 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-05-25 15:33:28 (GMT)
commit9dde25967a5e4166c9ebaf37ec92b9809ef60a3f (patch)
treee828c2f5e4c2a7694b56b025fae5c9d9deff94b1
parent925e9507ee2ff21b2fc0ae03cce706a035662fdf (diff)
downloadtcl-9dde25967a5e4166c9ebaf37ec92b9809ef60a3f.zip
tcl-9dde25967a5e4166c9ebaf37ec92b9809ef60a3f.tar.gz
tcl-9dde25967a5e4166c9ebaf37ec92b9809ef60a3f.tar.bz2
error in test naming
-rw-r--r--tests/appendComp.test6
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}