diff options
Diffstat (limited to 'tests/select.test')
| -rw-r--r-- | tests/select.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/select.test b/tests/select.test index 568749f..9146397 100644 --- a/tests/select.test +++ b/tests/select.test @@ -36,7 +36,7 @@ proc handler {type offset count} { if {$numBytes <= 0} { return "" } - string range $selValue $offset [expr $numBytes+$offset] + string range $selValue $offset [expr {$numBytes+$offset}] } proc errIncrHandler {type offset count} { @@ -55,7 +55,7 @@ proc errIncrHandler {type offset count} { if {$numBytes <= 0} { return "" } - string range $selValue $offset [expr $numBytes+$offset] + string range $selValue $offset [expr {$numBytes+$offset}] } proc errHandler args { @@ -70,7 +70,7 @@ proc badHandler {path type offset count} { if {$numBytes <= 0} { return "" } - string range $selValue $offset [expr $numBytes+$offset] + string range $selValue $offset [expr {$numBytes+$offset}] } proc reallyBadHandler {path type offset count} { global selValue selInfo pass @@ -86,7 +86,7 @@ proc reallyBadHandler {path type offset count} { if {$numBytes <= 0} { return "" } - string range $selValue $offset [expr $numBytes+$offset] + string range $selValue $offset [expr {$numBytes+$offset}] } # Eliminate any existing selection on the screen. This is needed in case @@ -1147,7 +1147,7 @@ test select-13.1 {SelectionSize procedure, handler deleted} -constraints { if {$numBytes <= 0} { return "" } - string range $selValue $offset [expr $numBytes+$offset] + string range $selValue $offset [expr {$numBytes+$offset}] } set selValue $longValue set selInfo "" |