Mercurial > vim
view src/testdir/test_bench_regexp.vim @ 24616:ed4d7ab9dcdc v8.2.2847
patch 8.2.2847: Perl not tested sufficiently
Commit: https://github.com/vim/vim/commit/588cf7547bafaff46a82bc125d05d24a1cedf827
Author: Dominique Pelle <dominique.pelle@gmail.com>
Date: Mon May 10 23:49:39 2021 +0200
patch 8.2.2847: Perl not tested sufficiently
Problem: Perl not tested sufficiently.
Solution: Add test. Also test W17. (Dominique Pell?, closes https://github.com/vim/vim/issues/8193)
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Tue, 11 May 2021 00:00:09 +0200 |
| parents | 16460964c304 |
| children |
line wrap: on
line source
" Test for benchmarking the RE engine source check.vim CheckFeature reltime func Measure(file, pattern, arg) for re in range(3) let sstart = reltime() let before = ['set re=' .. re] let after = ['call search("' .. escape(a:pattern, '\\') .. '", "", "", 10000)'] let after += ['quit!'] let args = empty(a:arg) ? '' : a:arg .. ' ' .. a:file call RunVim(before, after, args) let s = 'file: ' .. a:file .. ', re: ' .. re .. \ ', time: ' .. reltimestr(reltime(sstart)) call writefile([s], 'benchmark.out', "a") endfor endfunc func Test_Regex_Benchmark() call Measure('samples/re.freeze.txt', '\s\+\%#\@<!$', '+5') endfunc " vim: shiftwidth=2 sts=2 expandtab