| 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() |
| 17 | call mkdir('Xdir1') |
| 18 | call assert_true(isdirectory('Xdir1')) |
| 19 | call assert_equal(0, delete('Xdir1', 'd')) |
| 20 | call assert_false(isdirectory('Xdir1')) |
| 21 | call assert_equal(-1, delete('Xdir1', 'd')) |
| 22 | endfunc |
| 23 | |
| 24 | func Test_recursive_delete() |
| 25 | call mkdir('Xdir1') |
| 26 | call mkdir('Xdir1/subdir') |
| Bram Moolenaar | 336bd62 | 2016-01-17 18:23:58 +0100 | [diff] [blame] | 27 | call mkdir('Xdir1/empty') |
| Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 28 | split Xdir1/Xfile |
| 29 | call setline(1, ['a', 'b']) |
| 30 | w |
| 31 | w Xdir1/subdir/Xfile |
| 32 | close |
| 33 | call assert_true(isdirectory('Xdir1')) |
| 34 | call assert_equal(['a', 'b'], readfile('Xdir1/Xfile')) |
| 35 | call assert_true(isdirectory('Xdir1/subdir')) |
| 36 | call assert_equal(['a', 'b'], readfile('Xdir1/subdir/Xfile')) |
| Bram Moolenaar | f9f24ce | 2019-08-31 21:17:39 +0200 | [diff] [blame] | 37 | call assert_true('Xdir1/empty'->isdirectory()) |
| Bram Moolenaar | da440d2 | 2016-01-16 21:27:23 +0100 | [diff] [blame] | 38 | call assert_equal(0, delete('Xdir1', 'rf')) |
| 39 | call assert_false(isdirectory('Xdir1')) |
| 40 | call assert_equal(-1, delete('Xdir1', 'd')) |
| Bram Moolenaar | 4520d44 | 2017-03-19 16:09:46 +0100 | [diff] [blame] | 41 | bwipe Xdir1/Xfile |
| 42 | bwipe Xdir1/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 |
| 50 | silent !ln -s Xfile Xlink |
| 51 | " Delete the link, not the file |
| 52 | call assert_equal(0, delete('Xlink')) |
| 53 | call assert_equal(-1, delete('Xlink')) |
| 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 | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 60 | call mkdir('Xdir1') |
| 61 | silent !ln -s Xdir1 Xlink |
| 62 | call assert_true(isdirectory('Xdir1')) |
| 63 | call assert_true(isdirectory('Xlink')) |
| 64 | " Delete the link, not the directory |
| 65 | call assert_equal(0, delete('Xlink')) |
| 66 | call assert_equal(-1, delete('Xlink')) |
| 67 | call assert_equal(0, delete('Xdir1', 'd')) |
| 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 | 43a34f9 | 2016-01-17 15:56:34 +0100 | [diff] [blame] | 72 | call mkdir('Xdir3') |
| 73 | call mkdir('Xdir3/subdir') |
| 74 | call mkdir('Xdir4') |
| 75 | split Xdir3/Xfile |
| 76 | call setline(1, ['a', 'b']) |
| 77 | w |
| 78 | w Xdir3/subdir/Xfile |
| 79 | w Xdir4/Xfile |
| 80 | close |
| 81 | silent !ln -s ../Xdir4 Xdir3/Xlink |
| 82 | |
| 83 | call assert_true(isdirectory('Xdir3')) |
| 84 | call assert_equal(['a', 'b'], readfile('Xdir3/Xfile')) |
| 85 | call assert_true(isdirectory('Xdir3/subdir')) |
| 86 | call assert_equal(['a', 'b'], readfile('Xdir3/subdir/Xfile')) |
| 87 | call assert_true(isdirectory('Xdir4')) |
| 88 | call assert_true(isdirectory('Xdir3/Xlink')) |
| 89 | call assert_equal(['a', 'b'], readfile('Xdir4/Xfile')) |
| 90 | |
| 91 | call assert_equal(0, delete('Xdir3', 'rf')) |
| 92 | call assert_false(isdirectory('Xdir3')) |
| 93 | call assert_equal(-1, delete('Xdir3', 'd')) |
| 94 | " symlink is deleted, not the directory it points to |
| 95 | call assert_true(isdirectory('Xdir4')) |
| 96 | call assert_equal(['a', 'b'], readfile('Xdir4/Xfile')) |
| 97 | call assert_equal(0, delete('Xdir4/Xfile')) |
| 98 | call assert_equal(0, delete('Xdir4', 'd')) |
| Bram Moolenaar | 4520d44 | 2017-03-19 16:09:46 +0100 | [diff] [blame] | 99 | |
| 100 | bwipe Xdir3/Xfile |
| 101 | bwipe Xdir3/subdir/Xfile |
| 102 | bwipe Xdir4/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 |