blob: ee11a731b1831c04d119662e91a9c2c194e0e8a8 [file] [log] [blame]
Bram Moolenaar430dc5d2017-11-02 21:04:47 +01001" Tests for the swap feature
2
Bram Moolenaarffe010f2017-11-04 22:30:40 +01003" 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
Bram Moolenaar5a73e0c2017-11-04 21:35:01 +010049
50func Test_swap_group()
Bram Moolenaar430dc5d2017-11-02 21:04:47 +010051 if !has("unix")
52 return
53 endif
Bram Moolenaar5a73e0c2017-11-04 21:35:01 +010054 let groups = split(system('groups'))
55 if len(groups) <= 1
Bram Moolenaarad7dac82017-11-04 22:21:21 +010056 throw 'Skipped: need at least two groups, got ' . string(groups)
Bram Moolenaar5a73e0c2017-11-04 21:35:01 +010057 endif
Bram Moolenaar430dc5d2017-11-02 21:04:47 +010058
Bram Moolenaar5a73e0c2017-11-04 21:35:01 +010059 call delete('Xtest')
60 split Xtest
61 call setline(1, 'just some text')
62 wq
63 if system('ls -l Xtest') !~ ' ' . groups[0] . ' \d'
64 throw 'Skipped: test file does not have the first group'
65 else
66 silent !chmod 640 Xtest
67 call system('chgrp ' . groups[1] . ' Xtest')
68 if system('ls -l Xtest') !~ ' ' . groups[1] . ' \d'
69 throw 'Skipped: cannot set second group on test file'
70 else
71 split Xtest
72 let swapname = substitute(execute('swapname'), '[[:space:]]', '', 'g')
73 call assert_match('Xtest', swapname)
74 " Group of swapfile must now match original file.
75 call assert_match(' ' . groups[1] . ' \d', system('ls -l ' . swapname))
Bram Moolenaar430dc5d2017-11-02 21:04:47 +010076
Bram Moolenaar5a73e0c2017-11-04 21:35:01 +010077 bwipe!
78 endif
79 endif
Bram Moolenaar430dc5d2017-11-02 21:04:47 +010080
Bram Moolenaar5a73e0c2017-11-04 21:35:01 +010081 call delete('Xtest')
Bram Moolenaar430dc5d2017-11-02 21:04:47 +010082endfunc