diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 07:23:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-05 07:23:17 (GMT) |
| commit | bdc95807199b5fb2ad244fbd2a595825cdee1fc1 (patch) | |
| tree | e18f2274df06f9ee7e6d70c2d58b244fba0192c1 /tests/textBTree.test | |
| parent | 884c9570fffd13b20d87151fe979e3e09edd5ed8 (diff) | |
| download | tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.zip tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.tar.gz tk-bdc95807199b5fb2ad244fbd2a595825cdee1fc1.tar.bz2 | |
Use single-argument "expr" as much as possible. Not complete yet, but most trivial places are done.
Diffstat (limited to 'tests/textBTree.test')
| -rw-r--r-- | tests/textBTree.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/textBTree.test b/tests/textBTree.test index ebd6c50..fd97afa 100644 --- a/tests/textBTree.test +++ b/tests/textBTree.test @@ -422,8 +422,8 @@ test btree-6.5 {very large deletes, with tags} -setup { setup .t insert 1.1 $bigText2 for {set i 0} {$i < 100} {incr i} { - set j [expr $i+2] - set k [expr 1+2*$i] + set j [expr {$i+2}] + set k [expr {1+2*$i}] .t tag add x $j.1 $j.3 .t tag add y $k.1 $k.6 } @@ -439,13 +439,13 @@ test btree-6.6 {very large deletes, with tags} -setup { setup .t insert 1.1 $bigText2 for {set i 0} {$i < 100} {incr i} { - set j [expr $i+2] - set k [expr 1+2*$i] + set j [expr {$i+2}] + set k [expr {1+2*$i}] .t tag add x $j.1 $j.3 .t tag add y $k.1 $k.6 } for {set i 199} {$i >= 2} {incr i -1} { - .t delete $i.0 [expr $i+1].0 + .t delete $i.0 [expr {$i+1}].0 } list [.t tag ranges x] [.t tag ranges y] } -result {{3.0 3.1 3.4 3.12 4.2 4.6} {1.1 1.6 3.4 3.5}} |