1" Tests for the swap feature 2 3" Tests for 'directory' option. 4func Test_swap_directory() 5 if !has("unix") 6 return 7 endif 8 let content = ['start of testfile', 9 \ 'line 2 Abcdefghij', 10 \ 'line 3 Abcdefghij', 11 \ 'end of testfile'] 12 call writefile(content, 'Xtest1') 13 14 " '.', swap file in the same directory as file 15 set dir=.,~ 16 17 " Verify that the swap file doesn't exist in the current directory 18 call assert_equal([], glob(".Xtest1*.swp", 1, 1, 1)) 19 edit Xtest1 20 let swfname = split(execute("swapname"))[0] 21 call assert_equal([swfname], glob(swfname, 1, 1, 1)) 22 23 " './dir', swap file in a directory relative to the file 24 set dir=./Xtest2,.,~ 25 26 call mkdir("Xtest2") 27 edit Xtest1 28 call assert_equal([], glob(swfname, 1, 1, 1)) 29 let swfname = "Xtest2/Xtest1.swp" 30 call assert_equal(swfname, split(execute("swapname"))[0]) 31 call assert_equal([swfname], glob("Xtest2/*", 1, 1, 1)) 32 33 " 'dir', swap file in directory relative to the current dir 34 set dir=Xtest.je,~ 35 36 call mkdir("Xtest.je") 37 call writefile(content, 'Xtest2/Xtest3') 38 edit Xtest2/Xtest3 39 call assert_equal(["Xtest2/Xtest3"], glob("Xtest2/*", 1, 1, 1)) 40 let swfname = "Xtest.je/Xtest3.swp" 41 call assert_equal(swfname, split(execute("swapname"))[0]) 42 call assert_equal([swfname], glob("Xtest.je/*", 1, 1, 1)) 43 44 set dir& 45 call delete("Xtest1") 46 call delete("Xtest2", "rf") 47 call delete("Xtest.je", "rf") 48endfunc 49 50func Test_swap_group() 51 if !has("unix") 52 return 53 endif 54 let groups = split(system('groups')) 55 if len(groups) <= 1 56 throw 'Skipped: need at least two groups, got ' . string(groups) 57 endif 58 59 try 60 call delete('Xtest') 61 split Xtest 62 call setline(1, 'just some text') 63 wq 64 if system('ls -l Xtest') !~ ' ' . groups[0] . ' \d' 65 throw 'Skipped: test file does not have the first group' 66 else 67 silent !chmod 640 Xtest 68 call system('chgrp ' . groups[1] . ' Xtest') 69 if system('ls -l Xtest') !~ ' ' . groups[1] . ' \d' 70 throw 'Skipped: cannot set second group on test file' 71 else 72 split Xtest 73 let swapname = substitute(execute('swapname'), '[[:space:]]', '', 'g') 74 call assert_match('Xtest', swapname) 75 " Group of swapfile must now match original file. 76 call assert_match(' ' . groups[1] . ' \d', system('ls -l ' . swapname)) 77 78 bwipe! 79 endif 80 endif 81 finally 82 call delete('Xtest') 83 endtry 84endfunc 85 86func Test_missing_dir() 87 call mkdir('Xswapdir') 88 exe 'set directory=' . getcwd() . '/Xswapdir' 89 90 call assert_equal('', glob('foo')) 91 call assert_equal('', glob('bar')) 92 edit foo/x.txt 93 " This should not give a warning for an existing swap file. 94 split bar/x.txt 95 only 96 97 set directory& 98 call delete('Xswapdir', 'rf') 99endfunc 100 101func Test_swapinfo() 102 new Xswapinfo 103 call setline(1, ['one', 'two', 'three']) 104 w 105 let fname = trim(execute('swapname')) 106 call assert_match('Xswapinfo', fname) 107 let info = swapinfo(fname) 108 109 let ver = printf('VIM %d.%d', v:version / 100, v:version % 100) 110 call assert_equal(ver, info.version) 111 112 call assert_match('\w', info.user) 113 " host name is truncated to 39 bytes in the swap file 114 call assert_equal(hostname()[:38], info.host) 115 call assert_match('Xswapinfo', info.fname) 116 call assert_match(0, info.dirty) 117 call assert_equal(getpid(), info.pid) 118 call assert_match('^\d*$', info.mtime) 119 if has_key(info, 'inode') 120 call assert_match('\d', info.inode) 121 endif 122 bwipe! 123 call delete(fname) 124 call delete('Xswapinfo') 125 126 let info = swapinfo('doesnotexist') 127 call assert_equal('Cannot open file', info.error) 128 129 call writefile(['burp'], 'Xnotaswapfile') 130 let info = swapinfo('Xnotaswapfile') 131 call assert_equal('Cannot read file', info.error) 132 call delete('Xnotaswapfile') 133 134 call writefile([repeat('x', 10000)], 'Xnotaswapfile') 135 let info = swapinfo('Xnotaswapfile') 136 call assert_equal('Not a swap file', info.error) 137 call delete('Xnotaswapfile') 138endfunc 139