1" Tests for the Tcl interface. 2 3if !has('tcl') 4 finish 5end 6 7function 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! 22endfunc 23 24