blob: 6e2b9c86bbcb631208f65479b8ab008dfc1de40e [file] [log] [blame]
Bram Moolenaarda440d22016-01-16 21:27:23 +01001" Test for delete().
2
3func Test_file_delete()
4 split Xfile
5 call setline(1, ['a', 'b'])
6 wq
7 call assert_equal(['a', 'b'], readfile('Xfile'))
8 call assert_equal(0, delete('Xfile'))
9 call assert_fails('call readfile("Xfile")', 'E484:')
10 call assert_equal(-1, delete('Xfile'))
11endfunc
12
13func Test_dir_delete()
14 call mkdir('Xdir1')
15 call assert_true(isdirectory('Xdir1'))
16 call assert_equal(0, delete('Xdir1', 'd'))
17 call assert_false(isdirectory('Xdir1'))
18 call assert_equal(-1, delete('Xdir1', 'd'))
19endfunc
20
21func Test_recursive_delete()
22 call mkdir('Xdir1')
23 call mkdir('Xdir1/subdir')
24 split Xdir1/Xfile
25 call setline(1, ['a', 'b'])
26 w
27 w Xdir1/subdir/Xfile
28 close
29 call assert_true(isdirectory('Xdir1'))
30 call assert_equal(['a', 'b'], readfile('Xdir1/Xfile'))
31 call assert_true(isdirectory('Xdir1/subdir'))
32 call assert_equal(['a', 'b'], readfile('Xdir1/subdir/Xfile'))
33 call assert_equal(0, delete('Xdir1', 'rf'))
34 call assert_false(isdirectory('Xdir1'))
35 call assert_equal(-1, delete('Xdir1', 'd'))
36endfunc