1" Test 'autochdir' behavior
2
3if !exists("+autochdir")
4  finish
5endif
6
7func Test_set_filename()
8  let cwd = getcwd()
9  call test_autochdir()
10  set acd
11
12  let s:li = []
13  autocmd DirChanged auto call add(s:li, "autocd")
14  autocmd DirChanged auto call add(s:li, expand("<afile>"))
15
16  new
17  w samples/Xtest
18  call assert_equal("Xtest", expand('%'))
19  call assert_equal("samples", substitute(getcwd(), '.*/\(\k*\)', '\1', ''))
20  call assert_equal(["autocd", getcwd()], s:li)
21
22  bwipe!
23  au! DirChanged
24  set noacd
25  exe 'cd ' . cwd
26  call delete('samples/Xtest')
27endfunc
28