Merge PR #1879 'Migrate legacy test 107'

This commit is contained in:
Thiago de Arruda 2015-01-23 21:17:26 -03:00
commit a6a75718a2
3 changed files with 59 additions and 42 deletions

View File

@ -1,38 +0,0 @@
Tests for adjusting window and contents vim: set ft=vim :
STARTTEST
:so small.vim
:new
:call setline(1, range(1,256))
:let r=[]
:func! GetScreenStr(row)
: let str = ""
: for c in range(1,3)
: let str .= nr2char(screenchar(a:row, c))
: endfor
: return str
:endfunc
:
:exe ":norm! \<C-W>t\<C-W>=1Gzt\<C-W>w\<C-W>+"
:let s3=GetScreenStr(1)
:wincmd p
:call add(r, [line("w0"), s3])
:
:exe ":norm! \<C-W>t\<C-W>=50Gzt\<C-W>w\<C-W>+"
:let s3=GetScreenStr(1)
:wincmd p
:call add(r, [line("w0"), s3])
:
:exe ":norm! \<C-W>t\<C-W>=59Gzt\<C-W>w\<C-W>+"
:let s3=GetScreenStr(1)
::wincmd p
:call add(r, [line("w0"), s3])
:
:bwipeout!
:$put=r
:call garbagecollect(1)
:"
:/^start:/,$wq! test.out
ENDTEST
start:

View File

@ -1,4 +0,0 @@
start:
[1, '1 ']
[50, '50 ']
[59, '59 ']

View File

@ -0,0 +1,59 @@
-- Tests for adjusting window and contents
local helpers = require('test.functional.helpers')
local Screen = require('test.functional.ui.screen')
local feed, insert, source = helpers.feed, helpers.insert, helpers.source
local clear, execute, expect = helpers.clear, helpers.execute, helpers.expect
describe('107', function()
setup(clear)
it('is working', function()
local screen = Screen.new()
screen:attach()
insert('start:')
execute('new')
execute('call setline(1, range(1,256))')
execute('let r=[]')
execute('func! GetScreenStr(row)')
execute(' let str = ""')
execute(' for c in range(1,3)')
execute(' let str .= nr2char(screenchar(a:row, c))')
execute(' endfor')
execute(' return str')
execute('endfunc')
execute([[exe ":norm! \<C-W>t\<C-W>=1Gzt\<C-W>w\<C-W>+"]])
execute('let s3=GetScreenStr(1)')
execute('wincmd p')
execute('call add(r, [line("w0"), s3])')
execute([[exe ":norm! \<C-W>t\<C-W>=50Gzt\<C-W>w\<C-W>+"]])
execute('let s3=GetScreenStr(1)')
execute('wincmd p')
execute('call add(r, [line("w0"), s3])')
execute([[exe ":norm! \<C-W>t\<C-W>=59Gzt\<C-W>w\<C-W>+"]])
execute('let s3=GetScreenStr(1)')
execute(':wincmd p')
execute('call add(r, [line("w0"), s3])')
execute('bwipeout!')
execute('$put=r')
execute('call garbagecollect(1)')
screen:expect([[
start: |
[1, '1 '] |
[50, '50 '] |
^59, '59 '] |
~ |
~ |
~ |
~ |
~ |
~ |
~ |
~ |
~ |
:call garbagecollect(1) |
]])
end)
end)