688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
|
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
|
-
+
|
test util-9.17 {Tcl_GetIntForIndex} {
string index abcd { -1+2 }
} b
test util-9.18 {Tcl_GetIntForIndex} {
string index abcd { -1--2 }
} b
test util-9.19 {Tcl_GetIntForIndex} -body {
string index a {_}
string index a _
} -returnCodes error -match glob -result *
test util-9.20 {Tcl_GetIntForIndex} -body {
string index a { }
} -returnCodes error -match glob -result *
test util-9.21 {Tcl_GetIntForIndex} -body {
string index a " \r\t\n"
} -returnCodes error -match glob -result *
|
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
|
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
|
-
+
-
+
|
test util-9.46 {Tcl_GetIntForIndex} -constraints nodep -body {
string index abcd end+4294967294
} -result {}
# TIP 502
test util-9.47 {Tcl_GetIntForIndex} -body {
string index abcd 0x10000000000000000
} -result {}
test util-9.48 {Tcl_GetIntForIndex} -constraints nodep -body {
test util-9.48 {Tcl_GetIntForIndex} nodep {
string index abcd -0x10000000000000000
} -result {}
} {}
test util-9.49 {Tcl_GetIntForIndex} -body {
string index abcd end*1
} -returnCodes error -match glob -result *
test util-9.50 {Tcl_GetIntForIndex} -body {
string index abcd {end- 1}
} -returnCodes error -match glob -result *
test util-9.51 {Tcl_GetIntForIndex} -body {
|