2016-01-16 21:27:23 +01:00
|
|
|
" Test for delete().
|
|
|
|
|
|
2020-11-27 19:13:28 +01:00
|
|
|
source check.vim
|
|
|
|
|
|
2016-01-16 21:27:23 +01:00
|
|
|
func Test_file_delete()
|
2022-08-30 21:46:08 +01:00
|
|
|
split Xfdelfile
|
2016-01-16 21:27:23 +01:00
|
|
|
call setline(1, ['a', 'b'])
|
|
|
|
|
wq
|
2022-08-30 21:46:08 +01:00
|
|
|
call assert_equal(['a', 'b'], readfile('Xfdelfile'))
|
|
|
|
|
call assert_equal(0, delete('Xfdelfile'))
|
|
|
|
|
call assert_fails('call readfile("Xfdelfile")', 'E484:')
|
|
|
|
|
call assert_equal(-1, delete('Xfdelfile'))
|
|
|
|
|
bwipe Xfdelfile
|
2016-01-16 21:27:23 +01:00
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_dir_delete()
|
2022-08-29 22:31:20 +01:00
|
|
|
call mkdir('Xdirdel')
|
|
|
|
|
call assert_true(isdirectory('Xdirdel'))
|
|
|
|
|
call assert_equal(0, delete('Xdirdel', 'd'))
|
|
|
|
|
call assert_false(isdirectory('Xdirdel'))
|
|
|
|
|
call assert_equal(-1, delete('Xdirdel', 'd'))
|
2016-01-16 21:27:23 +01:00
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_recursive_delete()
|
2022-08-29 22:31:20 +01:00
|
|
|
call mkdir('Xrecdel')
|
|
|
|
|
call mkdir('Xrecdel/subdir')
|
|
|
|
|
call mkdir('Xrecdel/empty')
|
|
|
|
|
split Xrecdel/Xfile
|
2016-01-16 21:27:23 +01:00
|
|
|
call setline(1, ['a', 'b'])
|
|
|
|
|
w
|
2022-08-29 22:31:20 +01:00
|
|
|
w Xrecdel/subdir/Xfile
|
2016-01-16 21:27:23 +01:00
|
|
|
close
|
2022-08-29 22:31:20 +01:00
|
|
|
call assert_true(isdirectory('Xrecdel'))
|
|
|
|
|
call assert_equal(['a', 'b'], readfile('Xrecdel/Xfile'))
|
|
|
|
|
call assert_true(isdirectory('Xrecdel/subdir'))
|
|
|
|
|
call assert_equal(['a', 'b'], readfile('Xrecdel/subdir/Xfile'))
|
|
|
|
|
call assert_true('Xrecdel/empty'->isdirectory())
|
|
|
|
|
call assert_equal(0, delete('Xrecdel', 'rf'))
|
|
|
|
|
call assert_false(isdirectory('Xrecdel'))
|
|
|
|
|
call assert_equal(-1, delete('Xrecdel', 'd'))
|
|
|
|
|
bwipe Xrecdel/Xfile
|
|
|
|
|
bwipe Xrecdel/subdir/Xfile
|
2016-01-16 21:27:23 +01:00
|
|
|
endfunc
|
2016-01-17 15:56:34 +01:00
|
|
|
|
|
|
|
|
func Test_symlink_delete()
|
2020-11-27 19:13:28 +01:00
|
|
|
CheckUnix
|
2022-08-30 21:46:08 +01:00
|
|
|
split Xslfile
|
2016-01-17 15:56:34 +01:00
|
|
|
call setline(1, ['a', 'b'])
|
|
|
|
|
wq
|
2022-08-30 21:46:08 +01:00
|
|
|
silent !ln -s Xslfile Xdellink
|
2016-01-17 15:56:34 +01:00
|
|
|
" Delete the link, not the file
|
2022-08-29 22:31:20 +01:00
|
|
|
call assert_equal(0, delete('Xdellink'))
|
|
|
|
|
call assert_equal(-1, delete('Xdellink'))
|
2022-08-30 21:46:08 +01:00
|
|
|
call assert_equal(0, delete('Xslfile'))
|
|
|
|
|
bwipe Xslfile
|
2016-01-17 15:56:34 +01:00
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_symlink_dir_delete()
|
2020-11-27 19:13:28 +01:00
|
|
|
CheckUnix
|
2022-08-29 22:31:20 +01:00
|
|
|
call mkdir('Xsymdir')
|
|
|
|
|
silent !ln -s Xsymdir Xdirlink
|
|
|
|
|
call assert_true(isdirectory('Xsymdir'))
|
|
|
|
|
call assert_true(isdirectory('Xdirlink'))
|
2016-01-17 15:56:34 +01:00
|
|
|
" Delete the link, not the directory
|
2022-08-29 22:31:20 +01:00
|
|
|
call assert_equal(0, delete('Xdirlink'))
|
|
|
|
|
call assert_equal(-1, delete('Xdirlink'))
|
|
|
|
|
call assert_equal(0, delete('Xsymdir', 'd'))
|
2016-01-17 15:56:34 +01:00
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_symlink_recursive_delete()
|
2020-11-27 19:13:28 +01:00
|
|
|
CheckUnix
|
2022-08-29 22:31:20 +01:00
|
|
|
call mkdir('Xrecdir3')
|
|
|
|
|
call mkdir('Xrecdir3/subdir')
|
|
|
|
|
call mkdir('Xrecdir4')
|
|
|
|
|
split Xrecdir3/Xfile
|
2016-01-17 15:56:34 +01:00
|
|
|
call setline(1, ['a', 'b'])
|
|
|
|
|
w
|
2022-08-29 22:31:20 +01:00
|
|
|
w Xrecdir3/subdir/Xfile
|
|
|
|
|
w Xrecdir4/Xfile
|
2016-01-17 15:56:34 +01:00
|
|
|
close
|
2022-08-29 22:31:20 +01:00
|
|
|
silent !ln -s ../Xrecdir4 Xrecdir3/Xreclink
|
2016-01-17 15:56:34 +01:00
|
|
|
|
2022-08-29 22:31:20 +01:00
|
|
|
call assert_true(isdirectory('Xrecdir3'))
|
|
|
|
|
call assert_equal(['a', 'b'], readfile('Xrecdir3/Xfile'))
|
|
|
|
|
call assert_true(isdirectory('Xrecdir3/subdir'))
|
|
|
|
|
call assert_equal(['a', 'b'], readfile('Xrecdir3/subdir/Xfile'))
|
|
|
|
|
call assert_true(isdirectory('Xrecdir4'))
|
|
|
|
|
call assert_true(isdirectory('Xrecdir3/Xreclink'))
|
|
|
|
|
call assert_equal(['a', 'b'], readfile('Xrecdir4/Xfile'))
|
2016-01-17 15:56:34 +01:00
|
|
|
|
2022-08-29 22:31:20 +01:00
|
|
|
call assert_equal(0, delete('Xrecdir3', 'rf'))
|
|
|
|
|
call assert_false(isdirectory('Xrecdir3'))
|
|
|
|
|
call assert_equal(-1, delete('Xrecdir3', 'd'))
|
2016-01-17 15:56:34 +01:00
|
|
|
" symlink is deleted, not the directory it points to
|
2022-08-29 22:31:20 +01:00
|
|
|
call assert_true(isdirectory('Xrecdir4'))
|
|
|
|
|
call assert_equal(['a', 'b'], readfile('Xrecdir4/Xfile'))
|
|
|
|
|
call assert_equal(0, delete('Xrecdir4/Xfile'))
|
|
|
|
|
call assert_equal(0, delete('Xrecdir4', 'd'))
|
2017-03-19 16:09:46 +01:00
|
|
|
|
2022-08-29 22:31:20 +01:00
|
|
|
bwipe Xrecdir3/Xfile
|
|
|
|
|
bwipe Xrecdir3/subdir/Xfile
|
|
|
|
|
bwipe Xrecdir4/Xfile
|
2016-01-17 15:56:34 +01:00
|
|
|
endfunc
|
2019-05-16 22:24:55 +02:00
|
|
|
|
|
|
|
|
func Test_delete_errors()
|
|
|
|
|
call assert_fails('call delete('''')', 'E474:')
|
|
|
|
|
call assert_fails('call delete(''foo'', 0)', 'E15:')
|
|
|
|
|
endfunc
|
2020-08-12 18:50:36 +02:00
|
|
|
|
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|