Mercurial > vim
annotate src/testdir/test77a.in @ 25776:f31cf0388eab v8.2.3423
patch 8.2.3423: Vim9: list += list creates a new list in :def function
Commit: https://github.com/vim/vim/commit/07802044b90b2cbcc64b2dfe235f019d7c37589c
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Sep 9 23:01:14 2021 +0200
patch 8.2.3423: Vim9: list += list creates a new list in :def function
Problem: Vim9: list += list creates a new list in :def function.
Solution: Append to the existing list.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Thu, 09 Sep 2021 23:15:04 +0200 |
parents | e705ea6e855b |
children |
rev | line source |
---|---|
5704 | 1 Inserts 2 million lines with consecutive integers starting from 1 |
2 (essentially, the output of GNU's seq 1 2000000), writes them to Xtest | |
3 and writes its cksum to test.out. | |
4 | |
5 We need 2 million lines to trigger a call to mf_hash_grow(). If it would mess | |
6 up the lines the checksum would differ. | |
7 | |
8 cksum is part of POSIX and so should be available on most Unixes. | |
9 If it isn't available then the test will be skipped. | |
10 | |
11 VMS does not have CKSUM but has a built in CHECKSUM - it should be used | |
12 STARTTEST | |
21797
e705ea6e855b
patch 8.2.1448: test 77a for VMS depends on small.vim which does not exist
Bram Moolenaar <Bram@vim.org>
parents:
5704
diff
changeset
|
13 :silent! while 0 |
e705ea6e855b
patch 8.2.1448: test 77a for VMS depends on small.vim which does not exist
Bram Moolenaar <Bram@vim.org>
parents:
5704
diff
changeset
|
14 : e! test.ok |
e705ea6e855b
patch 8.2.1448: test 77a for VMS depends on small.vim which does not exist
Bram Moolenaar <Bram@vim.org>
parents:
5704
diff
changeset
|
15 : w! test.out |
e705ea6e855b
patch 8.2.1448: test 77a for VMS depends on small.vim which does not exist
Bram Moolenaar <Bram@vim.org>
parents:
5704
diff
changeset
|
16 : qa! |
e705ea6e855b
patch 8.2.1448: test 77a for VMS depends on small.vim which does not exist
Bram Moolenaar <Bram@vim.org>
parents:
5704
diff
changeset
|
17 :silent! endwhile |
5704 | 18 :if !has("vms") |
19 : e! test.ok | |
20 : w! test.out | |
21 : qa! | |
22 :endif | |
23 :set fileformat=unix undolevels=-1 | |
24 ggdG | |
25 :let i = 1 | |
26 :while i <= 2000000 | call append(i, range(i, i + 99)) | let i += 100 | endwhile | |
27 ggdd | |
28 :w! Xtest. | |
29 :r !@test77a.com Xtest. | |
30 :s/\s/ /g | |
31 :set fileformat& | |
32 :.w! test.out | |
33 :qa! | |
34 ENDTEST | |
35 |