diff options
Diffstat (limited to 'mnv/src/testdir/test_clipmethod.mnv')
| -rw-r--r-- | mnv/src/testdir/test_clipmethod.mnv | 228 |
1 files changed, 228 insertions, 0 deletions
diff --git a/mnv/src/testdir/test_clipmethod.mnv b/mnv/src/testdir/test_clipmethod.mnv new file mode 100644 index 0000000000..6fdab83a0a --- /dev/null +++ b/mnv/src/testdir/test_clipmethod.mnv @@ -0,0 +1,228 @@ +" Tests for clipmethod + +source util/window_manager.mnv + +CheckFeature clipboard_working + +" Test if no available clipmethod sets v:clipmethod to none and deinits clipboard +func Test_no_clipmethod_sets_v_clipmethod_none() + CheckFeature xterm_clipboard + CheckFeature wayland_clipboard + CheckUnix + CheckNotGui + + set clipmethod= + call assert_equal("none", v:clipmethod) + call assert_equal(0, has('clipboard_working')) + + set clipmethod& +endfunc + +" Test if method chosen is in line with clipmethod order +func Test_clipmethod_order() + CheckFeature xterm_clipboard + CheckFeature wayland_clipboard + CheckUnix + CheckNotGui + + set cpm=wayland,x11 + + let l:wayland_display = StartWaylandCompositor() + + let $WAYLAND_DISPLAY = l:wayland_display + exe 'wlrestore ' .. l:wayland_display + + call assert_equal("wayland", v:clipmethod) + + :wlrestore 1239 + clipreset + + if exists("$DISPLAY") + call assert_equal("x11", v:clipmethod) + endif + + :xrestore 1239 + clipreset + + call assert_equal("none", v:clipmethod) + call assert_equal(0, has('clipboard_working')) + + exe ":wlrestore " . $WAYLAND_DISPLAY + exe ":xrestore " . $DISPLAY + clipreset + + call assert_equal("wayland", v:clipmethod) + call assert_equal(1, has('clipboard_working')) + + if exists("$DISPLAY") + set cpm=x11 + + call assert_equal("x11", v:clipmethod) + endif + + set cpm=wayland + + call assert_equal("wayland", v:clipmethod) + + call EndWaylandCompositor(l:wayland_display) + + set clipmethod& +endfunc + +" Test if clipmethod is set to 'none' when gui is started +func Test_clipmethod_is_none_when_gui() + CheckCanRunGui + + let lines =<< trim END + set cpm=wayland,x11 + call writefile([v:clipmethod != ""], 'Cbdscript') + gui -f + call writefile([v:clipmethod], 'Cbdscript', 'a') + clipreset + call writefile([v:clipmethod], 'Cbdscript', 'a') + quit + END + + call writefile(lines, 'Cbdscript', 'D') + call system($'{GetMNVCommand()} -S Cbdscript') + call assert_equal(['1', 'none', 'none'], readfile('Cbdscript')) +endfunc + +" Test if :clipreset switches methods when current one doesn't work +func Test_clipreset_switches() + CheckFeature xterm_clipboard + CheckFeature wayland_clipboard + CheckUnix + CheckNotGui + CheckFeature clientserver + CheckXServer + CheckWaylandCompositor + + let l:wayland_display = StartWaylandCompositor() + + set cpm=wayland,x11 + + exe 'wlrestore ' .. l:wayland_display + + call assert_equal(l:wayland_display, v:wayland_display) + call assert_equal("wayland", v:clipmethod) + + call EndWaylandCompositor(l:wayland_display) + + " wlrestore updates clipmethod as well + wlrestore! + + call assert_equal("", v:wayland_display) + if exists("$DISPLAY") + call assert_equal("x11", v:clipmethod) + endif + + " Do the same but kill a X11 server + + " X11 error handling relies on longjmp magic, but essentially if the X server + " is killed then it will simply abandon the current commands, making the test + " hang. + + " This will only happen for commands given from the command line, which + " is why we cannot just directly call MNV or use the actual MNV instance + " that's doing all the testing, since main_loop() is never executed. + + " Therefore we should start a separate MNV instance and communicate with it + " remotely, so we can execute the actual testing stuff with main_loop() + " running. + + let l:lines =<< trim END + set cpm=x11 + source util/shared.mnv + + func Test() + clipreset + + if v:clipmethod ==# 'none' + return 1 + endif + return 0 + endfunc + + func DoIt() + call WaitFor(function('Test')) + + if v:clipmethod == 'none' + call writefile(['SUCCESS'], 'Xtest') + else + call writefile(['FAIL'], 'Xtest') + endif + quitall + endfunc + END + call writefile(l:lines, 'Xtester', 'D') + + let l:xdisplay = StartXServer() + + let l:name = 'XMNVTEST' + let l:cmd = GetMNVCommand() .. ' -S Xtester --servername ' .. l:name + let l:job = job_start(l:cmd, { 'stoponexit': 'kill', 'out_io': 'null'}) + + call WaitForAssert({-> assert_equal("run", job_status(l:job))}) + if exists("$DISPLAY") + call WaitForAssert({-> assert_match(l:name, serverlist())}) + endif + + " Change x server to the one that will be killed, then block until + " v:clipmethod is none. + if exists("$DISPLAY") + call remote_send(l:name, ":xrestore " .. l:xdisplay .. + \ ' | call DoIt()' .. "\<CR>") + + call EndXServer(l:xdisplay) + call WaitFor({-> filereadable('Xtest')}) + + " For some reason readfile sometimes returns an empty list despite the file + " existing, this why WaitForAssert() is used. + call WaitForAssert({-> assert_equal(['SUCCESS'], readfile('Xtest'))}, 1000) + endif + + set clipmethod& +endfunc + +func s:AAvailable() + return g:a_available +endfunc + +func s:BAvailable() + return g:b_available +endfunc + +" Test clipmethod when using provider +func Test_clipmethod_provider() + CheckFeature clipboard_provider + + let v:clipproviders["a"] = { + \ "available": function("s:AAvailable"), + \ } + let v:clipproviders["b"] = { + \ "available": function("s:BAvailable"), + \ } + let g:a_available = 1 + let g:b_available = 1 + + set clipmethod=a,b + call assert_equal("a", v:clipmethod) + + let g:a_available = 0 + clipreset + call assert_equal("b", v:clipmethod) + + let g:b_available = 0 + clipreset + call assert_equal("none", v:clipmethod) + + let g:a_available = 1 + let g:b_available = 1 + clipreset + call assert_equal("a", v:clipmethod) + + set clipmethod& +endfunc + +" mnv: shiftwidth=2 sts=2 expandtab |