1Inserts 2 million lines with consecutive integers starting from 1 2(essentially, the output of GNU's seq 1 2000000), writes them to Xtest 3and writes its cksum to test.out. 4 5We need 2 million lines to trigger a call to mf_hash_grow(). If it would mess 6up the lines the checksum would differ. 7 8cksum is part of POSIX and so should be available on most Unixes. 9If it isn't available then the test will be skipped. 10 11VMS does not have CKSUM but has a built in CHECKSUM - it should be used 12STARTTEST 13:silent! while 0 14: e! test.ok 15: w! test.out 16: qa! 17:silent! endwhile 18:if !has("vms") 19: e! test.ok 20: w! test.out 21: qa! 22:endif 23:set fileformat=unix undolevels=-1 24ggdG 25:let i = 1 26:while i <= 2000000 | call append(i, range(i, i + 99)) | let i += 100 | endwhile 27ggdd 28:w! Xtest. 29:r !@test77a.com Xtest. 30:s/\s/ /g 31:set fileformat& 32:.w! test.out 33:qa! 34ENDTEST 35 36