neovim/test/functional/options/mousescroll_spec.lua

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

172 lines
4.0 KiB
Lua
Raw Normal View History

local t = require('test.testutil')
local n = require('test.functional.testnvim')()
local command = n.command
local clear = n.clear
local eval = n.eval
local eq = t.eq
local exc_exec = n.exc_exec
local feed = n.feed
local scroll = function(direction)
return n.request('nvim_input_mouse', 'wheel', direction, '', 0, 2, 2)
end
local screenrow = function()
return n.call('screenrow')
end
local screencol = function()
return n.call('screencol')
end
describe("'mousescroll'", function()
local invalid_arg = 'Vim(set):E474: Invalid argument: mousescroll='
local digit_expected = 'Vim(set):E5080: Digit expected: mousescroll='
local function should_fail(val, errorstr)
eq(errorstr .. val, exc_exec('set mousescroll=' .. val))
end
local function should_succeed(val)
eq(0, exc_exec('set mousescroll=' .. val))
end
before_each(function()
clear()
command('set nowrap lines=20 columns=20 virtualedit=all')
feed('100o<Esc>50G10|')
end)
it('handles invalid values', function()
should_fail('', invalid_arg) -- empty string
should_fail('foo:123', invalid_arg) -- unknown direction
should_fail('hor:1,hor:2', invalid_arg) -- duplicate direction
should_fail('ver:99999999999999999999', invalid_arg) -- integer overflow
should_fail('ver:bar', digit_expected) -- expected digit
should_fail('ver:-1', digit_expected) -- negative count
end)
it('handles valid values', function()
should_succeed('hor:1,ver:1') -- both directions set
should_succeed('hor:1') -- only horizontal
should_succeed('ver:1') -- only vertical
should_succeed('hor:0,ver:0') -- zero
should_succeed('hor:2147483647') -- large count
end)
it('default set correctly', function()
eq('ver:3,hor:6', eval('&mousescroll'))
eq(10, screenrow())
scroll('up')
eq(13, screenrow())
scroll('down')
eq(10, screenrow())
eq(10, screencol())
scroll('right')
eq(4, screencol())
scroll('left')
eq(10, screencol())
end)
it('vertical scrolling falls back to default value', function()
command('set mousescroll=hor:1')
eq(10, screenrow())
scroll('up')
eq(13, screenrow())
end)
it('horizontal scrolling falls back to default value', function()
command('set mousescroll=ver:1')
eq(10, screencol())
scroll('right')
eq(4, screencol())
end)
it('count of zero disables mouse scrolling', function()
command('set mousescroll=hor:0,ver:0')
eq(10, screenrow())
scroll('up')
eq(10, screenrow())
scroll('down')
eq(10, screenrow())
eq(10, screencol())
scroll('right')
eq(10, screencol())
scroll('left')
eq(10, screencol())
-- vertical scrolling is still disabled with non-zero 'scrolloff' value
command('set scrolloff=1')
eq(10, screenrow())
scroll('up')
eq(10, screenrow())
scroll('down')
eq(10, screenrow())
-- also in insert mode
feed('i')
eq(10, screenrow())
scroll('up')
eq(10, screenrow())
scroll('down')
eq(10, screenrow())
end)
local test_vertical_scrolling = function()
eq(10, screenrow())
command('set mousescroll=ver:1')
scroll('up')
eq(11, screenrow())
command('set mousescroll=ver:2')
scroll('down')
eq(9, screenrow())
command('set mousescroll=ver:5')
scroll('up')
eq(14, screenrow())
end
it('controls vertical scrolling in normal mode', function()
test_vertical_scrolling()
end)
it('controls vertical scrolling in insert mode', function()
feed('i')
test_vertical_scrolling()
end)
local test_horizontal_scrolling = function()
eq(10, screencol())
command('set mousescroll=hor:1')
scroll('right')
eq(9, screencol())
command('set mousescroll=hor:3')
scroll('right')
eq(6, screencol())
command('set mousescroll=hor:2')
scroll('left')
eq(8, screencol())
end
it('controls horizontal scrolling in normal mode', function()
test_horizontal_scrolling()
end)
it('controls horizontal scrolling in insert mode', function()
feed('i')
test_horizontal_scrolling()
end)
end)