summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2004-11-25 16:37:08 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2004-11-25 16:37:08 (GMT)
commit6ee1f25ba7a09bad8a410b44ff14dc80cfeb7bf1 (patch)
treeb31529be3473f6a2a50e3360557021e1ce66cdd0 /tests
parent16786015d10aff3dce40b31e1cd011edb3ee6bf6 (diff)
downloadtcl-6ee1f25ba7a09bad8a410b44ff14dc80cfeb7bf1.zip
tcl-6ee1f25ba7a09bad8a410b44ff14dc80cfeb7bf1.tar.gz
tcl-6ee1f25ba7a09bad8a410b44ff14dc80cfeb7bf1.tar.bz2
Fix [Bug 1066837] without reopening other bugs... What a horrid hack! :^/
Diffstat (limited to 'tests')
-rw-r--r--tests/indexObj.test7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/indexObj.test b/tests/indexObj.test
index 70740f7..7fea854 100644
--- a/tests/indexObj.test
+++ b/tests/indexObj.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: indexObj.test,v 1.8 2004/05/19 12:17:31 dkf Exp $
+# RCS: @(#) $Id: indexObj.test,v 1.9 2004/11/25 16:37:15 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -83,6 +83,11 @@ test indexObj-5.5 {Tcl_WrongNumArgs} testindexobj {
test indexObj-5.6 {Tcl_WrongNumArgs} testindexobj {
testwrongnumargs 2 "" mycmd foo
} "wrong # args: should be \"mycmd foo\""
+# Contrast this with test proc-3.6; they have to be like this because
+# of [Bug 1066837] so Itcl won't break.
+test indexObj-5.7 {Tcl_WrongNumArgs} testindexobj {
+ testwrongnumargs 2 "fee fi" "fo fum" foo bar
+} "wrong # args: should be \"fo fum foo fee fi\""
test indexObj-6.1 {Tcl_GetIndexFromObjStruct} testindexobj {
set x a