Mercurial > vim

comparison src/testdir/test_find_complete.vim @ 12851:90aaa974594e v8.0.1302

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.0.1302: still too many old style tests commit https://github.com/vim/vim/commit/209d3874c19d73b209e7d223cf05ea22e183f408 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Nov 16 21:52:51 2017 +0100 patch 8.0.1302: still too many old style tests Problem: Still too many old style tests. Solution: Convert a few more tests to new style. (Yegappan Lakshmanan, closes #2326)
author Christian Brabandt <cb@256bit.org>
date Thu, 16 Nov 2017 22:00:03 +0100
parents
children 0dfd846f9190
comparison
equal deleted inserted replaced
12850:3064e2b6ca3b 12851:90aaa974594e
1 " Tests for the 'find' command completion.
2
3 " Do all the tests in a separate window to avoid E211 when we recursively
4 " delete the Xfind directory during cleanup
5 func Test_find_complete()
6 set belloff=all
7
8 " On windows a stale "Xfind" directory may exist, remove it so that
9 " we start from a clean state.
10 call delete("Xfind", "rf")
11 let cwd = getcwd()
12 let test_out = cwd . '/test.out'
13 call mkdir('Xfind')
14 cd Xfind
15
16 new
17 set path=
18 call assert_fails('call feedkeys(":find\t\n", "xt")', 'E345:')
19 close
20
21 new
22 set path=.
23 call assert_fails('call feedkeys(":find\t\n", "xt")', 'E32:')
24 close
25
26 new
27 set path=.,,
28 call assert_fails('call feedkeys(":find\t\n", "xt")', 'E32:')
29 close
30
31 new
32 set path=./**
33 call assert_fails('call feedkeys(":find\t\n", "xt")', 'E32:')
34 close
35
36 " We shouldn't find any file till this point
37
38 call mkdir('in/path', 'p')
39 exe 'cd ' . cwd
40 call writefile(['Holy Grail'], 'Xfind/file.txt')
41 call writefile(['Jimmy Hoffa'], 'Xfind/in/file.txt')
42 call writefile(['Another Holy Grail'], 'Xfind/in/stuff.txt')
43 call writefile(['E.T.'], 'Xfind/in/path/file.txt')
44
45 new
46 set path=Xfind/**
47 call feedkeys(":find file\t\n", "xt")
48 call assert_equal('Holy Grail', getline(1))
49 call feedkeys(":find file\t\t\n", "xt")
50 call assert_equal('Jimmy Hoffa', getline(1))
51 call feedkeys(":find file\t\t\t\n", "xt")
52 call assert_equal('E.T.', getline(1))
53
54 " Rerun the previous three find completions, using fullpath in 'path'
55 exec "set path=" . cwd . "/Xfind/**"
56
57 call feedkeys(":find file\t\n", "xt")
58 call assert_equal('Holy Grail', getline(1))
59 call feedkeys(":find file\t\t\n", "xt")
60 call assert_equal('Jimmy Hoffa', getline(1))
61 call feedkeys(":find file\t\t\t\n", "xt")
62 call assert_equal('E.T.', getline(1))
63
64 " Same steps again, using relative and fullpath items that point to the same
65 " recursive location.
66 " This is to test that there are no duplicates in the completion list.
67 set path+=Xfind/**
68 call feedkeys(":find file\t\n", "xt")
69 call assert_equal('Holy Grail', getline(1))
70 call feedkeys(":find file\t\t\n", "xt")
71 call assert_equal('Jimmy Hoffa', getline(1))
72 call feedkeys(":find file\t\t\t\n", "xt")
73 call assert_equal('E.T.', getline(1))
74 call feedkeys(":find file\t\t\n", "xt")
75
76 " Test find completion for directory of current buffer, which at this point
77 " is Xfind/in/file.txt.
78 set path=.
79 call feedkeys(":find st\t\n", "xt")
80 call assert_equal('Another Holy Grail', getline(1))
81
82 " Test find completion for empty path item ",," which is the current
83 " directory
84 cd Xfind
85 set path=,,
86 call feedkeys(":find f\t\n", "xt")
87 call assert_equal('Holy Grail', getline(1))
88
89 " Test shortening of
90 "
91 " foo/x/bar/voyager.txt
92 " foo/y/bar/voyager.txt
93 "
94 " When current directory is above foo/ they should be shortened to (in order
95 " of appearance):
96 "
97 " x/bar/voyager.txt
98 " y/bar/voyager.txt
99 call mkdir('foo/x/bar', 'p')
100 call mkdir('foo/y/bar', 'p')
101 call writefile(['Voyager 1'], 'foo/x/bar/voyager.txt')
102 call writefile(['Voyager 2'], 'foo/y/bar/voyager.txt')
103
104 exec "set path=" . cwd . "/Xfind/**"
105 call feedkeys(":find voyager\t\n", "xt")
106 call assert_equal('Voyager 1', getline(1))
107 call feedkeys(":find voyager\t\t\n", "xt")
108 call assert_equal('Voyager 2', getline(1))
109
110 "
111 " When current directory is .../foo/y/bar they should be shortened to (in
112 " order of appearance):
113 "
114 " ./voyager.txt
115 " x/bar/voyager.txt
116 cd foo/y/bar
117 call feedkeys(":find voyager\t\n", "xt")
118 call assert_equal('Voyager 2', getline(1))
119 call feedkeys(":find voyager\t\t\n", "xt")
120 call assert_equal('Voyager 1', getline(1))
121
122 " Check the opposite too:
123 cd ../../x/bar
124 call feedkeys(":find voyager\t\n", "xt")
125 call assert_equal('Voyager 1', getline(1))
126 call feedkeys(":find voyager\t\t\n", "xt")
127 call assert_equal('Voyager 2', getline(1))
128
129 " Check for correct handling of shorten_fname()'s behavior on windows
130 exec "cd " . cwd . "/Xfind/in"
131 call feedkeys(":find file\t\n", "xt")
132 call assert_equal('Jimmy Hoffa', getline(1))
133
134 " Test for relative to current buffer 'path' item
135 exec "cd " . cwd . "/Xfind/"
136 set path=./path
137 " Open the file where Jimmy Hoffa is found
138 e in/file.txt
139 " Find the file containing 'E.T.' in the Xfind/in/path directory
140 call feedkeys(":find file\t\n", "xt")
141 call assert_equal('E.T.', getline(1))
142
143 " Test that completion works when path=.,,
144 set path=.,,
145 " Open Jimmy Hoffa file
146 e in/file.txt
147 call assert_equal('Jimmy Hoffa', getline(1))
148
149 " Search for the file containing Holy Grail in same directory as in/path.txt
150 call feedkeys(":find stu\t\n", "xt")
151 call assert_equal('Another Holy Grail', getline(1))
152
153 enew | only
154 exe 'cd ' . cwd
155 call delete('Xfind', 'rf')
156 set path&
157 endfunc