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 {}
} -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 *
|
|
|
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 {_}
} -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 *
|