Mercurial > vim
view src/testdir/test_exit.vim @ 33988:7c30841c60a0 v9.0.2180
patch 9.0.2180: POSIX function name in exarg causes issues
Commit: https://github.com/vim/vim/commit/6fdb6280821a822768df5689a5d727e37d38306c
Author: Zoltan Arpadffy <zoltan.arpadffy@gmail.com>
Date: Tue Dec 19 20:53:07 2023 +0100
patch 9.0.2180: POSIX function name in exarg causes issues
Problem: POSIX function name in exarg struct causes issues
on OpenVMS
Solution: Rename getline member in exarg struct to ea_getline,
remove isinf() workaround for VMS
There are compilers that do not treat well POSIX functions - like
getline - usage in the structs.
Older VMS compilers could digest this... but the newer OpenVMS compilers
( like VSI C x86-64 X7.4-843 (GEM 50XB9) ) cannot deal with these
structs. This could be limited to getline() that is defined via
getdelim() and might not affect all POSIX functions in general - but
avoiding POSIX function names usage in the structs is a "safe side"
practice without compromising the functionality or the code readability.
The previous OpenVMS X86 port used a workaround limiting the compiler
capabilities using __CRTL_VER_OVERRIDE=80400000
In order to make the OpenVMS port future proof, this pull request
proposes a possible solution.
closes: #13704
Signed-off-by: Zoltan Arpadffy <zoltan.arpadffy@gmail.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Tue, 19 Dec 2023 21:00:04 +0100 |
parents | 695b50472e85 |
children |
line wrap: on
line source
" Tests for exiting Vim. source shared.vim source check.vim func Test_exiting() let after =<< trim [CODE] au QuitPre * call writefile(["QuitPre"], "Xtestout") au ExitPre * call writefile(["ExitPre"], "Xtestout", "a") quit [CODE] if RunVim([], after, '') call assert_equal(['QuitPre', 'ExitPre'], readfile('Xtestout')) endif call delete('Xtestout') let after =<< trim [CODE] au QuitPre * call writefile(["QuitPre"], "Xtestout") au ExitPre * call writefile(["ExitPre"], "Xtestout", "a") help wincmd w quit [CODE] if RunVim([], after, '') call assert_equal(['QuitPre', 'ExitPre'], readfile('Xtestout')) endif call delete('Xtestout') let after =<< trim [CODE] au QuitPre * call writefile(["QuitPre"], "Xtestout") au ExitPre * call writefile(["ExitPre"], "Xtestout", "a") split new qall [CODE] if RunVim([], after, '') call assert_equal(['QuitPre', 'ExitPre'], readfile('Xtestout')) endif call delete('Xtestout') " ExitPre autocommand splits the window, so that it's no longer the last one. let after =<< trim [CODE] au QuitPre * call writefile(["QuitPre"], "Xtestout", "a") au ExitPre * call writefile(["ExitPre"], "Xtestout", "a") augroup nasty au ExitPre * split augroup END quit augroup nasty au! ExitPre augroup END quit [CODE] if RunVim([], after, '') call assert_equal(['QuitPre', 'ExitPre', 'QuitPre', 'ExitPre'], \ readfile('Xtestout')) endif call delete('Xtestout') " ExitPre autocommand splits and closes the window, so that there is still " one window but it's a different one. let after =<< trim [CODE] au QuitPre * call writefile(["QuitPre"], "Xtestout", "a") au ExitPre * call writefile(["ExitPre"], "Xtestout", "a") augroup nasty au ExitPre * split | only augroup END quit augroup nasty au! ExitPre augroup END quit [CODE] if RunVim([], after, '') call assert_equal(['QuitPre', 'ExitPre', 'QuitPre', 'ExitPre'], \ readfile('Xtestout')) endif call delete('Xtestout') " ExitPre autocommand also executed on :wqall let after =<< trim [CODE] au QuitPre * call writefile(["QuitPre"], "Xtestout", "a") au ExitPre * call writefile(["ExitPre"], "Xtestout", "a") wqall [CODE] if RunVim([], after, '') call assert_equal(['QuitPre', 'ExitPre'], readfile('Xtestout')) endif call delete('Xtestout') endfunc " Test for getting the Vim exit code from v:exiting func Test_exit_code() call assert_equal(v:null, v:exiting) let before =<< trim [CODE] au QuitPre * call writefile(['qp = ' .. v:exiting], 'Xtestout', 'a') au ExitPre * call writefile(['ep = ' .. v:exiting], 'Xtestout', 'a') au VimLeavePre * call writefile(['lp = ' .. v:exiting], 'Xtestout', 'a') au VimLeave * call writefile(['l = ' .. v:exiting], 'Xtestout', 'a') [CODE] if RunVim(before, ['quit'], '') call assert_equal(['qp = v:null', 'ep = v:null', 'lp = 0', 'l = 0'], readfile('Xtestout')) endif call delete('Xtestout') if RunVim(before, ['cquit'], '') call assert_equal(['lp = 1', 'l = 1'], readfile('Xtestout')) endif call delete('Xtestout') if RunVim(before, ['cquit 4'], '') call assert_equal(['lp = 4', 'l = 4'], readfile('Xtestout')) endif call delete('Xtestout') endfunc func Test_exit_error_reading_input() CheckNotGui CheckNotMSWindows " The early exit causes memory not to be freed somehow CheckNotAsan CheckNotValgrind call writefile([":au VimLeave * call writefile(['l = ' .. v:exiting], 'Xtestout')", ":tabnew", "q:"], 'Xscript', 'bD') if RunVim([], [], '<Xscript') call assert_equal(1, v:shell_error) call assert_equal(['l = 1'], readfile('Xtestout')) endif call delete('Xtestout') endfun " vim: shiftwidth=2 sts=2 expandtab