Mercurial > vim

annotate src/testdir/test_getcwd.in @ 7867:3b79ecd05a51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v7.4.1230 for changeset 30a9f5fc3508e60c66993b2977a59bedc94cd2ec
author Christian Brabandt <cb@256bit.org>
date Mon, 01 Feb 2016 21:45:06 +0100
parents d4370fef0175
children 05e7d084c6c2
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7653
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1 Tests for getcwd(), haslocaldir(), and :lcd vim: set ft=vim :
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
2
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
3 STARTTEST
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
4 :so small.vim
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
5 :" Do all test in a separate window to avoid E211 when we recursively
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6 :" delete the Xtopdir directory during cleanup
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
7 :"
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
8 :" This will cause a few errors, do it silently.
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
9 :set visualbell
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
10 :set nocp viminfo+=nviminfo
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
11 :"
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
12 :function! DeleteDirectory(dir)
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
13 : if has("win16") || has("win32") || has("win64") || has("dos16") || has("dos32")
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
14 : exec "silent !rmdir /Q /S " . a:dir
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
15 : else
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
16 : exec "silent !rm -rf " . a:dir
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
17 : endif
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
18 :endfun
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
19 :"
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
20 :function! GetCwdInfo(win, tab)
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
21 : let tab_changed = 0
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
22 : let mod = ":t"
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
23 : if a:tab > 0 && a:tab != tabpagenr()
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
24 : let tab_changed = 1
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
25 : exec "tabnext " . a:tab
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
26 : endif
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
27 : let bufname = fnamemodify(bufname(winbufnr(a:win)), mod)
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
28 : if tab_changed
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
29 : tabprevious
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
30 : endif
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
31 : if a:win == 0 && a:tab == 0
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
32 : let dirname = fnamemodify(getcwd(), mod)
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
33 : let lflag = haslocaldir()
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
34 : elseif a:tab == 0
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
35 : let dirname = fnamemodify(getcwd(a:win), mod)
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
36 : let lflag = haslocaldir(a:win)
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
37 : else
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
38 : let dirname = fnamemodify(getcwd(a:win, a:tab), mod)
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
39 : let lflag = haslocaldir(a:win, a:tab)
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
40 : endif
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
41 : return bufname . ' ' . dirname . ' ' . lflag
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
42 :endfunction
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
43 :" On windows a stale "Xtopdir" directory may exist, remove it so that
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
44 :" we start from a clean state.
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
45 :call DeleteDirectory("Xtopdir")
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
46 :let r=[]
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
47 :new
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
48 :let cwd=getcwd()
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
49 :let test_out = cwd . '/test.out'
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
50 :call mkdir('Xtopdir')
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
51 :cd Xtopdir
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
52 :call mkdir('Xdir1')
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
53 :call mkdir('Xdir2')
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
54 :call mkdir('Xdir3')
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
55 :new a
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
56 :new b
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
57 :new c
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
58 :3wincmd w
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
59 :lcd Xdir1
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
60 :call add(r, GetCwdInfo(0, 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
61 :wincmd W
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
62 :call add(r, GetCwdInfo(0, 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
63 :wincmd W
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
64 :lcd Xdir3
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
65 :call add(r, GetCwdInfo(0, 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
66 :call add(r, GetCwdInfo(bufwinnr("a"), 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
67 :call add(r, GetCwdInfo(bufwinnr("b"), 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
68 :call add(r, GetCwdInfo(bufwinnr("c"), 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
69 :wincmd W
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
70 :call add(r, GetCwdInfo(bufwinnr("a"), tabpagenr()))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
71 :call add(r, GetCwdInfo(bufwinnr("b"), tabpagenr()))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
72 :call add(r, GetCwdInfo(bufwinnr("c"), tabpagenr()))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
73 :"
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
74 :tabnew x
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
75 :new y
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
76 :new z
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
77 :3wincmd w
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
78 :call add(r, GetCwdInfo(0, 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
79 :wincmd W
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
80 :lcd Xdir2
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
81 :call add(r, GetCwdInfo(0, 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
82 :wincmd W
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
83 :lcd Xdir3
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
84 :call add(r, GetCwdInfo(0, 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
85 :call add(r, GetCwdInfo(bufwinnr("x"), 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
86 :call add(r, GetCwdInfo(bufwinnr("y"), 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
87 :call add(r, GetCwdInfo(bufwinnr("z"), 0))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
88 :let tp_nr = tabpagenr()
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
89 :tabrewind
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
90 :call add(r, GetCwdInfo(3, tp_nr))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
91 :call add(r, GetCwdInfo(2, tp_nr))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
92 :call add(r, GetCwdInfo(1, tp_nr))
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
93 :"
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
94 :call writefile(r, test_out, "a")
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
95 :q
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
96 :exec "cd " . cwd
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
97 :call DeleteDirectory("Xtopdir")
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
98 :qa!
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
99 ENDTEST
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
100
d4370fef0175 commit https://github.com/vim/vim/commit/c970330676eaae7ba7cd05cfa46df5a413853ef9
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
101