Mercurial > vim

comparison src/testdir/test_eval_stuff.vim @ 20083:0da696bd7352 v8.2.0597

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.0597: test_eval is old style Commit: https://github.com/vim/vim/commit/90455cfa87f84f16179c19241b034abbfa8b3c9a Author: Bram Moolenaar <Bram@vim.org> Date: Sat Apr 18 21:56:38 2020 +0200 patch 8.2.0597: test_eval is old style Problem: Test_eval is old style. Solution: Change some tests to a new style test.
author Bram Moolenaar <Bram@vim.org>
date Sat, 18 Apr 2020 22:00:04 +0200
parents b3e93a05c3ca
children f5274405ae64
comparison
equal deleted inserted replaced
20082:7183cb9ca180 20083:0da696bd7352
233 " This will fail on systems without 64 bit int support or when not configured 233 " This will fail on systems without 64 bit int support or when not configured
234 " correctly. 234 " correctly.
235 call assert_equal(64, v:numbersize) 235 call assert_equal(64, v:numbersize)
236 endfunc 236 endfunc
237 237
238 func Assert_reg(name, type, value, valuestr, expr, exprstr)
239 call assert_equal(a:type, getregtype(a:name))
240 call assert_equal(a:value, getreg(a:name))
241 call assert_equal(a:valuestr, string(getreg(a:name, 0, 1)))
242 call assert_equal(a:expr, getreg(a:name, 1))
243 call assert_equal(a:exprstr, string(getreg(a:name, 1, 1)))
244 endfunc
245
246 func Test_let_register()
247 let @" = 'abc'
248 call Assert_reg('"', 'v', "abc", "['abc']", "abc", "['abc']")
249 let @" = "abc\n"
250 call Assert_reg('"', 'V', "abc\n", "['abc']", "abc\n", "['abc']")
251 let @" = "abc\<C-m>"
252 call Assert_reg('"', 'V', "abc\r\n", "['abc\r']", "abc\r\n", "['abc\r']")
253 let @= = '"abc"'
254 call Assert_reg('=', 'v', "abc", "['abc']", '"abc"', "['\"abc\"']")
255 endfunc
256
257 func Assert_regput(name, result)
258 new
259 execute "silent normal! o==\n==\e\"" . a:name . "P"
260 call assert_equal(a:result, getline(2, line('$')))
261 endfunc
262
263
264 func Test_setreg_basic()
265 call setreg('a', 'abcA', 'c')
266 call Assert_reg('a', 'v', "abcA", "['abcA']", "abcA", "['abcA']")
267 call Assert_regput('a', ['==', '=abcA='])
268
269 call setreg('A', 'abcAc', 'c')
270 call Assert_reg('A', 'v', "abcAabcAc", "['abcAabcAc']", "abcAabcAc", "['abcAabcAc']")
271 call Assert_regput('a', ['==', '=abcAabcAc='])
272
273 call setreg('A', 'abcAl', 'l')
274 call Assert_reg('A', 'V', "abcAabcAcabcAl\n", "['abcAabcAcabcAl']", "abcAabcAcabcAl\n", "['abcAabcAcabcAl']")
275 call Assert_regput('a', ['==', 'abcAabcAcabcAl', '=='])
276
277 call setreg('A', 'abcAc2','c')
278 call Assert_reg('A', 'v', "abcAabcAcabcAl\nabcAc2", "['abcAabcAcabcAl', 'abcAc2']", "abcAabcAcabcAl\nabcAc2", "['abcAabcAcabcAl', 'abcAc2']")
279 call Assert_regput('a', ['==', '=abcAabcAcabcAl', 'abcAc2='])
280
281 call setreg('b', 'abcB', 'v')
282 call Assert_reg('b', 'v', "abcB", "['abcB']", "abcB", "['abcB']")
283 call Assert_regput('b', ['==', '=abcB='])
284
285 call setreg('b', 'abcBc', 'ca')
286 call Assert_reg('b', 'v', "abcBabcBc", "['abcBabcBc']", "abcBabcBc", "['abcBabcBc']")
287 call Assert_regput('b', ['==', '=abcBabcBc='])
288
289 call setreg('b', 'abcBb', 'ba')
290 call Assert_reg('b', "\<C-V>5", "abcBabcBcabcBb", "['abcBabcBcabcBb']", "abcBabcBcabcBb", "['abcBabcBcabcBb']")
291 call Assert_regput('b', ['==', '=abcBabcBcabcBb='])
292
293 call setreg('b', 'abcBc2','ca')
294 call Assert_reg('b', "v", "abcBabcBcabcBb\nabcBc2", "['abcBabcBcabcBb', 'abcBc2']", "abcBabcBcabcBb\nabcBc2", "['abcBabcBcabcBb', 'abcBc2']")
295 call Assert_regput('b', ['==', '=abcBabcBcabcBb', 'abcBc2='])
296
297 call setreg('b', 'abcBb2','b50a')
298 call Assert_reg('b', "\<C-V>50", "abcBabcBcabcBb\nabcBc2abcBb2", "['abcBabcBcabcBb', 'abcBc2abcBb2']", "abcBabcBcabcBb\nabcBc2abcBb2", "['abcBabcBcabcBb', 'abcBc2abcBb2']")
299 call Assert_regput('b', ['==', '=abcBabcBcabcBb =', ' abcBc2abcBb2'])
300
301 call setreg('c', 'abcC', 'l')
302 call Assert_reg('c', 'V', "abcC\n", "['abcC']", "abcC\n", "['abcC']")
303 call Assert_regput('c', ['==', 'abcC', '=='])
304
305 call setreg('C', 'abcCl', 'l')
306 call Assert_reg('C', 'V', "abcC\nabcCl\n", "['abcC', 'abcCl']", "abcC\nabcCl\n", "['abcC', 'abcCl']")
307 call Assert_regput('c', ['==', 'abcC', 'abcCl', '=='])
308
309 call setreg('C', 'abcCc', 'c')
310 call Assert_reg('C', 'v', "abcC\nabcCl\nabcCc", "['abcC', 'abcCl', 'abcCc']", "abcC\nabcCl\nabcCc", "['abcC', 'abcCl', 'abcCc']")
311 call Assert_regput('c', ['==', '=abcC', 'abcCl', 'abcCc='])
312
313 call setreg('d', 'abcD', 'V')
314 call Assert_reg('d', 'V', "abcD\n", "['abcD']", "abcD\n", "['abcD']")
315 call Assert_regput('d', ['==', 'abcD', '=='])
316
317 call setreg('D', 'abcDb', 'b')
318 call Assert_reg('d', "\<C-V>5", "abcD\nabcDb", "['abcD', 'abcDb']", "abcD\nabcDb", "['abcD', 'abcDb']")
319 call Assert_regput('d', ['==', '=abcD =', ' abcDb'])
320
321 call setreg('e', 'abcE', 'b')
322 call Assert_reg('e', "\<C-V>4", "abcE", "['abcE']", "abcE", "['abcE']")
323 call Assert_regput('e', ['==', '=abcE='])
324
325 call setreg('E', 'abcEb', 'b')
326 call Assert_reg('E', "\<C-V>5", "abcE\nabcEb", "['abcE', 'abcEb']", "abcE\nabcEb", "['abcE', 'abcEb']")
327 call Assert_regput('e', ['==', '=abcE =', ' abcEb'])
328
329 call setreg('E', 'abcEl', 'l')
330 call Assert_reg('E', "V", "abcE\nabcEb\nabcEl\n", "['abcE', 'abcEb', 'abcEl']", "abcE\nabcEb\nabcEl\n", "['abcE', 'abcEb', 'abcEl']")
331 call Assert_regput('e', ['==', 'abcE', 'abcEb', 'abcEl', '=='])
332
333 call setreg('f', 'abcF', "\<C-v>")
334 call Assert_reg('f', "\<C-V>4", "abcF", "['abcF']", "abcF", "['abcF']")
335 call Assert_regput('f', ['==', '=abcF='])
336
337 call setreg('F', 'abcFc', 'c')
338 call Assert_reg('F', "v", "abcF\nabcFc", "['abcF', 'abcFc']", "abcF\nabcFc", "['abcF', 'abcFc']")
339 call Assert_regput('f', ['==', '=abcF', 'abcFc='])
340
341 call setreg('g', 'abcG', 'b10')
342 call Assert_reg('g', "\<C-V>10", "abcG", "['abcG']", "abcG", "['abcG']")
343 call Assert_regput('g', ['==', '=abcG ='])
344
345 call setreg('h', 'abcH', "\<C-v>10")
346 call Assert_reg('h', "\<C-V>10", "abcH", "['abcH']", "abcH", "['abcH']")
347 call Assert_regput('h', ['==', '=abcH ='])
348
349 call setreg('I', 'abcI')
350 call Assert_reg('I', "v", "abcI", "['abcI']", "abcI", "['abcI']")
351 call Assert_regput('I', ['==', '=abcI='])
352 endfunc
353
354 func Test_setreg_append_NL()
355 endfunc
356
357
238 " vim: shiftwidth=2 sts=2 expandtab 358 " vim: shiftwidth=2 sts=2 expandtab