1" 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 37