| Bram Moolenaar | a4c906a | 2017-01-29 23:26:37 +0100 | [diff] [blame] | 1 | " Tests for the Tcl interface. |
| 2 | |
| 3 | if !has('tcl') |
| 4 | finish |
| 5 | end |
| 6 | |
| 7 | function Test_tcldo() |
| 8 | " Check deleting lines does not trigger ml_get error. |
| 9 | new |
| 10 | call setline(1, ['one', 'two', 'three']) |
| 11 | tcldo ::vim::command %d_ |
| 12 | bwipe! |
| 13 | |
| 14 | " Check switching to another buffer does not trigger ml_get error. |
| 15 | new |
| 16 | let wincount = winnr('$') |
| 17 | call setline(1, ['one', 'two', 'three']) |
| 18 | tcldo ::vim::command new |
| 19 | call assert_equal(wincount + 1, winnr('$')) |
| 20 | bwipe! |
| 21 | bwipe! |
| 22 | endfunc |
| 23 | |