mirror of
https://github.com/neovim/neovim.git
synced 2025-09-28 14:08:32 +00:00
tests: Migrate legacy test 96 #2220
This commit is contained in:

committed by
Justin M. Keyes

parent
34b5cee533
commit
9e91bb461f
@@ -27,7 +27,6 @@ SCRIPTS := test_autoformat_join.out \
|
||||
test76.out test79.out test80.out \
|
||||
test82.out test83.out \
|
||||
test86.out test87.out test88.out \
|
||||
test96.out \
|
||||
test_listlbr.out \
|
||||
test_breakindent.out \
|
||||
test_argument_count.out \
|
||||
|
@@ -1,142 +0,0 @@
|
||||
This will test for problems in quickfix:
|
||||
A. incorrectly copying location lists which caused the location list to show a
|
||||
different name than the file that was actually being displayed.
|
||||
B. not reusing the window for which the location list window is opened but
|
||||
instead creating new windows.
|
||||
C. make sure that the location list window is not reused instead of the window
|
||||
it belongs to.
|
||||
|
||||
Note: to debug a problem comment out the last ":b 1" in a test and testing will
|
||||
stop at this point.
|
||||
|
||||
STARTTEST
|
||||
:so small.vim
|
||||
: enew
|
||||
: w! test.out
|
||||
: b 1
|
||||
: " Set up the test environment:
|
||||
: function! ReadTestProtocol(name)
|
||||
: let base = substitute(a:name, '\v^test://(.*)%(\.[^.]+)?', '\1', '')
|
||||
: let word = substitute(base, '\v(.*)\..*', '\1', '')
|
||||
:
|
||||
: setl modifiable
|
||||
: setl noreadonly
|
||||
: setl noswapfile
|
||||
: setl bufhidden=delete
|
||||
: %del _
|
||||
: " For problem 2:
|
||||
: " 'buftype' has to be set to reproduce the constant opening of new windows
|
||||
: setl buftype=nofile
|
||||
:
|
||||
: call setline(1, word)
|
||||
:
|
||||
: setl nomodified
|
||||
: setl nomodifiable
|
||||
: setl readonly
|
||||
: exe 'doautocmd BufRead ' . substitute(a:name, '\v^test://(.*)', '\1', '')
|
||||
: endfunction
|
||||
: augroup testgroup
|
||||
: au!
|
||||
: autocmd BufReadCmd test://* call ReadTestProtocol(expand("<amatch>"))
|
||||
: augroup END
|
||||
: let words = [ "foo", "bar", "baz", "quux", "shmoo", "spam", "eggs" ]
|
||||
:
|
||||
: let qflist = []
|
||||
: for word in words
|
||||
: call add(qflist, {'filename': 'test://' . word . '.txt', 'text': 'file ' . word . '.txt', })
|
||||
: " NOTE: problem 1:
|
||||
: " intentionally not setting 'lnum' so that the quickfix entries are not
|
||||
: " valid
|
||||
: call setloclist(0, qflist, ' ')
|
||||
: endfor
|
||||
ENDTEST
|
||||
|
||||
Test A:
|
||||
STARTTEST
|
||||
:lrewind
|
||||
:enew
|
||||
:lopen
|
||||
:lnext
|
||||
:lnext
|
||||
:lnext
|
||||
:lnext
|
||||
:vert split
|
||||
:wincmd L
|
||||
:lopen
|
||||
:wincmd p
|
||||
:lnext
|
||||
:"b 1
|
||||
:let fileName = expand("%")
|
||||
:wincmd p
|
||||
:let locationListFileName = substitute(getline(line('.')), '\([^|]*\)|.*', '\1', '')
|
||||
:wincmd n
|
||||
:wincmd K
|
||||
:b test.out
|
||||
:let fileName = substitute(fileName, '\\', '/', 'g')
|
||||
:let locationListFileName = substitute(locationListFileName, '\\', '/', 'g')
|
||||
:call append(line('$'), "Test A:")
|
||||
:call append(line('$'), " - file name displayed: " . fileName)
|
||||
:call append(line('$'), " - quickfix claims that the file name displayed is: " . locationListFileName)
|
||||
:w
|
||||
:wincmd o
|
||||
:b 1
|
||||
ENDTEST
|
||||
|
||||
Test B:
|
||||
STARTTEST
|
||||
:lrewind
|
||||
:lopen
|
||||
:2
|
||||
:exe "normal \<CR>"
|
||||
:wincmd p
|
||||
:3
|
||||
:exe "normal \<CR>"
|
||||
:wincmd p
|
||||
:4
|
||||
:exe "normal \<CR>"
|
||||
:let numberOfWindowsOpen = winnr('$')
|
||||
:wincmd n
|
||||
:wincmd K
|
||||
:b test.out
|
||||
:call append(line('$'), "Test B:")
|
||||
:call append(line('$'), " - number of window open: " . numberOfWindowsOpen)
|
||||
:w
|
||||
:wincmd o
|
||||
:b 1
|
||||
ENDTEST
|
||||
|
||||
Test C:
|
||||
STARTTEST
|
||||
:lrewind
|
||||
:lopen
|
||||
:" Let's move the location list window to the top to check whether it (the first
|
||||
:" window found) will be reused when we try to open new windows:
|
||||
:wincmd K
|
||||
:2
|
||||
:exe "normal \<CR>"
|
||||
:wincmd p
|
||||
:3
|
||||
:exe "normal \<CR>"
|
||||
:wincmd p
|
||||
:4
|
||||
:exe "normal \<CR>"
|
||||
:1wincmd w
|
||||
:let locationListWindowBufType = &buftype
|
||||
:2wincmd w
|
||||
:let bufferName = expand("%")
|
||||
:wincmd n
|
||||
:wincmd K
|
||||
:b test.out
|
||||
:let bufferName = substitute(bufferName, '\\', '/', 'g')
|
||||
:call append(line('$'), "Test C:")
|
||||
:call append(line('$'), " - 'buftype' of the location list window: " . locationListWindowBufType)
|
||||
:call append(line('$'), " - buffer displayed in the 2nd window: " . bufferName)
|
||||
:w
|
||||
:wincmd o
|
||||
:b 1
|
||||
ENDTEST
|
||||
|
||||
STARTTEST
|
||||
:qa
|
||||
ENDTEST
|
||||
|
@@ -1,9 +0,0 @@
|
||||
|
||||
Test A:
|
||||
- file name displayed: test://bar.txt
|
||||
- quickfix claims that the file name displayed is: test://bar.txt
|
||||
Test B:
|
||||
- number of window open: 2
|
||||
Test C:
|
||||
- 'buftype' of the location list window: quickfix
|
||||
- buffer displayed in the 2nd window: test://quux.txt
|
Reference in New Issue
Block a user