Mercurial > vim
comparison src/testdir/test77a.in @ 5704:47a673b20e49 v7.4.197
updated for version 7.4.197
Problem: Various problems on VMS.
Solution: Fix several VMS problems. (Zoltan Arpadffy)
| author | Bram Moolenaar <bram@vim.org> |
|---|---|
| date | Wed, 12 Mar 2014 16:51:55 +0100 |
| parents | |
| children | e705ea6e855b |
comparison
equal
deleted
inserted
replaced
| 5703:69b2ec0c96cc | 5704:47a673b20e49 |
|---|---|
| 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 | |
| 13 :so small.vim | |
| 14 :if !has("vms") | |
| 15 : e! test.ok | |
| 16 : w! test.out | |
| 17 : qa! | |
| 18 :endif | |
| 19 :set fileformat=unix undolevels=-1 | |
| 20 ggdG | |
| 21 :let i = 1 | |
| 22 :while i <= 2000000 | call append(i, range(i, i + 99)) | let i += 100 | endwhile | |
| 23 ggdd | |
| 24 :w! Xtest. | |
| 25 :r !@test77a.com Xtest. | |
| 26 :s/\s/ /g | |
| 27 :set fileformat& | |
| 28 :.w! test.out | |
| 29 :qa! | |
| 30 ENDTEST | |
| 31 |