| Bram Moolenaar | 1063f3d | 2019-05-07 22:06:52 +0200 | [diff] [blame] | 1 | " Test for :cd and chdir() |
| Bram Moolenaar | 15618fa | 2017-03-19 21:37:13 +0100 | [diff] [blame] | 2 | |
| 3 | func Test_cd_large_path() |
| 4 | " This used to crash with a heap write overflow. |
| 5 | call assert_fails('cd ' . repeat('x', 5000), 'E472:') |
| 6 | endfunc |
| 7 | |
| 8 | func Test_cd_up_and_down() |
| 9 | let path = getcwd() |
| 10 | cd .. |
| Bram Moolenaar | b2e0c94 | 2018-07-03 18:36:27 +0200 | [diff] [blame] | 11 | call assert_notequal(path, getcwd()) |
| Bram Moolenaar | 15618fa | 2017-03-19 21:37:13 +0100 | [diff] [blame] | 12 | exe 'cd ' . path |
| 13 | call assert_equal(path, getcwd()) |
| 14 | endfunc |
| Bram Moolenaar | b2e0c94 | 2018-07-03 18:36:27 +0200 | [diff] [blame] | 15 | |
| 16 | func Test_cd_no_arg() |
| 17 | if has('unix') |
| 18 | " Test that cd without argument goes to $HOME directory on Unix systems. |
| 19 | let path = getcwd() |
| 20 | cd |
| 21 | call assert_equal($HOME, getcwd()) |
| 22 | call assert_notequal(path, getcwd()) |
| 23 | exe 'cd ' . path |
| 24 | call assert_equal(path, getcwd()) |
| 25 | else |
| 26 | " Test that cd without argument echoes cwd on non-Unix systems. |
| 27 | call assert_match(getcwd(), execute('cd')) |
| 28 | endif |
| 29 | endfunc |
| 30 | |
| 31 | func Test_cd_minus() |
| 32 | " Test the :cd - goes back to the previous directory. |
| 33 | let path = getcwd() |
| 34 | cd .. |
| 35 | let path_dotdot = getcwd() |
| 36 | call assert_notequal(path, path_dotdot) |
| 37 | cd - |
| 38 | call assert_equal(path, getcwd()) |
| 39 | cd - |
| 40 | call assert_equal(path_dotdot, getcwd()) |
| 41 | cd - |
| 42 | call assert_equal(path, getcwd()) |
| 43 | endfunc |
| 44 | |
| 45 | func Test_cd_with_cpo_chdir() |
| 46 | e Xfoo |
| 47 | call setline(1, 'foo') |
| 48 | let path = getcwd() |
| 49 | set cpo+=. |
| 50 | |
| 51 | " :cd should fail when buffer is modified and 'cpo' contains dot. |
| 52 | call assert_fails('cd ..', 'E747:') |
| 53 | call assert_equal(path, getcwd()) |
| 54 | |
| 55 | " :cd with exclamation mark should succeed. |
| 56 | cd! .. |
| 57 | call assert_notequal(path, getcwd()) |
| 58 | |
| 59 | " :cd should succeed when buffer has been written. |
| 60 | w! |
| 61 | exe 'cd ' . path |
| 62 | call assert_equal(path, getcwd()) |
| 63 | |
| 64 | call delete('Xfoo') |
| 65 | set cpo& |
| 66 | bw! |
| 67 | endfunc |
| Bram Moolenaar | 1063f3d | 2019-05-07 22:06:52 +0200 | [diff] [blame] | 68 | |
| 69 | " Test for chdir() |
| 70 | func Test_chdir_func() |
| 71 | let topdir = getcwd() |
| 72 | call mkdir('Xdir/y/z', 'p') |
| 73 | |
| 74 | " Create a few tabpages and windows with different directories |
| 75 | new |
| 76 | cd Xdir |
| 77 | tabnew |
| 78 | tcd y |
| 79 | below new |
| 80 | below new |
| 81 | lcd z |
| 82 | |
| 83 | tabfirst |
| 84 | call chdir('..') |
| 85 | call assert_equal('y', fnamemodify(getcwd(1, 2), ':t')) |
| Bram Moolenaar | 4c313b1 | 2019-08-24 22:58:31 +0200 | [diff] [blame] | 86 | call assert_equal('z', fnamemodify(3->getcwd(2), ':t')) |
| Bram Moolenaar | 1063f3d | 2019-05-07 22:06:52 +0200 | [diff] [blame] | 87 | tabnext | wincmd t |
| Bram Moolenaar | 1a3a891 | 2019-08-23 22:31:37 +0200 | [diff] [blame] | 88 | eval '..'->chdir() |
| Bram Moolenaar | 1063f3d | 2019-05-07 22:06:52 +0200 | [diff] [blame] | 89 | call assert_equal('Xdir', fnamemodify(getcwd(1, 2), ':t')) |
| 90 | call assert_equal('Xdir', fnamemodify(getcwd(2, 2), ':t')) |
| 91 | call assert_equal('z', fnamemodify(getcwd(3, 2), ':t')) |
| 92 | call assert_equal('testdir', fnamemodify(getcwd(1, 1), ':t')) |
| 93 | 3wincmd w |
| 94 | call chdir('..') |
| 95 | call assert_equal('Xdir', fnamemodify(getcwd(1, 2), ':t')) |
| 96 | call assert_equal('Xdir', fnamemodify(getcwd(2, 2), ':t')) |
| 97 | call assert_equal('y', fnamemodify(getcwd(3, 2), ':t')) |
| 98 | call assert_equal('testdir', fnamemodify(getcwd(1, 1), ':t')) |
| 99 | |
| 100 | " Error case |
| 101 | call assert_fails("call chdir('dir-abcd')", 'E472:') |
| 102 | silent! let d = chdir("dir_abcd") |
| 103 | call assert_equal("", d) |
| 104 | |
| 105 | only | tabonly |
| 106 | exe 'cd ' . topdir |
| 107 | call delete('Xdir', 'rf') |
| 108 | endfunc |