diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 08:51:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 08:51:11 (GMT) |
| commit | d68dd76dda5d0c1fc5c495b0efcb63ad73d0bc40 (patch) | |
| tree | 583ec386dfbb7fed964995e459b7d7f889fb476e /tests/select.test | |
| parent | 44d078c5d21c220c383b630169a60230ee010434 (diff) | |
| parent | bdc95807199b5fb2ad244fbd2a595825cdee1fc1 (diff) | |
| download | tk-d68dd76dda5d0c1fc5c495b0efcb63ad73d0bc40.zip tk-d68dd76dda5d0c1fc5c495b0efcb63ad73d0bc40.tar.gz tk-d68dd76dda5d0c1fc5c495b0efcb63ad73d0bc40.tar.bz2 | |
Merge 8.6
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 "" |