view src/testdir/test77.in @ 8919:240ad5a78199 v7.4.1746

commit https://github.com/vim/vim/commit/95509e18f8806046eeee27482c77666bbec515da Author: Bram Moolenaar <Bram@vim.org> Date: Fri Apr 15 21:16:11 2016 +0200 patch 7.4.1746 Problem: Memory leak in Perl. Solution: Decrement the reference count. Add a test. (Damien)
author Christian Brabandt <cb@256bit.org>
date Fri, 15 Apr 2016 21:30:06 +0200
parents 5cd32322154c
children ae45d497868f
line wrap: on
line source

Inserts 2 million lines with consecutive integers starting from 1
(essentially, the output of GNU's seq 1 2000000), writes them to Xtest
and writes its cksum to test.out.

We need 2 million lines to trigger a call to mf_hash_grow().  If it would mess
up the lines the checksum would differ.

cksum is part of POSIX and so should be available on most Unixes.
If it isn't available then the test will be skipped.

STARTTEST
:so small.vim
:if !executable("cksum")
: e! test.ok
: w! test.out
: qa!
:endif
:set fileformat=unix undolevels=-1
ggdG
:let i = 1
:while i <= 2000000 | call append(i, range(i, i + 99)) | let i += 100 | endwhile
ggdd
:w! Xtest
:r !cksum Xtest
:s/\s/ /g
:set fileformat&
:.w! test.out
:qa!
ENDTEST