vim-patch:8.1.0896: tests for restricted mode no run for MS-Windows GUI

Problem:    Tests for restricted mode no run for MS-Windows GUI.
Solution:   Make tests also work in MS-Windows GUI.
5a6698169d
This commit is contained in:
Jan Edmund Lazo 2020-02-24 21:03:39 -05:00
parent 2a818f8901
commit ca3dba482c
No known key found for this signature in database
GPG Key ID: 64915E6E9F735B15
1 changed files with 13 additions and 22 deletions

View File

@ -2,27 +2,13 @@
source shared.vim
if has('win32') && has('gui')
" Win32 GUI shows a dialog instead of displaying the error in the last line.
finish
endif
"if has('win32') && has('gui')
" " Win32 GUI shows a dialog instead of displaying the error in the last line.
" finish
"endif
func Test_restricted()
let cmd = GetVimCommand('Xrestricted')
if cmd == ''
return
endif
call writefile([
\ "silent !ls",
\ "call writefile([v:errmsg], 'Xrestrout')",
\ "qa!",
\ ], 'Xrestricted')
call system(cmd . ' -Z')
call assert_match('E145:', join(readfile('Xrestrout')))
call delete('Xrestricted')
call delete('Xrestrout')
call Run_restricted_test('!ls', 'E145:')
endfunc
func Run_restricted_test(ex_cmd, error)
@ -31,10 +17,15 @@ func Run_restricted_test(ex_cmd, error)
return
endif
" Use a VimEnter autocommand to avoid that the error message is displayed in
" a dialog with an OK button.
call writefile([
\ a:ex_cmd,
\ "call writefile([v:errmsg], 'Xrestrout')",
\ "qa!",
\ "func Init()",
\ " silent! " . a:ex_cmd,
\ " call writefile([v:errmsg], 'Xrestrout')",
\ " qa!",
\ "endfunc",
\ "au VimEnter * call Init()",
\ ], 'Xrestricted')
call system(cmd . ' -Z')
call assert_match(a:error, join(readfile('Xrestrout')))