" Test for reading and writing .mnvinfo func Test_mnvinfo_read_and_write() " First clear 'history', so that "hislen" is zero. Then set it again, " simulating MNV starting up. set history=0 wmnvinfo Xmnvinfo set history=1000 call histdel(':') let @/='' let lines = [ \ '# comment line', \ '*encoding=utf-8', \ '~MSle0~/asdf', \ '|copied as-is', \ '|and one more', \ ] call writefile(lines, 'Xmnvinfo', 'D') rmnvinfo Xmnvinfo call assert_equal('asdf', @/) wmnvinfo Xmnvinfo let lines = readfile('Xmnvinfo') let done = 0 for line in lines if line[0] == '|' && line !~ '^|[234],' && line !~ '^|<' if done == 0 call assert_equal('|1,4', line) elseif done == 1 call assert_equal('|copied as-is', line) elseif done == 2 call assert_equal('|and one more', line) endif let done += 1 endif endfor call assert_equal(3, done) endfunc func Test_global_vars() let g:MY_GLOBAL_STRING = "MNV Editor" let g:MY_GLOBAL_NUM = 345 let g:MY_GLOBAL_FLOAT = 3.14 let test_dict = {'foo': 1, 'bar': 0, 'longvarible': 1000} let g:MY_GLOBAL_DICT = test_dict " store a really long list, so line wrapping will occur in mnvinfo file let test_list = range(1,100) let g:MY_GLOBAL_LIST = test_list let test_blob = 0z00112233445566778899aabbccddeeff let g:MY_GLOBAL_BLOB = test_blob let test_false = v:false let g:MY_GLOBAL_FALSE = test_false let test_true = v:true let g:MY_GLOBAL_TRUE = test_true let test_null = v:null let g:MY_GLOBAL_NULL = test_null let test_none = v:none let g:MY_GLOBAL_NONE = test_none let g:MY_GLOBAL_FUNCREF = function('min') set mnvinfo='100,<50,s10,h,!,nmnvinfo wv! Xmnvinfo unlet g:MY_GLOBAL_STRING unlet g:MY_GLOBAL_NUM unlet g:MY_GLOBAL_FLOAT unlet g:MY_GLOBAL_DICT unlet g:MY_GLOBAL_LIST unlet g:MY_GLOBAL_BLOB unlet g:MY_GLOBAL_FALSE unlet g:MY_GLOBAL_TRUE unlet g:MY_GLOBAL_NULL unlet g:MY_GLOBAL_NONE unlet g:MY_GLOBAL_FUNCREF rv! Xmnvinfo call assert_equal("MNV Editor", g:MY_GLOBAL_STRING) call assert_equal(345, g:MY_GLOBAL_NUM) call assert_equal(3.14, g:MY_GLOBAL_FLOAT) call assert_equal(test_dict, g:MY_GLOBAL_DICT) call assert_equal(test_list, g:MY_GLOBAL_LIST) call assert_equal(test_blob, g:MY_GLOBAL_BLOB) call assert_equal(test_false, g:MY_GLOBAL_FALSE) call assert_equal(test_true, g:MY_GLOBAL_TRUE) call assert_equal(test_null, g:MY_GLOBAL_NULL) call assert_equal(test_none, g:MY_GLOBAL_NONE) call assert_false(exists("g:MY_GLOBAL_FUNCREF")) " When reading global variables from mnvinfo, if a variable cannot be " modified, then the value should not be changed. unlet g:MY_GLOBAL_STRING unlet g:MY_GLOBAL_NUM unlet g:MY_GLOBAL_FLOAT unlet g:MY_GLOBAL_DICT unlet g:MY_GLOBAL_LIST unlet g:MY_GLOBAL_BLOB const g:MY_GLOBAL_STRING = 'New Value' const g:MY_GLOBAL_NUM = 987 const g:MY_GLOBAL_FLOAT = 1.16 const g:MY_GLOBAL_DICT = {'editor': 'mnv'} const g:MY_GLOBAL_LIST = [5, 7, 13] const g:MY_GLOBAL_BLOB = 0zDEADBEEF call assert_fails('rv! Xmnvinfo', 'E741:') call assert_equal('New Value', g:MY_GLOBAL_STRING) call assert_equal(987, g:MY_GLOBAL_NUM) call assert_equal(1.16, g:MY_GLOBAL_FLOAT) call assert_equal({'editor': 'mnv'}, g:MY_GLOBAL_DICT) call assert_equal([5, 7 , 13], g:MY_GLOBAL_LIST) call assert_equal(0zDEADBEEF, g:MY_GLOBAL_BLOB) unlet g:MY_GLOBAL_STRING unlet g:MY_GLOBAL_NUM unlet g:MY_GLOBAL_FLOAT unlet g:MY_GLOBAL_DICT unlet g:MY_GLOBAL_LIST unlet g:MY_GLOBAL_BLOB " Test for invalid values for a blob, list, dict in a mnvinfo file call writefile([ \ "!GLOB_BLOB_1\tBLO\t123", \ "!GLOB_BLOB_2\tBLO\t012", \ "!GLOB_BLOB_3\tBLO\t0z1x", \ "!GLOB_BLOB_4\tBLO\t0z12 ab", \ "!GLOB_LIST_1\tLIS\t1 2", \ "!GLOB_DICT_1\tDIC\t1 2"], 'Xmnvinfo', 'D') call assert_fails('rv! Xmnvinfo', 'E488:') call assert_equal('123', g:GLOB_BLOB_1) call assert_equal(1, type(g:GLOB_BLOB_1)) call assert_equal('012', g:GLOB_BLOB_2) call assert_equal(1, type(g:GLOB_BLOB_2)) call assert_equal('0z1x', g:GLOB_BLOB_3) call assert_equal(1, type(g:GLOB_BLOB_3)) call assert_equal('0z12 ab', g:GLOB_BLOB_4) call assert_equal(1, type(g:GLOB_BLOB_4)) call assert_equal('1 2', g:GLOB_LIST_1) call assert_equal(1, type(g:GLOB_LIST_1)) call assert_equal('1 2', g:GLOB_DICT_1) call assert_equal(1, type(g:GLOB_DICT_1)) set mnvinfo-=! endfunc func Test_global_vars_with_circular_reference() let g:MY_GLOBAL_LIST = [] call add(g:MY_GLOBAL_LIST, g:MY_GLOBAL_LIST) let g:MY_GLOBAL_DICT = {} let g:MY_GLOBAL_DICT['self'] = g:MY_GLOBAL_DICT set mnvinfo='100,<50,s10,h,!,nmnvinfo wv! Xmnvinfo call assert_equal(v:errmsg, '') unlet g:MY_GLOBAL_LIST unlet g:MY_GLOBAL_DICT rv! Xmnvinfo call assert_equal(v:errmsg, '') call assert_true(!exists('g:MY_GLOBAL_LIST')) call assert_true(!exists('g:MY_GLOBAL_DICT')) call delete('Xmnvinfo') set mnvinfo-=! endfunc func Test_cmdline_history() call histdel(':') call test_settime(11) call histadd(':', "echo 'one'") call test_settime(12) " split into two lines let long800 = repeat(" 'eight'", 100) call histadd(':', "echo " . long800) call test_settime(13) " split into three lines let long1400 = repeat(" 'fourteeeeen'", 100) call histadd(':', "echo " . long1400) wmnvinfo Xmnvinfo let lines = readfile('Xmnvinfo') let done_colon = 0 let done_bar = 0 let lnum = 0 while lnum < len(lines) let line = lines[lnum] | let lnum += 1 if line[0] == ':' if done_colon == 0 call assert_equal(":\x161408", line) let line = lines[lnum] | let lnum += 1 call assert_equal('1407", line) let line = lines[lnum] | let lnum += 1 call assert_equal('|<"echo ' . long1400[0:484], line) let line = lines[lnum] | let lnum += 1 call assert_equal('|<' . long1400[485:974], line) let line = lines[lnum] | let lnum += 1 call assert_equal('|<' . long1400[975:] . '"', line) elseif done_bar == 1 call assert_equal('|2,0,12,,>807', line) let line = lines[lnum] | let lnum += 1 call assert_equal('|<"echo ' . long800[0:484], line) let line = lines[lnum] | let lnum += 1 call assert_equal('|<' . long800[485:] . '"', line) elseif done_bar == 2 call assert_equal("|2,0,11,,\"echo 'one'\"", line) endif let done_bar += 1 endif endwhile call assert_equal(3, done_colon) call assert_equal(3, done_bar) call histdel(':') rmnvinfo Xmnvinfo call assert_equal("echo " . long1400, histget(':', -1)) call assert_equal("echo " . long800, histget(':', -2)) call assert_equal("echo 'one'", histget(':', -3)) " If the value for the '/' or ':' or '@' field in 'mnvinfo' is zero, then " the corresponding history entries are not saved. set mnvinfo='100,/0,:0,@0,<50,s10,h,!,nmnvinfo call histdel('/') call histdel(':') call histdel('@') call histadd('/', 'foo') call histadd(':', 'bar') call histadd('@', 'baz') wmnvinfo! Xmnvinfo call histdel('/') call histdel(':') call histdel('@') rmnvinfo! Xmnvinfo call assert_equal('', histget('/')) call assert_equal('', histget(':')) call assert_equal('', histget('@')) call delete('Xmnvinfo') set mnvinfo&mnv endfunc func Test_cmdline_history_order() call histdel(':') call test_settime(11) call histadd(':', "echo '11'") call test_settime(22) call histadd(':', "echo '22'") call test_settime(33) call histadd(':', "echo '33'") wmnvinfo Xmnvinfo call histdel(':') " items go in between call test_settime(15) call histadd(':', "echo '15'") call test_settime(27) call histadd(':', "echo '27'") rmnvinfo Xmnvinfo call assert_equal("echo '33'", histget(':', -1)) call assert_equal("echo '27'", histget(':', -2)) call assert_equal("echo '22'", histget(':', -3)) call assert_equal("echo '15'", histget(':', -4)) call assert_equal("echo '11'", histget(':', -5)) call histdel(':') " items go before and after eval 8->test_settime() call histadd(':', "echo '8'") call test_settime(39) call histadd(':', "echo '39'") rmnvinfo Xmnvinfo call assert_equal("echo '39'", histget(':', -1)) call assert_equal("echo '33'", histget(':', -2)) call assert_equal("echo '22'", histget(':', -3)) call assert_equal("echo '11'", histget(':', -4)) call assert_equal("echo '8'", histget(':', -5)) " Check sorting works when writing with merge. call histdel(':') call test_settime(8) call histadd(':', "echo '8'") call test_settime(15) call histadd(':', "echo '15'") call test_settime(27) call histadd(':', "echo '27'") call test_settime(39) call histadd(':', "echo '39'") wmnvinfo Xmnvinfo call histdel(':') rmnvinfo Xmnvinfo call assert_equal("echo '39'", histget(':', -1)) call assert_equal("echo '33'", histget(':', -2)) call assert_equal("echo '27'", histget(':', -3)) call assert_equal("echo '22'", histget(':', -4)) call assert_equal("echo '15'", histget(':', -5)) call assert_equal("echo '11'", histget(':', -6)) call assert_equal("echo '8'", histget(':', -7)) call delete('Xmnvinfo') endfunc func Test_mnvinfo_registers() call test_settime(8) call setreg('a', "eight", 'c') call test_settime(20) call setreg('b', ["twenty", "again"], 'l') call test_settime(40) call setreg('c', ["four", "agai"], 'b4') let l = [] set mnvinfo='100,<600,s10,h,!,nmnvinfo for i in range(500) call add(l, 'something') endfor call setreg('d', l, 'l') call setreg('e', "abc\xyz") wmnvinfo Xmnvinfo call test_settime(10) call setreg('a', '', 'b10') call test_settime(15) call setreg('b', 'drop') call test_settime(50) call setreg('c', 'keep', 'l') call test_settime(30) call setreg('d', 'drop', 'l') call setreg('e', 'drop') rmnvinfo Xmnvinfo call assert_equal("", getreg('a')) call assert_equal("\10", getregtype('a')) call assert_equal("twenty\nagain\n", getreg('b')) call assert_equal("V", getregtype('b')) call assert_equal("keep\n", getreg('c')) call assert_equal("V", getregtype('c')) call assert_equal(l, getreg('d', 1, 1)) call assert_equal("V", getregtype('d')) call assert_equal("abc\xyz", getreg('e')) " Length around 440 switches to line continuation. let len = 434 while len < 445 let s = repeat('a', len) call setreg('"', s) wmnvinfo Xmnvinfo call setreg('"', '') rmnvinfo Xmnvinfo call assert_equal(s, getreg('"'), 'wrong register at length: ' . len) let len += 1 endwhile " If the maximum number of lines saved for a register ('<' in 'mnvinfo') is " zero, then register values should not be saved. let @a = 'abc' set mnvinfo='100,<0,s10,h,!,nmnvinfo wmnvinfo Xmnvinfo let @a = 'xyz' rmnvinfo! Xmnvinfo call assert_equal('xyz', @a) " repeat the test with '"' instead of '<' let @b = 'def' set mnvinfo='100,\"0,s10,h,!,nmnvinfo wmnvinfo Xmnvinfo let @b = 'rst' rmnvinfo! Xmnvinfo call assert_equal('rst', @b) " If the maximum size of an item ('s' in 'mnvinfo') is zero, then register " values should not be saved. let @c = '123' set mnvinfo='100,<20,s0,h,!,nmnvinfo wmnvinfo Xmnvinfo let @c = '456' rmnvinfo! Xmnvinfo call assert_equal('456', @c) call delete('Xmnvinfo') set mnvinfo&mnv endfunc func Test_mnvinfo_marks() sp bufa let bufa = bufnr('%') sp bufb let bufb = bufnr('%') call test_settime(8) call setpos("'A", [bufa, 1, 1, 0]) call test_settime(20) call setpos("'B", [bufb, 9, 1, 0]) call setpos("'C", [bufa, 7, 1, 0]) delmark 0-9 call test_settime(25) call setpos("'1", [bufb, 12, 1, 0]) call test_settime(35) call setpos("'0", [bufa, 11, 1, 0]) call test_settime(45) wmnvinfo Xmnvinfo " Writing mnvinfo inserts the '0 mark. call assert_equal([bufb, 1, 1, 0], getpos("'0")) call assert_equal([bufa, 11, 1, 0], getpos("'1")) call assert_equal([bufb, 12, 1, 0], getpos("'2")) call test_settime(4) call setpos("'A", [bufa, 9, 1, 0]) call test_settime(30) call setpos("'B", [bufb, 2, 3, 0]) delmark C delmark 0-9 call test_settime(30) call setpos("'1", [bufb, 22, 1, 0]) call test_settime(55) call setpos("'0", [bufa, 21, 1, 0]) rmnvinfo Xmnvinfo call assert_equal([bufa, 1, 1, 0], getpos("'A")) call assert_equal([bufb, 2, 3, 0], getpos("'B")) call assert_equal([bufa, 7, 1, 0], getpos("'C")) " numbered marks are merged call assert_equal([bufa, 21, 1, 0], getpos("'0")) " time 55 call assert_equal([bufb, 1, 1, 0], getpos("'1")) " time 45 call assert_equal([bufa, 11, 1, 0], getpos("'2")) " time 35 call assert_equal([bufb, 22, 1, 0], getpos("'3")) " time 30 call assert_equal([bufb, 12, 1, 0], getpos("'4")) " time 25 " deleted file marks are removed from mnvinfo delmark C wmnvinfo Xmnvinfo rmnvinfo Xmnvinfo call assert_equal([0, 0, 0, 0], getpos("'C")) " deleted file marks stay in mnvinfo if defined in another mnv later call test_settime(70) call setpos("'D", [bufb, 8, 1, 0]) wmnvinfo Xmnvinfo call test_settime(65) delmark D call assert_equal([0, 0, 0, 0], getpos("'D")) call test_settime(75) rmnvinfo Xmnvinfo call assert_equal([bufb, 8, 1, 0], getpos("'D")) call delete('Xmnvinfo') exe 'bwipe ' . bufa exe 'bwipe ' . bufb endfunc func Test_mnvinfo_jumplist() split testbuf clearjumps call setline(1, ['time 05', 'time 10', 'time 15', 'time 20', 'time 30', 'last pos']) call cursor(2, 1) call test_settime(10) exe "normal /20\r" call test_settime(20) exe "normal /30\r" call test_settime(30) exe "normal /last pos\r" wmnvinfo Xmnvinfo clearjumps call cursor(1, 1) call test_settime(5) exe "normal /15\r" call test_settime(15) exe "normal /last pos\r" call test_settime(40) exe "normal ?30\r" rmnvinfo Xmnvinfo call assert_equal('time 30', getline('.')) exe "normal \" call assert_equal('last pos', getline('.')) exe "normal \" " duplicate for 'time 30' was removed call assert_equal('time 20', getline('.')) exe "normal \" call assert_equal('time 15', getline('.')) exe "normal \" call assert_equal('time 10', getline('.')) exe "normal \" call assert_equal('time 05', getline('.')) clearjumps call cursor(1, 1) call test_settime(5) exe "normal /15\r" call test_settime(15) exe "normal /last pos\r" call test_settime(40) exe "normal ?30\r" " Test merge when writing wmnvinfo Xmnvinfo clearjumps rmnvinfo Xmnvinfo let last_line = line('.') exe "normal \" call assert_equal('time 30', getline('.')) exe "normal \" call assert_equal('last pos', getline('.')) exe "normal \" " duplicate for 'time 30' was removed call assert_equal('time 20', getline('.')) exe "normal \" call assert_equal('time 15', getline('.')) exe "normal \" call assert_equal('time 10', getline('.')) exe "normal \" call assert_equal('time 05', getline('.')) " Test with jumplist full. clearjumps call setline(1, repeat(['match here'], 101)) call cursor(1, 1) call test_settime(10) for i in range(100) exe "normal /here\r" endfor rmnvinfo Xmnvinfo " must be newest mark that comes from mnvinfo. exe "normal \" call assert_equal(last_line, line('.')) bwipe! call delete('Xmnvinfo') endfunc func Test_mnvinfo_encoding() set enc=latin1 call histdel(':') call histadd(':', "echo '\xe9'") wmnvinfo Xmnvinfo set fencs=utf-8,latin1 set enc=utf-8 sp Xmnvinfo call assert_equal('latin1', &fenc) close call histdel(':') rmnvinfo Xmnvinfo call assert_equal("echo 'é'", histget(':', -1)) call delete('Xmnvinfo') endfunc func Test_mnvinfo_bad_syntax() let lines = [] call add(lines, '|<') " empty continuation line call add(lines, '|234234234234234324,nothing') call add(lines, '|1+"no comma"') call add(lines, '|1,2,3,4,5,6,7') " too many items call add(lines, '|1,"string version"') call add(lines, '|1,>x') " bad continuation line call add(lines, '|1,"x') " missing quote call add(lines, '|1,"x\') " trailing backslash call add(lines, '|1,,,,') "trailing comma call add(lines, '|1,>234') " trailing continuation line call writefile(lines, 'Xmnvinfo', 'D') rmnvinfo Xmnvinfo call delete('Xmnvinfo') endfunc func Test_mnvinfo_bad_syntax2() let lines = [] call add(lines, '|1,4') " bad mnvinfo syntax for history barline call add(lines, '|2') " invalid number of fields in a history barline call add(lines, '|2,9,1,1,"x"') " invalid value for the history type call add(lines, '|2,0,,1,"x"') " no timestamp call add(lines, '|2,0,1,1,10') " non-string text " bad mnvinfo syntax for register barline call add(lines, '|3') " invalid number of fields in a register barline call add(lines, '|3,1,1,1,1,,1,"x"') " missing width field call add(lines, '|3,0,80,1,1,1,1,"x"') " invalid register number call add(lines, '|3,0,10,5,1,1,1,"x"') " invalid register type call add(lines, '|3,0,10,1,20,1,1,"x"') " invalid line count call add(lines, '|3,0,10,1,0,1,1') " zero line count " bad mnvinfo syntax for mark barline call add(lines, '|4') " invalid number of fields in a mark barline call add(lines, '|4,1,1,1,1,1') " invalid value for file name call add(lines, '|4,20,1,1,1,"x"') " invalid value for file name call add(lines, '|4,49,0,1,1,"x"') " invalid value for line number call writefile(lines, 'Xmnvinfo', 'D') rmnvinfo Xmnvinfo endfunc " This used to crash MNV (GitHub issue #12652) func Test_mnvinfo_bad_syntax3() let lines =<< trim END call writefile([], 'Xvbs3.result') qall! END call writefile(lines, 'Xvbs3script', 'D') let lines = [] call add(lines, '|1,4') " bad mnvinfo syntax for register barline call add(lines, '|3,1,1,1,1,0,71489,,125') " empty line1 call writefile(lines, 'Xmnvinfo', 'D') call RunMNV([], [], '--clean -i Xmnvinfo -S Xvbs3script') call assert_true(filereadable('Xvbs3.result')) call delete('Xvbs3.result') endfunc func Test_mnvinfo_file_marks() silent! bwipe test_mnvinfo.mnv silent! bwipe Xmnvinfo call test_settime(10) edit ten call test_settime(25) edit again call test_settime(30) edit thirty wmnvinfo Xmnvinfo call test_settime(20) edit twenty call test_settime(35) edit again call test_settime(40) edit forty wmnvinfo Xmnvinfo sp Xmnvinfo 1 for name in ['forty', 'again', 'thirty', 'twenty', 'ten'] /^> call assert_equal(name, substitute(getline('.'), '.*/', '', '')) endfor close call delete('Xmnvinfo') endfunc func Test_mnvinfo_file_mark_tabclose() tabnew Xtestfileintab call setline(1, ['a','b','c','d','e']) 4 q! wmnvinfo Xmnvinfo sp Xmnvinfo /^> .*Xtestfileintab let lnum = line('.') while 1 if lnum == line('$') call assert_report('mark not found in Xtestfileintab') break endif let lnum += 1 let line = getline(lnum) if line == '' call assert_report('mark not found in Xtestfileintab') break endif if line =~ "^\t\"" call assert_equal('4', substitute(line, ".*\"\t\\(\\d\\).*", '\1', '')) break endif endwhile call delete('Xmnvinfo') silent! bwipe Xtestfileintab endfunc func Test_mnvinfo_file_mark_zero_time() let lines = [ \ '# MNVinfo version', \ '|1,4', \ '', \ '*encoding=utf-8', \ '', \ '# File marks:', \ "'B 1 0 /tmp/nothing", \ '|4,66,1,0,0,"/tmp/nothing"', \ "", \ ] call writefile(lines, 'Xmnvinfo', 'D') delmark B rmnvinfo Xmnvinfo call assert_equal(1, line("'B")) delmark B endfunc " Test for saving and restoring file marks in unloaded buffers func Test_mnvinfo_file_mark_unloaded_buf() let save_mnvinfo = &mnvinfo set mnvinfo&mnv call writefile(repeat(['mnv'], 10), 'Xfile1', 'D') %bwipe edit! Xfile1 call setpos("'u", [0, 3, 1, 0]) call setpos("'v", [0, 5, 1, 0]) enew wmnvinfo Xmnvinfo %bwipe edit Xfile1 rmnvinfo! Xmnvinfo call assert_equal([0, 3, 1, 0], getpos("'u")) call assert_equal([0, 5, 1, 0], getpos("'v")) %bwipe call delete('Xmnvinfo') let &mnvinfo = save_mnvinfo endfunc func Test_mnvinfo_oldfiles() set noswapfile let v:oldfiles = [] let lines = [ \ '# comment line', \ '*encoding=utf-8', \ '', \ ':h mnvinfo', \ '?/session', \ '=myvar', \ '@123', \ '', \ "'E 2 0 /tmp/nothing", \ '', \ "> /tmp/file_one.txt", \ "\t\"\t11\t0", \ "", \ "> /tmp/file_two.txt", \ "\t\"\t11\t0", \ "", \ "> /tmp/another.txt", \ "\t\"\t11\t0", \ "", \ ] call writefile(lines, 'Xmnvinfo', 'D') delmark E edit /tmp/file_two.txt rmnvinfo! Xmnvinfo call assert_equal('h mnvinfo', histget(':')) call assert_equal('session', histget('/')) call assert_equal('myvar', histget('=')) call assert_equal('123', histget('@')) call assert_equal(2, line("'E")) call assert_equal(['1: /tmp/file_one.txt', '2: /tmp/file_two.txt', '3: /tmp/another.txt'], filter(split(execute('oldfiles'), "\n"), {i, v -> v =~ '/tmp/'})) call assert_equal(['1: /tmp/file_one.txt', '2: /tmp/file_two.txt'], filter(split(execute('filter file_ oldfiles'), "\n"), {i, v -> v =~ '/tmp/'})) call assert_equal(['3: /tmp/another.txt'], filter(split(execute('filter /another/ oldfiles'), "\n"), {i, v -> v =~ '/tmp/'})) new call feedkeys("3\", 't') browse oldfiles call assert_equal("/tmp/another.txt", expand("%")) bwipe delmark E set swapfile& endfunc " Test for storing and restoring buffer list in 'mnvinfo' func Test_mnvinfo_bufferlist() " If there are arguments, then :rmnvinfo doesn't read the buffer list. " Need to delete all the arguments for :rmnvinfo to work. %argdelete set mnvinfo&mnv edit Xfile1 edit Xfile2 set mnvinfo-=% wmnvinfo Xmnvinfo %bwipe rmnvinfo Xmnvinfo call assert_equal(1, len(getbufinfo())) edit Xfile1 edit Xfile2 set mnvinfo^=% wmnvinfo Xmnvinfo %bwipe rmnvinfo Xmnvinfo let l = getbufinfo() call assert_equal(3, len(l)) call assert_equal('Xfile1', bufname(l[1].bufnr)) call assert_equal('Xfile2', bufname(l[2].bufnr)) " The quickfix, terminal, unlisted, unnamed buffers are not stored in the " mnvinfo file %bw! edit Xfile1 new setlocal nobuflisted new copen if has('terminal') terminal endif wmnvinfo! Xmnvinfo %bwipe! rmnvinfo Xmnvinfo let l = getbufinfo() call assert_equal(2, len(l)) call assert_true(bufexists('Xfile1')) " If a count is specified for '%', then only that many buffers should be " stored in the mnvinfo file. %bw! set mnvinfo&mnv new Xbuf1 new Xbuf2 set mnvinfo+=%1 wmnvinfo! Xmnvinfo %bwipe! rmnvinfo! Xmnvinfo let l = getbufinfo() call assert_equal(2, len(l)) call assert_true(bufexists('Xbuf1')) call assert_false(bufexists('Xbuf2')) call delete('Xmnvinfo') %bwipe set mnvinfo&mnv endfunc " Test for errors in a mnvinfo file func Test_mnvinfo_error() " Non-existing mnvinfo files call assert_fails('rmnvinfo xyz', 'E195:') " Illegal starting character call writefile(["a 123"], 'Xmnvinfo', 'D') call assert_fails('rv Xmnvinfo', 'E575:') " Illegal register name in the mnvinfo file call writefile(['"@ LINE 0'], 'Xmnvinfo') call assert_fails('rv Xmnvinfo', 'E577:') " Invalid file mark line call writefile(['>', '@'], 'Xmnvinfo') call assert_fails('rv Xmnvinfo', 'E576:') " Too many errors in mnvinfo file call writefile(repeat(["a 123"], 15), 'Xmnvinfo') call assert_fails('rv Xmnvinfo', 'E575:') call writefile(['>'] + repeat(['@'], 10), 'Xmnvinfo') call assert_fails('rv Xmnvinfo', 'E576:') call writefile(repeat(['"@'], 15), 'Xmnvinfo') call assert_fails('rv Xmnvinfo', 'E577:') endfunc " Test for saving and restoring last substitute string in mnvinfo func Test_mnvinfo_lastsub() enew call append(0, "blue blue blue") call cursor(1, 1) s/blue/green/ wmnvinfo Xmnvinfo s/blue/yellow/ rmnvinfo! Xmnvinfo & call assert_equal("green yellow green", getline(1)) enew! call delete('Xmnvinfo') endfunc " Test saving and restoring the register values using the older method func Test_mnvinfo_registers_old() let lines = [ \ '# MNVinfo version', \ '|1,1', \ '', \ '*encoding=utf-8', \ '', \ '# Registers:', \ '""0 CHAR 0', \ ' MNV', \ '"a CHAR 0', \ ' red', \ '"c BLOCK 0', \ ' a', \ ' d', \ '"d LINE 0', \ ' abc', \ ' def', \ '"m@ CHAR 0', \ " :echo 'Hello'\", \ "", \ ] call writefile(lines, 'Xmnvinfo', 'D') let @a = 'one' let @b = 'two' let @m = 'three' let @" = 'four' let @t = ":echo 'Unix'\" silent! normal @t rmnvinfo! Xmnvinfo call assert_equal('red', getreg('a')) call assert_equal("v", getregtype('a')) call assert_equal('two', getreg('b')) call assert_equal("a\nd", getreg('c')) call assert_equal("\1", getregtype('c')) call assert_equal("abc\ndef\n", getreg('d')) call assert_equal("V", getregtype('d')) call assert_equal(":echo 'Hello'\", getreg('m')) call assert_equal('MNV', getreg('"')) call assert_equal("\nHello", execute('normal @@')) let @" = '' endfunc " Test for saving and restoring large number of lines in a register func Test_mnvinfo_large_register() let save_mnvinfo = &mnvinfo set mnvinfo&mnv set mnvinfo-=<50 set mnvinfo+=<200 let lines = ['"r CHAR 0'] call extend(lines, repeat(["\tsun is rising"], 200)) call writefile(lines, 'Xmnvinfo', 'D') let @r = '' rmnvinfo! Xmnvinfo call assert_equal(join(repeat(["sun is rising"], 200), "\n"), @r) let @r = '' let &mnvinfo = save_mnvinfo endfunc " Test for setting 'mnvinfofile' to NONE func Test_mnvinfofile_none() let save_vif = &mnvinfofile set mnvinfofile=NONE wmnvinfo Xmnvinfo call assert_false(filereadable('Xmnvinfo')) call writefile([''], 'Xmnvinfo', 'D') call assert_fails('rmnvinfo Xmnvinfo', 'E195:') let &mnvinfofile = save_vif endfunc " Test for an unwritable and unreadable 'mnvinfo' file func Test_mnvinfo_perm() CheckUnix CheckNotRoot call writefile([''], 'Xmnvinfo', 'D') call setfperm('Xmnvinfo', 'r-x------') call assert_fails('wmnvinfo Xmnvinfo', 'E137:') call setfperm('Xmnvinfo', '--x------') call assert_fails('rmnvinfo Xmnvinfo', 'E195:') " Try to write the mnvinfo to a directory call mkdir('Xvifdir', 'R') call assert_fails('wmnvinfo Xvifdir', 'E137:') call assert_fails('rmnvinfo Xvifdir', 'E195:') endfunc " Test for writing to an existing mnvinfo file merges the file marks func XTest_mnvinfo_marks_merge() let save_mnvinfo = &mnvinfo set mnvinfo&mnv set mnvinfo^=% enew %argdelete %bwipe call writefile(repeat(['editor'], 10), 'Xbufa', 'D') call writefile(repeat(['MNV'], 10), 'Xbufb', 'D') " set marks in buffers call test_settime(10) edit Xbufa 4mark a wmnvinfo Xmnvinfo edit Xbufb 4mark b wmnvinfo Xmnvinfo %bwipe " set marks in buffers again call test_settime(20) edit Xbufb 6mark b wmnvinfo Xmnvinfo edit Xbufa 6mark a wmnvinfo Xmnvinfo %bwipe " Load the buffer and check the marks edit Xbufa rmnvinfo! Xmnvinfo call assert_equal(6, line("'a")) edit Xbufb rmnvinfo! Xmnvinfo call assert_equal(6, line("'b")) " cleanup %bwipe call delete('Xmnvinfo') call test_settime(0) let &mnvinfo=save_mnvinfo endfunc " Test for errors in setting 'mnvinfo' func Test_mnvinfo_option_error() " Missing number call assert_fails('set mnvinfo=\"', 'E526:') for c in split("'/:<@s", '\zs') call assert_fails('set mnvinfo=' .. c, 'E526:') endfor " Missing comma call assert_fails('set mnvinfo=%10!', 'E527:') call assert_fails('set mnvinfo=!%10', 'E527:') call assert_fails('set mnvinfo=h%10', 'E527:') call assert_fails('set mnvinfo=c%10', 'E527:') call assert_fails('set mnvinfo=:10%10', 'E527:') " Missing ' setting call assert_fails('set mnvinfo=%10', 'E528:') endfunc func Test_mnvinfo_oldfiles_newfile() CheckRunMNVInTerminal let save_mnvinfo = &mnvinfo let save_mnvinfofile = &mnvinfofile set mnvinfo&mnv let v:oldfiles = [] let commands =<< trim [CODE] set mnvinfofile=Xmnvinfofile set mnvinfo&mnv w! Xnew-file.txt qall [CODE] call writefile(commands, 'Xmnvinfotest', 'D') let buf = RunMNVInTerminal('-S Xmnvinfotest', #{wait_for_ruler: 0}) call WaitForAssert({-> assert_equal("finished", term_getstatus(buf))}) let &mnvinfofile = 'Xmnvinfofile' rmnvinfo! Xmnvinfofile call assert_match('Xnew-file.txt$', v:oldfiles[0]) call assert_equal(1, len(v:oldfiles)) call delete('Xmnvinfofile') call delete('Xnew-file.txt') let v:oldfiles = test_null_list() call assert_equal("\nNo old files", execute('oldfiles')) let &mnvinfo = save_mnvinfo let &mnvinfofile = save_mnvinfofile endfunc " When writing CTRL-V or "\n" to a mnvinfo file, it is converted to CTRL-V " CTRL-V and CTRL-V n respectively. func Test_mnvinfo_with_Ctrl_V() silent! exe "normal! /\\\n" wmnvinfo Xmnvinfo call assert_notequal(-1, readfile('Xmnvinfo')->index("?/\\")) let @/ = 'abc' rmnvinfo! Xmnvinfo call assert_equal("\", @/) silent! exe "normal! /\\\n" wmnvinfo Xmnvinfo call assert_notequal(-1, readfile('Xmnvinfo')->index("?/\n")) let @/ = 'abc' rmnvinfo! Xmnvinfo call assert_equal("\n", @/) call delete('Xmnvinfo') endfunc " Test for the 'r' field in 'mnvinfo' (removal media) func Test_mnvinfo_removable_media() CheckUnix if !isdirectory('/tmp') || getftype('/tmp') != 'dir' return endif let save_mnvinfo = &mnvinfo set mnvinfo+=r/tmp edit /tmp/Xmnva1b2c3 wmnvinfo Xmnvinfo let matches = readfile('Xmnvinfo')->filter("v:val =~ 'Xmnva1b2c3'") call assert_equal(0, matches->len()) let &mnvinfo = save_mnvinfo call delete('Xmnvinfo') endfunc " Test for the 'h' flag in 'mnvinfo'. If 'h' is not present, then the last " search pattern read from 'mnvinfo' should be highlighted with 'hlsearch'. " If 'h' is present, then the last search pattern should not be highlighted. func Test_mnvinfo_hlsearch() set mnvinfo&mnv new call setline(1, ['one two three']) " save the screen attribute for the Search highlighted text and the normal " text for later comparison set hlsearch let @/ = 'three' redraw! let hiSearch = screenattr(1, 9) let hiNormal = screenattr(1, 1) set mnvinfo-=h let @/='two' wmnvinfo! Xmnvinfo let @/='one' rmnvinfo! Xmnvinfo redraw! call assert_equal(hiSearch, screenattr(1, 5)) call assert_equal(hiSearch, screenattr(1, 6)) call assert_equal(hiSearch, screenattr(1, 7)) set mnvinfo+=h let @/='two' wmnvinfo! Xmnvinfo let @/='one' rmnvinfo! Xmnvinfo redraw! call assert_equal(hiNormal, screenattr(1, 5)) call assert_equal(hiNormal, screenattr(1, 6)) call assert_equal(hiNormal, screenattr(1, 7)) call delete('Xmnvinfo') set hlsearch& mnvinfo&mnv bw! endfunc " Test for restoring the magicness of the last search pattern from the mnvinfo " file. func Test_mnvinfo_last_spat_magic() set mnvinfo&mnv new call setline(1, ' one abc a.c') " restore 'nomagic' set nomagic exe "normal gg/a.c\" wmnvinfo! Xmnvinfo set magic exe "normal gg/one\" rmnvinfo! Xmnvinfo exe "normal! gg/\" call assert_equal(10, col('.')) " restore 'magic' set magic exe "normal gg/a.c\" wmnvinfo! Xmnvinfo set nomagic exe "normal gg/one\" rmnvinfo! Xmnvinfo exe "normal! gg/\" call assert_equal(6, col('.')) call delete('Xmnvinfo') set mnvinfo&mnv magic& bw! endfunc " Test for restoring the smartcase of the last search pattern from the mnvinfo " file. func Test_mnvinfo_last_spat_smartcase() new call setline(1, ' one abc Abc') set ignorecase smartcase " Searching with * should disable smartcase exe "normal! gg$b*" wmnvinfo! Xmnvinfo exe "normal gg/one\" rmnvinfo! Xmnvinfo exe "normal! gg/\" call assert_equal(6, col('.')) call delete('Xmnvinfo') set ignorecase& smartcase& mnvinfo& bw! endfunc " Test for restoring the last search pattern with a line or character offset " from the mnvinfo file. func Test_mnvinfo_last_spat_offset() new call setline(1, ['one', 'two', 'three', 'four', 'five']) " line offset exe "normal! /two/+2\" wmnvinfo! Xmnvinfo exe "normal gg/five\" rmnvinfo! Xmnvinfo exe "normal! gg/\" call assert_equal(4, line('.')) " character offset exe "normal! gg/^th/e+2\" wmnvinfo! Xmnvinfo exe "normal gg/two\" rmnvinfo! Xmnvinfo exe "normal! gg/\" call assert_equal([3, 4], [line('.'), col('.')]) call delete('Xmnvinfo') bw! endfunc " Test for saving and restoring the last executed register (@ command) " from the mnvinfo file func Test_mnvinfo_last_exec_reg() let g:val = 1 let @a = ":let g:val += 1\n" normal! @a wmnvinfo! Xmnvinfo let @b = '' normal! @b rmnvinfo! Xmnvinfo normal @@ call assert_equal(3, g:val) call delete('Xmnvinfo') endfunc " Test for merging file marks in a mnvinfo file func Test_mnvinfo_merge_file_marks() for [f, l, t] in [['a.txt', 5, 10], ['b.txt', 10, 20]] call test_settime(t) exe 'edit ' .. f call setline(1, range(1, 20)) exe l . 'mark a' wmnvinfo Xmnvinfo bw! endfor call test_settime(30) for [f, l] in [['a.txt', 5], ['b.txt', 10]] exe 'edit ' .. f rmnvinfo! Xmnvinfo call assert_equal(l, line("'a")) bw! endfor call delete('Xmnvinfo') call test_settime(0) endfunc " Test for merging file marks from a old mnvinfo file func Test_mnvinfo_merge_old_filemarks() let lines = [] call add(lines, '|1,4') call add(lines, '> ' .. fnamemodify('a.txt', ':p:~')) call add(lines, "\tb\t7\t0\n") call writefile(lines, 'Xmnvinfo', 'D') edit b.txt call setline(1, range(1, 20)) 12mark b wmnvinfo Xmnvinfo bw! edit a.txt rmnvinfo! Xmnvinfo call assert_equal(7, line("'b")) edit b.txt rmnvinfo! Xmnvinfo call assert_equal(12, line("'b")) endfunc " Test for merging the jump list from a old mnvinfo file func Test_mnvinfo_merge_old_jumplist() let lines = [] call add(lines, "-' 10 1 " .. fnamemodify('a.txt', ':p:~')) call add(lines, "-' 20 1 " .. fnamemodify('a.txt', ':p:~')) call add(lines, "-' 30 1 " .. fnamemodify('b.txt', ':p:~')) call add(lines, "-' 40 1 " .. fnamemodify('b.txt', ':p:~')) call writefile(lines, 'Xmnvinfo', 'D') clearjumps rmnvinfo! Xmnvinfo let l = getjumplist()[0] call assert_equal([40, 30, 20, 10], [l[0].lnum, l[1].lnum, l[2].lnum, \ l[3].lnum]) bw! endfunc func Test_mnvinfo_oldfiles_filter() let v:oldfiles = [] let _mnvinfofile = &mnvinfofile let &mnvinfofile='' let lines = [ \ '# comment line', \ '*encoding=utf-8', \ "> /tmp/mnvrc_one.mnv", \ "\t\"\t11\t0", \ "", \ "> /tmp/foobar.txt", \ "\t\"\t11\t0", \ "", \ ] call writefile(lines, 'Xmnvinfo1', 'D') rmnvinfo! Xmnvinfo1 new " filter returns a single item let a = execute('filter /mnv/ oldfiles')->split('\n') call assert_equal(1, len(a)) " filter returns more than a single match let a = execute('filter #tmp# oldfiles')->split('\n') call assert_equal(2, len(a)) " don't get prompted for the file, but directly open it filter /mnv/ browse oldfiles call assert_equal("/tmp/mnvrc_one.mnv", expand("%")) bw let &mnvinfofile = _mnvinfofile endfunc func Test_mnvinfo_global_var() let _mnvinfofile = &mnvinfofile let _mnvinfo = &mnvinfo let &mnvinfofile='' set mnvinfo+=! let lines = [ \ '# comment line', \ "", \ '# MNVinfo version', \ '|1,4', \ "", \ '*encoding=utf-8', \ "", \ '# global variables:', \ "!VAL\tFLO\t-in", \ "!VAR\tFLO\t-inf", \ "", \ ] call writefile(lines, 'Xmnvinfo2', 'D') rmnvinfo! Xmnvinfo2 call assert_equal(0.0, g:VAL) call assert_equal(str2float("-inf"), g:VAR) let &mnvinfofile = _mnvinfofile let &mnvinfo = _mnvinfo endfunc func Test_mnvinfo_len_one() let _mnvinfofile = &mnvinfofile let &mnvinfofile='' let mnvinfo_file = tempname() call histadd('cmd', '" TEST') defer delete(mnvinfo_file) " Craft a mnvinfo entry with ^V1 length prefix (len == 1) call writefile([ \ '*encoding=utf-8', \ ':' .. "\x161" .. 'X', \ ], mnvinfo_file, 'b') " Should not crash or cause memory errors exe 'rmnvinfo! ' .. mnvinfo_file call assert_equal('" TEST', histget(':', -1)) let &mnvinfofile = _mnvinfofile endfunc func Test_mnvinfo_len_overflow() let _mnvinfofile = &mnvinfofile let &mnvinfofile='' let mnvinfo_file = tempname() defer delete(mnvinfo_file) " Craft a mnvinfo entry with size_t length overflow call writefile(['# MNVinfo', \ '|1,4', '|2,>4294967311', \ '|<"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA', \ '|