Mercurial > vim
annotate src/testdir/test77a.in @ 24484:bc1a533148d7 v8.2.2782
patch 8.2.2782: Vim9: blob operations not fully tested
Commit: https://github.com/vim/vim/commit/39211cba723a2cb58a97c7e08826713164b86efc
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Apr 18 15:48:04 2021 +0200
patch 8.2.2782: Vim9: blob operations not fully tested
Problem: Vim9: blob operations not fully tested.
Solution: Make more blob tests run in Vim9 script. Fix filter(). Make
insert() give an error for a null blob, like add().
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Sun, 18 Apr 2021 16:00:06 +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 |