2015-03-22 04:28:03 -07:00
|
|
|
-- Test for problems in quickfix/location list:
|
|
|
|
-- 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.
|
|
|
|
|
2016-04-23 16:53:11 -07:00
|
|
|
local helpers = require('test.functional.helpers')(after_each)
|
2015-11-17 14:44:00 -07:00
|
|
|
local source = helpers.source
|
2017-04-08 14:12:26 -07:00
|
|
|
local clear, command, expect = helpers.clear, helpers.command, helpers.expect
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
describe('location list', function()
|
2018-01-31 19:12:37 -07:00
|
|
|
local test_file = 'Xtest-096_location_list.out'
|
2015-03-22 04:28:03 -07:00
|
|
|
setup(clear)
|
|
|
|
teardown(function()
|
2018-01-31 19:12:37 -07:00
|
|
|
os.remove(test_file)
|
2015-03-22 04:28:03 -07:00
|
|
|
end)
|
|
|
|
|
|
|
|
it('is working', function()
|
|
|
|
-- Set up the test environment.
|
|
|
|
source(
|
|
|
|
-- This function serves as a callback which is executed on editing a new
|
|
|
|
-- buffer. It accepts a "test protocol" file name that looks like
|
|
|
|
-- "test://foo.txt". It sets some buffer-local settings and populates the
|
|
|
|
-- buffer with one line consisting of the base name ("foo").
|
|
|
|
[[
|
|
|
|
function! ReadTestProtocol(name)
|
|
|
|
let base = substitute(a:name, '\v^test://(.*)%(\.[^.]+)?', '\1', '')
|
|
|
|
let word = substitute(base, '\v(.*)\..*', '\1', '')
|
2017-04-08 14:12:26 -07:00
|
|
|
|
2015-03-22 04:28:03 -07:00
|
|
|
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
|
2017-04-08 14:12:26 -07:00
|
|
|
|
2015-03-22 04:28:03 -07:00
|
|
|
call setline(1, word)
|
2017-04-08 14:12:26 -07:00
|
|
|
|
2015-03-22 04:28:03 -07:00
|
|
|
setl nomodified
|
|
|
|
setl nomodifiable
|
|
|
|
setl readonly
|
|
|
|
exe 'doautocmd BufRead ' . substitute(a:name, '\v^test://(.*)', '\1', '')
|
|
|
|
endfunction
|
2024-01-02 18:09:18 -07:00
|
|
|
]]
|
|
|
|
-- Register the above buffer setup function to be executed before
|
|
|
|
-- starting to edit a new "test protocol" buffer.
|
|
|
|
.. [[
|
2015-03-22 04:28:03 -07:00
|
|
|
augroup testgroup
|
|
|
|
au!
|
|
|
|
autocmd BufReadCmd test://* call ReadTestProtocol(expand("<amatch>"))
|
|
|
|
augroup END
|
2024-01-02 18:09:18 -07:00
|
|
|
]]
|
|
|
|
-- Populate the location list of the current window with some test
|
|
|
|
-- protocol file locations such as "test://foo.txt".
|
|
|
|
.. [[
|
2015-03-22 04:28:03 -07:00
|
|
|
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
|
2024-01-02 18:09:18 -07:00
|
|
|
]]
|
|
|
|
)
|
2015-03-22 04:28:03 -07:00
|
|
|
|
2018-01-31 19:12:37 -07:00
|
|
|
-- Set up the result buffer.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('enew')
|
2024-01-02 18:09:18 -07:00
|
|
|
command('w! ' .. test_file)
|
2017-04-08 14:12:26 -07:00
|
|
|
command('b 1')
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Test A.
|
|
|
|
|
|
|
|
-- Open a new buffer as the sole window, rewind and open the prepopulated
|
|
|
|
-- location list and navigate through the entries.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('lrewind')
|
|
|
|
command('enew')
|
|
|
|
command('lopen')
|
2017-04-08 16:02:53 -07:00
|
|
|
command(('lnext|'):rep(4))
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Split the window, copying the location list, then open the copied
|
|
|
|
-- location list and again navigate forward.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('vert split')
|
|
|
|
command('wincmd L')
|
|
|
|
command('lopen')
|
|
|
|
command('wincmd p')
|
|
|
|
command('lnext')
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Record the current file name and the file name of the corresponding
|
|
|
|
-- location list entry, then open the result buffer.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('let fileName = expand("%")')
|
|
|
|
command('wincmd p')
|
|
|
|
command([[let locationListFileName = substitute(getline(line('.')), '\([^|]*\)|.*', '\1', '')]])
|
|
|
|
command('wincmd n')
|
|
|
|
command('wincmd K')
|
2024-01-02 18:09:18 -07:00
|
|
|
command('b ' .. test_file)
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Prepare test output and write it to the result buffer.
|
2017-04-08 14:12:26 -07:00
|
|
|
command([[let fileName = substitute(fileName, '\\', '/', 'g')]])
|
|
|
|
command([[let locationListFileName = substitute(locationListFileName, '\\', '/', 'g')]])
|
|
|
|
command([[call append(line('$'), "Test A:")]])
|
|
|
|
command([[call append(line('$'), " - file name displayed: " . fileName)]])
|
2024-01-02 18:09:18 -07:00
|
|
|
command(
|
|
|
|
[[call append(line('$'), " - quickfix claims that the file name displayed is: " . locationListFileName)]]
|
|
|
|
)
|
2017-04-08 14:12:26 -07:00
|
|
|
command('w')
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Clean slate for the next test.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('wincmd o')
|
|
|
|
command('b 1')
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Test B.
|
|
|
|
|
|
|
|
-- Rewind the location list, then open it and browse through it by running
|
|
|
|
-- ":{number}" followed by Enter repeatedly in the location list window.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('lrewind')
|
|
|
|
command('lopen')
|
2017-04-08 16:02:53 -07:00
|
|
|
command('2')
|
|
|
|
command([[exe "normal \\<CR>"]])
|
2017-04-08 14:12:26 -07:00
|
|
|
command('wincmd p')
|
2017-04-08 16:02:53 -07:00
|
|
|
command('3')
|
|
|
|
command([[exe "normal \<CR>"]])
|
2017-04-08 14:12:26 -07:00
|
|
|
command('wincmd p')
|
2017-04-08 16:02:53 -07:00
|
|
|
command('4')
|
|
|
|
command([[exe "normal \<CR>"]])
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Record the number of windows open, then go back to the result buffer.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('let numberOfWindowsOpen = winnr("$")')
|
|
|
|
command('wincmd n')
|
|
|
|
command('wincmd K')
|
2024-01-02 18:09:18 -07:00
|
|
|
command('b ' .. test_file)
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Prepare test output and write it to the result buffer.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('call append(line("$"), "Test B:")')
|
|
|
|
command('call append(line("$"), " - number of window open: " . numberOfWindowsOpen)')
|
|
|
|
command('w')
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Clean slate.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('wincmd o')
|
|
|
|
command('b 1')
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Test C.
|
|
|
|
|
|
|
|
-- Rewind the location list, then open it and again do the ":{number}" plus
|
|
|
|
-- Enter browsing. But this time, 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.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('lrewind')
|
|
|
|
command('lopen')
|
|
|
|
command('wincmd K')
|
2017-04-08 16:02:53 -07:00
|
|
|
command('2')
|
|
|
|
command([[exe "normal \<CR>"]])
|
2017-04-08 14:12:26 -07:00
|
|
|
command('wincmd p')
|
2017-04-08 16:02:53 -07:00
|
|
|
command('3')
|
|
|
|
command([[exe "normal \<CR>"]])
|
2017-04-08 14:12:26 -07:00
|
|
|
command('wincmd p')
|
2017-04-08 16:02:53 -07:00
|
|
|
command('4')
|
|
|
|
command([[exe "normal \<CR>"]])
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Record the 'buftype' of window 1 (the location list) and the buffer name
|
|
|
|
-- of window 2 (the current "test protocol" buffer), then go back to the
|
|
|
|
-- result buffer.
|
2017-04-08 14:12:26 -07:00
|
|
|
command('1wincmd w')
|
|
|
|
command('let locationListWindowBufType = &buftype')
|
|
|
|
command('2wincmd w')
|
|
|
|
command('let bufferName = expand("%")')
|
|
|
|
command('wincmd n')
|
|
|
|
command('wincmd K')
|
2024-01-02 18:09:18 -07:00
|
|
|
command('b ' .. test_file)
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Prepare test output and write it to the result buffer.
|
2017-04-08 14:12:26 -07:00
|
|
|
command([[let bufferName = substitute(bufferName, '\\', '/', 'g')]])
|
|
|
|
command([[call append(line("$"), "Test C:")]])
|
2024-01-02 18:09:18 -07:00
|
|
|
command(
|
|
|
|
[[call append(line('$'), " - 'buftype' of the location list window: " . locationListWindowBufType)]]
|
|
|
|
)
|
2017-04-08 14:12:26 -07:00
|
|
|
command([[call append(line('$'), " - buffer displayed in the 2nd window: " . bufferName)]])
|
|
|
|
command('w')
|
|
|
|
command('wincmd o')
|
|
|
|
command('b 1')
|
2015-03-22 04:28:03 -07:00
|
|
|
|
|
|
|
-- Assert buffer contents.
|
|
|
|
expect([[
|
2017-04-08 14:12:26 -07:00
|
|
|
|
2015-03-22 04:28:03 -07:00
|
|
|
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]])
|
|
|
|
end)
|
|
|
|
end)
|