summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2000-11-24 11:27:37 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2000-11-24 11:27:37 (GMT)
commitf8076c7264ff06e9d94f8d12f79697879c54b147 (patch)
tree04cbf71084d0140cae333ababd2f11c658ef988d /tests
parentca54557b2a7a3ca47409fdf201e2e15bdd642741 (diff)
downloadtcl-f8076c7264ff06e9d94f8d12f79697879c54b147.zip
tcl-f8076c7264ff06e9d94f8d12f79697879c54b147.tar.gz
tcl-f8076c7264ff06e9d94f8d12f79697879c54b147.tar.bz2
Now correctly test for (and fix) Bug #119082.
Diffstat (limited to 'tests')
-rw-r--r--tests/indexObj.test21
1 files changed, 20 insertions, 1 deletions
diff --git a/tests/indexObj.test b/tests/indexObj.test
index 4dd83f5..9a8a582 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.6 2000/08/07 22:42:32 ericm Exp $
+# RCS: @(#) $Id: indexObj.test,v 1.7 2000/11/24 11:27:38 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -89,6 +89,25 @@ test indexObj-5.6 {Tcl_WrongNumArgs} {
testwrongnumargs 2 "" mycmd foo
} "wrong # args: should be \"mycmd foo\""
+test indexObj-6.1 {Tcl_GetIndexFromObjStruct} {
+ set x a
+ testgetindexfromobjstruct $x 0
+} "wrong # args: should be \"testgetindexfromobjstruct a 0\""
+test indexObj-6.2 {Tcl_GetIndexFromObjStruct} {
+ set x a
+ testgetindexfromobjstruct $x 0
+ testgetindexfromobjstruct $x 0
+} "wrong # args: should be \"testgetindexfromobjstruct a 0\""
+test indexObj-6.3 {Tcl_GetIndexFromObjStruct} {
+ set x c
+ testgetindexfromobjstruct $x 1
+} "wrong # args: should be \"testgetindexfromobjstruct c 1\""
+test indexObj-6.4 {Tcl_GetIndexFromObjStruct} {
+ set x c
+ testgetindexfromobjstruct $x 1
+ testgetindexfromobjstruct $x 1
+} "wrong # args: should be \"testgetindexfromobjstruct c 1\""
+
# cleanup
::tcltest::cleanupTests
return