view src/testdir/view_util.vim @ 11083:ae86651164d7 v8.0.0430

patch 8.0.0430: options test fails or hangs on MS-Windows commit https://github.com/vim/vim/commit/bb962262eb6b18d93161d7506317d215ae80bfe5 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Mar 8 00:01:35 2017 +0100 patch 8.0.0430: options test fails or hangs on MS-Windows Problem: Options test fails or hangs on MS-Windows. Solution: Run it separately instead of part of test_alot. Use "-S" instead of "-u" to run the script. Fix failures.
author Christian Brabandt <cb@256bit.org>
date Wed, 08 Mar 2017 00:15:04 +0100
parents 678edb254216
children ba55861aa52c
line wrap: on
line source

" Functions about view shared by several tests

" ScreenLines(lnum, width) or
" ScreenLines([start, end], width)
function! ScreenLines(lnum, width) abort
  redraw!
  if type(a:lnum) == v:t_list
    let start = a:lnum[0]
    let end = a:lnum[1]
  else
    let start = a:lnum
    let end = a:lnum
  endif
  let lines = []
  for l in range(start, end)
    let lines += [join(map(range(1, a:width), 'nr2char(screenchar(l, v:val))'), '')]
  endfor
  return lines
endfunction

function! NewWindow(height, width) abort
  exe a:height . 'new'
  exe a:width . 'vsp'
  redraw!
endfunction

function! CloseWindow() abort
  bw!
  redraw!
endfunction