Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 1 | " Test for delete(). |
| 2 | |
Bram Moolenaar | aeb313f | 2020-11-27 19:13:28 +0100 | [diff] [blame] | 3 | source check.vim |
| 4 | |
Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 5 | func Test_file_delete() |
| 6 | split Xfile |
| 7 | call setline(1, ['a', 'b']) |
| 8 | wq |
| 9 | call assert_equal(['a', 'b'], readfile('Xfile')) |
| 10 | call assert_equal(0, delete('Xfile')) |
| 11 | call assert_fails('call readfile("Xfile")', 'E484:') |
| 12 | call assert_equal(-1, delete('Xfile')) |
Bram Moolenaar | 4520d44 | 2017-03-19 16:09:46 +0100 | [diff] [blame] | 13 | bwipe Xfile |
Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 14 | endfunc |
| 15 | |
| 16 | func Test_dir_delete() |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 17 | call mkdir('Xdirdel') |
| 18 | call assert_true(isdirectory('Xdirdel')) |
| 19 | call assert_equal(0, delete('Xdirdel', 'd')) |
| 20 | call assert_false(isdirectory('Xdirdel')) |
| 21 | call assert_equal(-1, delete('Xdirdel', 'd')) |
Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 22 | endfunc |
| 23 | |
| 24 | func Test_recursive_delete() |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 25 | call mkdir('Xrecdel') |
| 26 | call mkdir('Xrecdel/subdir') |
| 27 | call mkdir('Xrecdel/empty') |
| 28 | split Xrecdel/Xfile |
Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 29 | call setline(1, ['a', 'b']) |
| 30 | w |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 31 | w Xrecdel/subdir/Xfile |
Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 32 | close |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 33 | call assert_true(isdirectory('Xrecdel')) |
| 34 | call assert_equal(['a', 'b'], readfile('Xrecdel/Xfile')) |
| 35 | call assert_true(isdirectory('Xrecdel/subdir')) |
| 36 | call assert_equal(['a', 'b'], readfile('Xrecdel/subdir/Xfile')) |
| 37 | call assert_true('Xrecdel/empty'->isdirectory()) |
| 38 | call assert_equal(0, delete('Xrecdel', 'rf')) |
| 39 | call assert_false(isdirectory('Xrecdel')) |
| 40 | call assert_equal(-1, delete('Xrecdel', 'd')) |
| 41 | bwipe Xrecdel/Xfile |
| 42 | bwipe Xrecdel/subdir/Xfile |
Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 43 | endfunc |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 44 | |
| 45 | func Test_symlink_delete() |
Bram Moolenaar | aeb313f | 2020-11-27 19:13:28 +0100 | [diff] [blame] | 46 | CheckUnix |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 47 | split Xfile |
| 48 | call setline(1, ['a', 'b']) |
| 49 | wq |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 50 | silent !ln -s Xfile Xdellink |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 51 | " Delete the link, not the file |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 52 | call assert_equal(0, delete('Xdellink')) |
| 53 | call assert_equal(-1, delete('Xdellink')) |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 54 | call assert_equal(0, delete('Xfile')) |
Bram Moolenaar | 4520d44 | 2017-03-19 16:09:46 +0100 | [diff] [blame] | 55 | bwipe Xfile |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 56 | endfunc |
| 57 | |
| 58 | func Test_symlink_dir_delete() |
Bram Moolenaar | aeb313f | 2020-11-27 19:13:28 +0100 | [diff] [blame] | 59 | CheckUnix |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 60 | call mkdir('Xsymdir') |
| 61 | silent !ln -s Xsymdir Xdirlink |
| 62 | call assert_true(isdirectory('Xsymdir')) |
| 63 | call assert_true(isdirectory('Xdirlink')) |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 64 | " Delete the link, not the directory |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 65 | call assert_equal(0, delete('Xdirlink')) |
| 66 | call assert_equal(-1, delete('Xdirlink')) |
| 67 | call assert_equal(0, delete('Xsymdir', 'd')) |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 68 | endfunc |
| 69 | |
| 70 | func Test_symlink_recursive_delete() |
Bram Moolenaar | aeb313f | 2020-11-27 19:13:28 +0100 | [diff] [blame] | 71 | CheckUnix |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 72 | call mkdir('Xrecdir3') |
| 73 | call mkdir('Xrecdir3/subdir') |
| 74 | call mkdir('Xrecdir4') |
| 75 | split Xrecdir3/Xfile |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 76 | call setline(1, ['a', 'b']) |
| 77 | w |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 78 | w Xrecdir3/subdir/Xfile |
| 79 | w Xrecdir4/Xfile |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 80 | close |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 81 | silent !ln -s ../Xrecdir4 Xrecdir3/Xreclink |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 82 | |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 83 | call assert_true(isdirectory('Xrecdir3')) |
| 84 | call assert_equal(['a', 'b'], readfile('Xrecdir3/Xfile')) |
| 85 | call assert_true(isdirectory('Xrecdir3/subdir')) |
| 86 | call assert_equal(['a', 'b'], readfile('Xrecdir3/subdir/Xfile')) |
| 87 | call assert_true(isdirectory('Xrecdir4')) |
| 88 | call assert_true(isdirectory('Xrecdir3/Xreclink')) |
| 89 | call assert_equal(['a', 'b'], readfile('Xrecdir4/Xfile')) |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 90 | |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 91 | call assert_equal(0, delete('Xrecdir3', 'rf')) |
| 92 | call assert_false(isdirectory('Xrecdir3')) |
| 93 | call assert_equal(-1, delete('Xrecdir3', 'd')) |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 94 | " symlink is deleted, not the directory it points to |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 95 | call assert_true(isdirectory('Xrecdir4')) |
| 96 | call assert_equal(['a', 'b'], readfile('Xrecdir4/Xfile')) |
| 97 | call assert_equal(0, delete('Xrecdir4/Xfile')) |
| 98 | call assert_equal(0, delete('Xrecdir4', 'd')) |
Bram Moolenaar | 4520d44 | 2017-03-19 16:09:46 +0100 | [diff] [blame] | 99 | |
Bram Moolenaar | 3b0d70f | 2022-08-29 22:31:20 +0100 | [diff] [blame] | 100 | bwipe Xrecdir3/Xfile |
| 101 | bwipe Xrecdir3/subdir/Xfile |
| 102 | bwipe Xrecdir4/Xfile |
Bram Moolenaar | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 103 | endfunc |
Bram Moolenaar | 17aca70 | 2019-05-16 22:24:55 +0200 | [diff] [blame] | 104 | |
| 105 | func Test_delete_errors() |
| 106 | call assert_fails('call delete('''')', 'E474:') |
| 107 | call assert_fails('call delete(''foo'', 0)', 'E15:') |
| 108 | endfunc |
Bram Moolenaar | 6d91bcb | 2020-08-12 18:50:36 +0200 | [diff] [blame] | 109 | |
| 110 | " vim: shiftwidth=2 sts=2 expandtab |