Mercurial > vim
view src/testdir/test_exec_while_if.vim @ 26418:9a1b96ae26d1 v8.2.3740
patch 8.2.3740: memory left allocated on exit when using Tcl
Commit: https://github.com/vim/vim/commit/c7269f862748c3b0f56b5a651019e18c7d5190ee
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Dec 5 11:36:23 2021 +0000
patch 8.2.3740: memory left allocated on exit when using Tcl
Problem: Memory left allocated on exit when using Tcl.
Solution: Call Tcl_Finalize().
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 05 Dec 2021 12:45:03 +0100 |
parents | 87ff80c08e4b |
children | fb4c30606b4a |
line wrap: on
line source
" Test for :execute, :while, :for and :if func Test_exec_while_if() new let i = 0 while i < 12 let i = i + 1 if has("ebcdic") execute "normal o" . i . "\047" else execute "normal o" . i . "\033" endif if i % 2 normal Ax if i == 9 break endif if i == 5 continue else let j = 9 while j > 0 if has("ebcdic") execute "normal" j . "a" . j . "\x27" else execute "normal" j . "a" . j . "\x1b" endif let j = j - 1 endwhile endif endif if i == 9 if has("ebcdic") execute "normal Az\047" else execute "normal Az\033" endif endif endwhile unlet i j call assert_equal(["", \ "1x999999999888888887777777666666555554444333221", \ "2", \ "3x999999999888888887777777666666555554444333221", \ "4", \ "5x", \ "6", \ "7x999999999888888887777777666666555554444333221", \ "8", \ "9x"], getline(1, 10)) endfunc " vim: shiftwidth=2 sts=2 expandtab