Fix test title, since TclGetIntForIndex() is now exported as Tcl_GetIntForIndex()

1 files changed, 80 insertions, 80 deletions

diff --git a/tests/util.test b/tests/util.test
index a9199f4..053eb0c 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -532,247 +532,247 @@ test util-8.6 {TclNeedSpace - correct UTF8 handling} testdstring {
     list [llength [testdstring get]] [string length [testdstring get]]
 } {2 9}
 
-test util-9.0.0 {TclGetIntForIndex} {
+test util-9.0.0 {Tcl_GetIntForIndex} {
     string index abcd 0
 } a
-test util-9.0.1 {TclGetIntForIndex} {
+test util-9.0.1 {Tcl_GetIntForIndex} {
     string index abcd 0x0
 } a
-test util-9.0.2 {TclGetIntForIndex} {
+test util-9.0.2 {Tcl_GetIntForIndex} {
     string index abcd -0x0
 } a
-test util-9.0.3 {TclGetIntForIndex} {
+test util-9.0.3 {Tcl_GetIntForIndex} {
     string index abcd { 0 }
 } a
-test util-9.0.4 {TclGetIntForIndex} {
+test util-9.0.4 {Tcl_GetIntForIndex} {
     string index abcd { 0x0 }
 } a
-test util-9.0.5 {TclGetIntForIndex} {
+test util-9.0.5 {Tcl_GetIntForIndex} {
     string index abcd { -0x0 }
 } a
-test util-9.0.6 {TclGetIntForIndex} {
+test util-9.0.6 {Tcl_GetIntForIndex} {
     string index abcd 01
 } b
-test util-9.0.7 {TclGetIntForIndex} {
+test util-9.0.7 {Tcl_GetIntForIndex} {
     string index abcd { 01 }
 } b
-test util-9.0.8 {TclGetIntForIndex} {
+test util-9.0.8 {Tcl_GetIntForIndex} {
     string index abcd { 0d0 }
 } a
-test util-9.0.9 {TclGetIntForIndex} {
+test util-9.0.9 {Tcl_GetIntForIndex} {
     string index abcd { -0d0 }
 } a
-test util-9.1.0 {TclGetIntForIndex} {
+test util-9.1.0 {Tcl_GetIntForIndex} {
     string index abcd 3
 } d
-test util-9.1.1 {TclGetIntForIndex} {
+test util-9.1.1 {Tcl_GetIntForIndex} {
     string index abcd { 3 }
 } d
-test util-9.1.2 {TclGetIntForIndex} {
+test util-9.1.2 {Tcl_GetIntForIndex} {
     string index abcdefghijk 0xa
 } k
-test util-9.1.3 {TclGetIntForIndex} {
+test util-9.1.3 {Tcl_GetIntForIndex} {
     string index abcdefghijk { 0xa }
 } k
-test util-9.1.4 {TclGetIntForIndex} {
+test util-9.1.4 {Tcl_GetIntForIndex} {
     string index abcdefghijk 0d10
 } k
-test util-9.1.5 {TclGetIntForIndex} {
+test util-9.1.5 {Tcl_GetIntForIndex} {
     string index abcdefghijk { 0d10 }
 } k
-test util-9.2.0 {TclGetIntForIndex} {
+test util-9.2.0 {Tcl_GetIntForIndex} {
     string index abcd end
 } d
-test util-9.2.1 {TclGetIntForIndex} -body {
+test util-9.2.1 {Tcl_GetIntForIndex} -body {
     string index abcd { end}
 } -returnCodes error -match glob -result *
-test util-9.2.2 {TclGetIntForIndex} -body {
+test util-9.2.2 {Tcl_GetIntForIndex} -body {
     string index abcd {end }
 } -returnCodes error -match glob -result *
-test util-9.3 {TclGetIntForIndex} -body {
+test util-9.3 {Tcl_GetIntForIndex} -body {
     # Deprecated
     string index abcd en
 } -returnCodes error -match glob -result *
-test util-9.4 {TclGetIntForIndex} -body {
+test util-9.4 {Tcl_GetIntForIndex} -body {
     # Deprecated
     string index abcd e
 } -returnCodes error -match glob -result *
-test util-9.5.0 {TclGetIntForIndex} {
+test util-9.5.0 {Tcl_GetIntForIndex} {
     string index abcd end-1
 } c
-test util-9.5.1 {TclGetIntForIndex} {
+test util-9.5.1 {Tcl_GetIntForIndex} {
     string index abcd {end-1 }
 } c
-test util-9.5.2 {TclGetIntForIndex} -body {
+test util-9.5.2 {Tcl_GetIntForIndex} -body {
     string index abcd { end-1}
 } -returnCodes error -match glob -result *
-test util-9.6 {TclGetIntForIndex} {
+test util-9.6 {Tcl_GetIntForIndex} {
     string index abcd end+-1
 } c
-test util-9.7 {TclGetIntForIndex} {
+test util-9.7 {Tcl_GetIntForIndex} {
     string index abcd end+1
 } {}
-test util-9.8 {TclGetIntForIndex} {
+test util-9.8 {Tcl_GetIntForIndex} {
     string index abcd end--1
 } {}
-test util-9.9.0 {TclGetIntForIndex} {
+test util-9.9.0 {Tcl_GetIntForIndex} {
     string index abcd 0+0
 } a
-test util-9.9.1 {TclGetIntForIndex} {
+test util-9.9.1 {Tcl_GetIntForIndex} {
     string index abcd { 0+0 }
 } a
-test util-9.10 {TclGetIntForIndex} {
+test util-9.10 {Tcl_GetIntForIndex} {
     string index abcd 0-0
 } a
-test util-9.11 {TclGetIntForIndex} {
+test util-9.11 {Tcl_GetIntForIndex} {
     string index abcd 1+0
 } b
-test util-9.12 {TclGetIntForIndex} {
+test util-9.12 {Tcl_GetIntForIndex} {
     string index abcd 1-0
 } b
-test util-9.13 {TclGetIntForIndex} {
+test util-9.13 {Tcl_GetIntForIndex} {
     string index abcd 1+1
 } c
-test util-9.14 {TclGetIntForIndex} {
+test util-9.14 {Tcl_GetIntForIndex} {
     string index abcd 1-1
 } a
-test util-9.15 {TclGetIntForIndex} {
+test util-9.15 {Tcl_GetIntForIndex} {
     string index abcd -1+2
 } b
-test util-9.16 {TclGetIntForIndex} {
+test util-9.16 {Tcl_GetIntForIndex} {
     string index abcd -1--2
 } b
-test util-9.17 {TclGetIntForIndex} {
+test util-9.17 {Tcl_GetIntForIndex} {
     string index abcd { -1+2 }
 } b
-test util-9.18 {TclGetIntForIndex} {
+test util-9.18 {Tcl_GetIntForIndex} {
     string index abcd { -1--2 }
 } b
-test util-9.19 {TclGetIntForIndex} -body {
+test util-9.19 {Tcl_GetIntForIndex} -body {
     string index a {}
 } -returnCodes error -match glob -result *
-test util-9.20 {TclGetIntForIndex} -body {
+test util-9.20 {Tcl_GetIntForIndex} -body {
     string index a { }
 } -returnCodes error -match glob -result *
-test util-9.21 {TclGetIntForIndex} -body {
+test util-9.21 {Tcl_GetIntForIndex} -body {
     string index a " \r\t\n"
 } -returnCodes error -match glob -result *
-test util-9.22 {TclGetIntForIndex} -body {
+test util-9.22 {Tcl_GetIntForIndex} -body {
     string index a +
 } -returnCodes error -match glob -result *
-test util-9.23 {TclGetIntForIndex} -body {
+test util-9.23 {Tcl_GetIntForIndex} -body {
     string index a -
 } -returnCodes error -match glob -result *
-test util-9.24 {TclGetIntForIndex} -body {
+test util-9.24 {Tcl_GetIntForIndex} -body {
     string index a x
 } -returnCodes error -match glob -result *
-test util-9.25 {TclGetIntForIndex} -body {
+test util-9.25 {Tcl_GetIntForIndex} -body {
     string index a +x
 } -returnCodes error -match glob -result *
-test util-9.26 {TclGetIntForIndex} -body {
+test util-9.26 {Tcl_GetIntForIndex} -body {
     string index a -x
 } -returnCodes error -match glob -result *
-test util-9.27 {TclGetIntForIndex} -body {
+test util-9.27 {Tcl_GetIntForIndex} -body {
     string index a 0y
 } -returnCodes error -match glob -result *
-test util-9.28 {TclGetIntForIndex} -body {
+test util-9.28 {Tcl_GetIntForIndex} -body {
     string index a 1*
 } -returnCodes error -match glob -result *
-test util-9.29 {TclGetIntForIndex} -body {
+test util-9.29 {Tcl_GetIntForIndex} -body {
     string index a 0+
 } -returnCodes error -match glob -result *
-test util-9.30 {TclGetIntForIndex} -body {
+test util-9.30 {Tcl_GetIntForIndex} -body {
     string index a {0+ }
 } -returnCodes error -match glob -result *
-test util-9.31 {TclGetIntForIndex} -body {
+test util-9.31 {Tcl_GetIntForIndex} -body {
     string index a 0x
 } -returnCodes error -match glob -result *
-test util-9.31.1 {TclGetIntForIndex} -body {
+test util-9.31.1 {Tcl_GetIntForIndex} -body {
     string index a 0d
 } -returnCodes error -match glob -result *
-test util-9.32 {TclGetIntForIndex} -body {
+test util-9.32 {Tcl_GetIntForIndex} -body {
     string index a 0x1FFFFFFFF+0
 } -result {}
-test util-9.33 {TclGetIntForIndex} -body {
+test util-9.33 {Tcl_GetIntForIndex} -body {
     string index a 100000000000+0
 } -result {}
-test util-9.33.1 {TclGetIntForIndex} -body {
+test util-9.33.1 {Tcl_GetIntForIndex} -body {
     string index a 0d100000000000+0
 } -result {}
-test util-9.34 {TclGetIntForIndex} -body {
+test util-9.34 {Tcl_GetIntForIndex} -body {
     string index a 1.0
 } -returnCodes error -match glob -result *
-test util-9.35 {TclGetIntForIndex} -body {
+test util-9.35 {Tcl_GetIntForIndex} -body {
     string index a 1e23
 } -returnCodes error -match glob -result *
-test util-9.36 {TclGetIntForIndex} -body {
+test util-9.36 {Tcl_GetIntForIndex} -body {
     string index a 1.5e2
 } -returnCodes error -match glob -result *
-test util-9.37 {TclGetIntForIndex} -body {
+test util-9.37 {Tcl_GetIntForIndex} -body {
     string index a 0+x
 } -returnCodes error -match glob -result *
-test util-9.38 {TclGetIntForIndex} -body {
+test util-9.38 {Tcl_GetIntForIndex} -body {
     string index a 0+0x
 } -returnCodes error -match glob -result *
-test util-9.39 {TclGetIntForIndex} -body {
+test util-9.39 {Tcl_GetIntForIndex} -body {
     string index a 0+0xg
 } -returnCodes error -match glob -result *
-test util-9.40 {TclGetIntForIndex} -body {
+test util-9.40 {Tcl_GetIntForIndex} -body {
     string index a 0+0xg
 } -returnCodes error -match glob -result *
-test util-9.41 {TclGetIntForIndex} -body {
+test util-9.41 {Tcl_GetIntForIndex} -body {
     string index a 0+1.0
 } -returnCodes error -match glob -result *
-test util-9.42 {TclGetIntForIndex} -body {
+test util-9.42 {Tcl_GetIntForIndex} -body {
     string index a 0+1e2
 } -returnCodes error -match glob -result *
-test util-9.43 {TclGetIntForIndex} -body {
+test util-9.43 {Tcl_GetIntForIndex} -body {
     string index a 0+1.5e1
 } -returnCodes error -match glob -result *
-test util-9.44 {TclGetIntForIndex} -body {
+test util-9.44 {Tcl_GetIntForIndex} -body {
     string index a 0+1000000000000
 } -result {}
-test util-9.45 {TclGetIntForIndex} {
+test util-9.45 {Tcl_GetIntForIndex} {
     string index abcd end+2305843009213693950
 } {}
-test util-9.46 {TclGetIntForIndex} {
+test util-9.46 {Tcl_GetIntForIndex} {
     string index abcd end+4294967294
 } {}
 # TIP 502
-test util-9.47 {TclGetIntForIndex} {
+test util-9.47 {Tcl_GetIntForIndex} {
     string index abcd 0x10000000000000000
 } {}
-test util-9.48 {TclGetIntForIndex} {
+test util-9.48 {Tcl_GetIntForIndex} {
     string index abcd -0x10000000000000000
 } {}
-test util-9.49 {TclGetIntForIndex} -body {
+test util-9.49 {Tcl_GetIntForIndex} -body {
     string index abcd end*1
 } -returnCodes error -match glob -result *
-test util-9.50 {TclGetIntForIndex} -body {
+test util-9.50 {Tcl_GetIntForIndex} -body {
     string index abcd {end- 1}
 } -returnCodes error -match glob -result *
-test util-9.51 {TclGetIntForIndex} -body {
+test util-9.51 {Tcl_GetIntForIndex} -body {
     string index abcd end-end
 } -returnCodes error -match glob -result *
-test util-9.52 {TclGetIntForIndex} -body {
+test util-9.52 {Tcl_GetIntForIndex} -body {
     string index abcd end-x
 } -returnCodes error -match glob -result *
-test util-9.53 {TclGetIntForIndex} -body {
+test util-9.53 {Tcl_GetIntForIndex} -body {
     string index abcd end-0.1
 } -returnCodes error -match glob -result *
-test util-9.54 {TclGetIntForIndex} {
+test util-9.54 {Tcl_GetIntForIndex} {
     string index abcd end-0x10000000000000000
 } {}
-test util-9.55 {TclGetIntForIndex} {
+test util-9.55 {Tcl_GetIntForIndex} {
     string index abcd end+0x10000000000000000
 } {}
-test util-9.56 {TclGetIntForIndex} {
+test util-9.56 {Tcl_GetIntForIndex} {
     string index abcd end--0x10000000000000000
 } {}
-test util-9.57 {TclGetIntForIndex} {
+test util-9.57 {Tcl_GetIntForIndex} {
     string index abcd end+-0x10000000000000000
 } {}
-test util-9.58 {TclGetIntForIndex} {
+test util-9.58 {Tcl_GetIntForIndex} {
     string index abcd end--0x8000000000000000
 } {}