|
5948
|
1 Tests for adjusting window and contents vim: set ft=vim :
|
|
|
2
|
|
|
3 STARTTEST
|
|
|
4 :so small.vim
|
|
|
5 :new
|
|
|
6 :call setline(1, range(1,256))
|
|
|
7 :let r=[]
|
|
|
8 :func! GetScreenStr(row)
|
|
|
9 : let str = ""
|
|
|
10 : for c in range(1,3)
|
|
|
11 : let str .= nr2char(screenchar(a:row, c))
|
|
|
12 : endfor
|
|
|
13 : return str
|
|
|
14 :endfunc
|
|
|
15 :
|
|
|
16 :exe ":norm! \<C-W>t\<C-W>=1Gzt\<C-W>w\<C-W>+"
|
|
|
17 :let s3=GetScreenStr(1)
|
|
|
18 :wincmd p
|
|
|
19 :call add(r, [line("w0"), s3])
|
|
|
20 :
|
|
|
21 :exe ":norm! \<C-W>t\<C-W>=50Gzt\<C-W>w\<C-W>+"
|
|
|
22 :let s3=GetScreenStr(1)
|
|
|
23 :wincmd p
|
|
|
24 :call add(r, [line("w0"), s3])
|
|
|
25 :
|
|
|
26 :exe ":norm! \<C-W>t\<C-W>=59Gzt\<C-W>w\<C-W>+"
|
|
|
27 :let s3=GetScreenStr(1)
|
|
|
28 ::wincmd p
|
|
|
29 :call add(r, [line("w0"), s3])
|
|
|
30 :
|
|
|
31 :bwipeout!
|
|
|
32 :$put=r
|
|
|
33 :call garbagecollect(1)
|
|
|
34 :"
|
|
|
35 :/^start:/,$wq! test.out
|
|
|
36 ENDTEST
|
|
|
37
|
|
|
38 start:
|
