2020-02-12 19:33:51 -07:00
|
|
|
|
" Tests for the writefile() function and some :write commands.
|
2017-03-13 05:16:40 -07:00
|
|
|
|
|
2021-04-07 15:05:23 -07:00
|
|
|
|
source check.vim
|
|
|
|
|
source term_util.vim
|
|
|
|
|
|
2018-06-21 18:44:18 -07:00
|
|
|
|
func Test_writefile()
|
2017-03-13 05:16:40 -07:00
|
|
|
|
let f = tempname()
|
|
|
|
|
call writefile(["over","written"], f, "b")
|
|
|
|
|
call writefile(["hello","world"], f, "b")
|
|
|
|
|
call writefile(["!", "good"], f, "a")
|
|
|
|
|
call writefile(["morning"], f, "ab")
|
|
|
|
|
call writefile(["", "vimmers"], f, "ab")
|
|
|
|
|
let l = readfile(f)
|
|
|
|
|
call assert_equal("hello", l[0])
|
|
|
|
|
call assert_equal("world!", l[1])
|
|
|
|
|
call assert_equal("good", l[2])
|
|
|
|
|
call assert_equal("morning", l[3])
|
|
|
|
|
call assert_equal("vimmers", l[4])
|
|
|
|
|
call delete(f)
|
2021-08-02 07:27:06 -07:00
|
|
|
|
|
|
|
|
|
call assert_fails('call writefile("text", "Xfile")', 'E475: Invalid argument: writefile() first argument must be a List or a Blob')
|
2018-06-21 18:44:18 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
2020-02-12 19:33:51 -07:00
|
|
|
|
func Test_writefile_ignore_regexp_error()
|
|
|
|
|
write Xt[z-a]est.txt
|
|
|
|
|
call delete('Xt[z-a]est.txt')
|
|
|
|
|
endfunc
|
|
|
|
|
|
2018-06-21 18:44:18 -07:00
|
|
|
|
func Test_writefile_fails_gently()
|
|
|
|
|
call assert_fails('call writefile(["test"], "Xfile", [])', 'E730:')
|
|
|
|
|
call assert_false(filereadable("Xfile"))
|
|
|
|
|
call delete("Xfile")
|
|
|
|
|
|
2018-06-22 06:44:01 -07:00
|
|
|
|
call assert_fails('call writefile(["test", [], [], [], "tset"], "Xfile")', 'E745:')
|
2018-06-21 18:44:18 -07:00
|
|
|
|
call assert_false(filereadable("Xfile"))
|
|
|
|
|
call delete("Xfile")
|
|
|
|
|
|
|
|
|
|
call assert_fails('call writefile([], "Xfile", [])', 'E730:')
|
|
|
|
|
call assert_false(filereadable("Xfile"))
|
|
|
|
|
call delete("Xfile")
|
|
|
|
|
|
|
|
|
|
call assert_fails('call writefile([], [])', 'E730:')
|
|
|
|
|
endfunc
|
2018-09-03 11:05:46 -07:00
|
|
|
|
|
2018-09-07 05:38:25 -07:00
|
|
|
|
func Test_writefile_fails_conversion()
|
2022-02-03 18:23:54 -07:00
|
|
|
|
if !has('iconv') || has('sun')
|
2018-09-07 05:38:25 -07:00
|
|
|
|
return
|
|
|
|
|
endif
|
2019-05-18 11:05:58 -07:00
|
|
|
|
" Without a backup file the write won't happen if there is a conversion
|
|
|
|
|
" error.
|
2019-05-31 22:17:33 -07:00
|
|
|
|
set nobackup nowritebackup backupdir=. backupskip=
|
2018-09-07 05:38:25 -07:00
|
|
|
|
new
|
|
|
|
|
let contents = ["line one", "line two"]
|
|
|
|
|
call writefile(contents, 'Xfile')
|
|
|
|
|
edit Xfile
|
|
|
|
|
call setline(1, ["first line", "cannot convert \u010b", "third line"])
|
2019-05-18 11:05:58 -07:00
|
|
|
|
call assert_fails('write ++enc=cp932', 'E513:')
|
2018-09-07 05:38:25 -07:00
|
|
|
|
call assert_equal(contents, readfile('Xfile'))
|
|
|
|
|
|
2022-11-06 16:04:49 -07:00
|
|
|
|
" With 'backupcopy' set, if there is a conversion error, the backup file is
|
|
|
|
|
" still created.
|
|
|
|
|
set backupcopy=yes writebackup& backup&
|
|
|
|
|
call delete('Xfile' .. &backupext)
|
|
|
|
|
call assert_fails('write ++enc=cp932', 'E513:')
|
|
|
|
|
call assert_equal(contents, readfile('Xfile'))
|
|
|
|
|
call assert_equal(contents, readfile('Xfile' .. &backupext))
|
|
|
|
|
set backupcopy&
|
|
|
|
|
%bw!
|
|
|
|
|
|
|
|
|
|
" Conversion error during write
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ["\U10000000"])
|
|
|
|
|
let output = execute('write! ++enc=utf-16 Xfile')
|
|
|
|
|
call assert_match('CONVERSION ERROR', output)
|
|
|
|
|
let output = execute('write! ++enc=ucs-2 Xfile')
|
|
|
|
|
call assert_match('CONVERSION ERROR', output)
|
|
|
|
|
call delete('Xfilz~')
|
|
|
|
|
call delete('Xfily~')
|
|
|
|
|
%bw!
|
|
|
|
|
|
2018-09-07 05:38:25 -07:00
|
|
|
|
call delete('Xfile')
|
2022-11-06 16:04:49 -07:00
|
|
|
|
call delete('Xfile' .. &backupext)
|
2018-09-07 05:38:25 -07:00
|
|
|
|
bwipe!
|
2019-05-31 22:17:33 -07:00
|
|
|
|
set backup& writebackup& backupdir&vim backupskip&vim
|
2018-09-07 05:38:25 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
2019-05-18 11:05:58 -07:00
|
|
|
|
func Test_writefile_fails_conversion2()
|
|
|
|
|
if !has('iconv') || has('sun')
|
|
|
|
|
return
|
|
|
|
|
endif
|
|
|
|
|
" With a backup file the write happens even if there is a conversion error,
|
|
|
|
|
" but then the backup file must remain
|
2019-05-31 22:17:33 -07:00
|
|
|
|
set nobackup writebackup backupdir=. backupskip=
|
2019-05-18 11:05:58 -07:00
|
|
|
|
let contents = ["line one", "line two"]
|
|
|
|
|
call writefile(contents, 'Xfile_conversion_err')
|
|
|
|
|
edit Xfile_conversion_err
|
|
|
|
|
call setline(1, ["first line", "cannot convert \u010b", "third line"])
|
|
|
|
|
set fileencoding=latin1
|
|
|
|
|
let output = execute('write')
|
|
|
|
|
call assert_match('CONVERSION ERROR', output)
|
|
|
|
|
call assert_equal(contents, readfile('Xfile_conversion_err~'))
|
|
|
|
|
|
|
|
|
|
call delete('Xfile_conversion_err')
|
|
|
|
|
call delete('Xfile_conversion_err~')
|
|
|
|
|
bwipe!
|
2019-05-31 22:17:33 -07:00
|
|
|
|
set backup& writebackup& backupdir&vim backupskip&vim
|
2019-05-18 11:05:58 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
2018-09-03 11:05:46 -07:00
|
|
|
|
func SetFlag(timer)
|
|
|
|
|
let g:flag = 1
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_write_quit_split()
|
|
|
|
|
" Prevent exiting by splitting window on file write.
|
|
|
|
|
augroup testgroup
|
|
|
|
|
autocmd BufWritePre * split
|
|
|
|
|
augroup END
|
|
|
|
|
e! Xfile
|
|
|
|
|
call setline(1, 'nothing')
|
|
|
|
|
wq
|
|
|
|
|
|
|
|
|
|
if has('timers')
|
|
|
|
|
" timer will not run if "exiting" is still set
|
|
|
|
|
let g:flag = 0
|
|
|
|
|
call timer_start(1, 'SetFlag')
|
|
|
|
|
sleep 50m
|
|
|
|
|
call assert_equal(1, g:flag)
|
|
|
|
|
unlet g:flag
|
|
|
|
|
endif
|
|
|
|
|
au! testgroup
|
|
|
|
|
bwipe Xfile
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_nowrite_quit_split()
|
|
|
|
|
" Prevent exiting by opening a help window.
|
|
|
|
|
e! Xfile
|
|
|
|
|
help
|
|
|
|
|
wincmd w
|
|
|
|
|
exe winnr() . 'q'
|
|
|
|
|
|
|
|
|
|
if has('timers')
|
|
|
|
|
" timer will not run if "exiting" is still set
|
|
|
|
|
let g:flag = 0
|
|
|
|
|
call timer_start(1, 'SetFlag')
|
|
|
|
|
sleep 50m
|
|
|
|
|
call assert_equal(1, g:flag)
|
|
|
|
|
unlet g:flag
|
|
|
|
|
endif
|
|
|
|
|
bwipe Xfile
|
|
|
|
|
endfunc
|
2018-09-03 18:06:59 -07:00
|
|
|
|
|
2022-08-19 06:40:22 -07:00
|
|
|
|
func Test_writefile_sync_arg()
|
|
|
|
|
" This doesn't check if fsync() works, only that the argument is accepted.
|
|
|
|
|
call writefile(['one'], 'Xtest', 's')
|
|
|
|
|
call writefile(['two'], 'Xtest', 'S')
|
|
|
|
|
call delete('Xtest')
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_writefile_sync_dev_stdout()
|
2022-11-06 07:13:36 -07:00
|
|
|
|
CheckUnix
|
2022-08-19 06:40:22 -07:00
|
|
|
|
if filewritable('/dev/stdout')
|
|
|
|
|
" Just check that this doesn't cause an error.
|
|
|
|
|
call writefile(['one'], '/dev/stdout', 's')
|
|
|
|
|
else
|
|
|
|
|
throw 'Skipped: /dev/stdout is not writable'
|
|
|
|
|
endif
|
|
|
|
|
endfunc
|
|
|
|
|
|
2018-09-03 18:06:59 -07:00
|
|
|
|
func Test_writefile_autowrite()
|
|
|
|
|
set autowrite
|
|
|
|
|
new
|
|
|
|
|
next Xa Xb Xc
|
|
|
|
|
call setline(1, 'aaa')
|
|
|
|
|
next
|
|
|
|
|
call assert_equal(['aaa'], readfile('Xa'))
|
|
|
|
|
call setline(1, 'bbb')
|
|
|
|
|
call assert_fails('edit XX')
|
|
|
|
|
call assert_false(filereadable('Xb'))
|
|
|
|
|
|
|
|
|
|
set autowriteall
|
|
|
|
|
edit XX
|
|
|
|
|
call assert_equal(['bbb'], readfile('Xb'))
|
|
|
|
|
|
|
|
|
|
bwipe!
|
|
|
|
|
call delete('Xa')
|
|
|
|
|
call delete('Xb')
|
|
|
|
|
set noautowrite
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_writefile_autowrite_nowrite()
|
|
|
|
|
set autowrite
|
|
|
|
|
new
|
|
|
|
|
next Xa Xb Xc
|
|
|
|
|
set buftype=nowrite
|
|
|
|
|
call setline(1, 'aaa')
|
|
|
|
|
let buf = bufnr('%')
|
|
|
|
|
" buffer contents silently lost
|
|
|
|
|
edit XX
|
|
|
|
|
call assert_false(filereadable('Xa'))
|
|
|
|
|
rewind
|
|
|
|
|
call assert_equal('', getline(1))
|
|
|
|
|
|
|
|
|
|
bwipe!
|
|
|
|
|
set noautowrite
|
|
|
|
|
endfunc
|
2021-04-19 11:57:19 -07:00
|
|
|
|
|
|
|
|
|
" Test for ':w !<cmd>' to pipe lines from the current buffer to an external
|
|
|
|
|
" command.
|
|
|
|
|
func Test_write_pipe_to_cmd()
|
2022-02-08 00:09:54 -07:00
|
|
|
|
CheckUnix
|
2021-04-19 11:57:19 -07:00
|
|
|
|
new
|
|
|
|
|
call setline(1, ['L1', 'L2', 'L3', 'L4'])
|
|
|
|
|
2,3w !cat > Xfile
|
|
|
|
|
call assert_equal(['L2', 'L3'], readfile('Xfile'))
|
|
|
|
|
close!
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for :saveas
|
|
|
|
|
func Test_saveas()
|
|
|
|
|
call assert_fails('saveas', 'E471:')
|
|
|
|
|
call writefile(['L1'], 'Xfile')
|
|
|
|
|
new Xfile
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ['L1'])
|
|
|
|
|
call assert_fails('saveas Xfile', 'E139:')
|
|
|
|
|
close!
|
|
|
|
|
enew | only
|
|
|
|
|
call delete('Xfile')
|
2021-08-13 10:20:09 -07:00
|
|
|
|
|
|
|
|
|
" :saveas should detect and set the file type.
|
|
|
|
|
syntax on
|
|
|
|
|
saveas! Xsaveas.pl
|
|
|
|
|
call assert_equal('perl', &filetype)
|
|
|
|
|
syntax off
|
|
|
|
|
%bw!
|
|
|
|
|
call delete('Xsaveas.pl')
|
2022-09-20 04:49:00 -07:00
|
|
|
|
|
|
|
|
|
" :saveas fails for "nofile" buffer
|
|
|
|
|
set buftype=nofile
|
|
|
|
|
call assert_fails('saveas Xsafile', 'E676: No matching autocommands for buftype=nofile buffer')
|
|
|
|
|
|
|
|
|
|
bwipe!
|
2021-04-19 11:57:19 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_write_errors()
|
|
|
|
|
" Test for writing partial buffer
|
|
|
|
|
call writefile(['L1', 'L2', 'L3'], 'Xfile')
|
|
|
|
|
new Xfile
|
|
|
|
|
call assert_fails('1,2write', 'E140:')
|
|
|
|
|
close!
|
|
|
|
|
|
2022-07-07 19:34:32 -07:00
|
|
|
|
call assert_fails('w > Xtest', 'E494:')
|
2022-07-11 17:28:56 -07:00
|
|
|
|
|
2021-04-19 11:57:19 -07:00
|
|
|
|
" Try to overwrite a directory
|
|
|
|
|
if has('unix')
|
|
|
|
|
call mkdir('Xdir1')
|
|
|
|
|
call assert_fails('write Xdir1', 'E17:')
|
|
|
|
|
call delete('Xdir1', 'd')
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
" Test for :wall for a buffer with no name
|
|
|
|
|
enew | only
|
|
|
|
|
call setline(1, ['L1'])
|
|
|
|
|
call assert_fails('wall', 'E141:')
|
|
|
|
|
enew!
|
|
|
|
|
|
|
|
|
|
" Test for writing a 'readonly' file
|
|
|
|
|
new Xfile
|
|
|
|
|
set readonly
|
|
|
|
|
call assert_fails('write', 'E45:')
|
|
|
|
|
close
|
|
|
|
|
|
|
|
|
|
" Test for writing to a read-only file
|
|
|
|
|
new Xfile
|
|
|
|
|
call setfperm('Xfile', 'r--r--r--')
|
|
|
|
|
call assert_fails('write', 'E505:')
|
|
|
|
|
call setfperm('Xfile', 'rw-rw-rw-')
|
|
|
|
|
close
|
|
|
|
|
|
|
|
|
|
call delete('Xfile')
|
2022-11-04 16:34:06 -07:00
|
|
|
|
|
|
|
|
|
" Nvim treats NULL list/blob more like empty list/blob
|
|
|
|
|
" call writefile(v:_null_list, 'Xfile')
|
|
|
|
|
" call assert_false(filereadable('Xfile'))
|
|
|
|
|
" call writefile(v:_null_blob, 'Xfile')
|
|
|
|
|
" call assert_false(filereadable('Xfile'))
|
|
|
|
|
call assert_fails('call writefile([], "")', 'E482:')
|
2022-11-04 17:07:06 -07:00
|
|
|
|
|
|
|
|
|
" very long file name
|
|
|
|
|
let long_fname = repeat('n', 5000)
|
|
|
|
|
call assert_fails('exe "w " .. long_fname', 'E75:')
|
|
|
|
|
call assert_fails('call writefile([], long_fname)', 'E482:')
|
2022-11-06 16:04:49 -07:00
|
|
|
|
|
|
|
|
|
" Test for writing to a block device on Unix-like systems
|
|
|
|
|
if has('unix') && getfperm('/dev/loop0') != ''
|
|
|
|
|
\ && getftype('/dev/loop0') == 'bdev' && !IsRoot()
|
|
|
|
|
new
|
|
|
|
|
edit /dev/loop0
|
2022-11-06 16:06:49 -07:00
|
|
|
|
call assert_fails('write', 'E503: ')
|
2022-11-06 16:04:49 -07:00
|
|
|
|
call assert_fails('write!', 'E503: ')
|
|
|
|
|
close!
|
|
|
|
|
endif
|
2022-11-04 17:07:06 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for writing to a file which is modified after Vim read it
|
|
|
|
|
func Test_write_file_mtime()
|
|
|
|
|
CheckEnglish
|
|
|
|
|
CheckRunVimInTerminal
|
|
|
|
|
|
|
|
|
|
" First read the file into a buffer
|
|
|
|
|
call writefile(["Line1", "Line2"], 'Xfile')
|
|
|
|
|
let old_ftime = getftime('Xfile')
|
|
|
|
|
let buf = RunVimInTerminal('Xfile', #{rows : 10})
|
|
|
|
|
call term_wait(buf)
|
|
|
|
|
call term_sendkeys(buf, ":set noswapfile\<CR>")
|
|
|
|
|
call term_wait(buf)
|
|
|
|
|
|
|
|
|
|
" Modify the file directly. Make sure the file modification time is
|
|
|
|
|
" different. Note that on Linux/Unix, the file is considered modified
|
|
|
|
|
" outside, only if the difference is 2 seconds or more
|
|
|
|
|
sleep 1
|
|
|
|
|
call writefile(["Line3", "Line4"], 'Xfile')
|
|
|
|
|
let new_ftime = getftime('Xfile')
|
|
|
|
|
while new_ftime - old_ftime < 2
|
|
|
|
|
sleep 100m
|
|
|
|
|
call writefile(["Line3", "Line4"], 'Xfile')
|
|
|
|
|
let new_ftime = getftime('Xfile')
|
|
|
|
|
endwhile
|
|
|
|
|
|
|
|
|
|
" Try to overwrite the file and check for the prompt
|
|
|
|
|
call term_sendkeys(buf, ":w\<CR>")
|
|
|
|
|
call term_wait(buf)
|
|
|
|
|
call WaitForAssert({-> assert_equal("WARNING: The file has been changed since reading it!!!", term_getline(buf, 9))})
|
|
|
|
|
call assert_equal("Do you really want to write to it (y/n)?",
|
|
|
|
|
\ term_getline(buf, 10))
|
|
|
|
|
call term_sendkeys(buf, "n\<CR>")
|
|
|
|
|
call term_wait(buf)
|
|
|
|
|
call assert_equal(new_ftime, getftime('Xfile'))
|
|
|
|
|
call term_sendkeys(buf, ":w\<CR>")
|
|
|
|
|
call term_wait(buf)
|
|
|
|
|
call term_sendkeys(buf, "y\<CR>")
|
|
|
|
|
call term_wait(buf)
|
|
|
|
|
call WaitForAssert({-> assert_equal('Line2', readfile('Xfile')[1])})
|
|
|
|
|
|
|
|
|
|
" clean up
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for an autocmd unloading a buffer during a write command
|
|
|
|
|
func Test_write_autocmd_unloadbuf_lockmark()
|
|
|
|
|
augroup WriteTest
|
|
|
|
|
autocmd BufWritePre Xfile enew | write
|
|
|
|
|
augroup END
|
|
|
|
|
e Xfile
|
2022-11-04 16:24:06 -07:00
|
|
|
|
call assert_fails('lockmarks write', ['E32', 'E203:'])
|
2022-11-04 17:07:06 -07:00
|
|
|
|
augroup WriteTest
|
|
|
|
|
au!
|
|
|
|
|
augroup END
|
|
|
|
|
augroup! WriteTest
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for writing a buffer with 'acwrite' but without autocmds
|
|
|
|
|
func Test_write_acwrite_error()
|
|
|
|
|
new Xfile
|
|
|
|
|
call setline(1, ['line1', 'line2', 'line3'])
|
|
|
|
|
set buftype=acwrite
|
|
|
|
|
call assert_fails('write', 'E676:')
|
|
|
|
|
call assert_fails('1,2write!', 'E676:')
|
|
|
|
|
call assert_fails('w >>', 'E676:')
|
|
|
|
|
close!
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for adding and removing lines from an autocmd when writing a buffer
|
|
|
|
|
func Test_write_autocmd_add_remove_lines()
|
|
|
|
|
new Xfile
|
|
|
|
|
call setline(1, ['aaa', 'bbb', 'ccc', 'ddd'])
|
|
|
|
|
|
|
|
|
|
" Autocmd deleting lines from the file when writing a partial file
|
|
|
|
|
augroup WriteTest2
|
|
|
|
|
au!
|
|
|
|
|
autocmd FileWritePre Xfile 1,2d
|
|
|
|
|
augroup END
|
|
|
|
|
call assert_fails('2,3w!', 'E204:')
|
|
|
|
|
|
|
|
|
|
" Autocmd adding lines to a file when writing a partial file
|
|
|
|
|
augroup WriteTest2
|
|
|
|
|
au!
|
|
|
|
|
autocmd FileWritePre Xfile call append(0, ['xxx', 'yyy'])
|
|
|
|
|
augroup END
|
|
|
|
|
%d
|
|
|
|
|
call setline(1, ['aaa', 'bbb', 'ccc', 'ddd'])
|
|
|
|
|
1,2w!
|
|
|
|
|
call assert_equal(['xxx', 'yyy', 'aaa', 'bbb'], readfile('Xfile'))
|
|
|
|
|
|
|
|
|
|
" Autocmd deleting lines from the file when writing the whole file
|
|
|
|
|
augroup WriteTest2
|
|
|
|
|
au!
|
|
|
|
|
autocmd BufWritePre Xfile 1,2d
|
|
|
|
|
augroup END
|
|
|
|
|
%d
|
|
|
|
|
call setline(1, ['aaa', 'bbb', 'ccc', 'ddd'])
|
|
|
|
|
w
|
|
|
|
|
call assert_equal(['ccc', 'ddd'], readfile('Xfile'))
|
|
|
|
|
|
|
|
|
|
augroup WriteTest2
|
|
|
|
|
au!
|
|
|
|
|
augroup END
|
|
|
|
|
augroup! WriteTest2
|
|
|
|
|
|
|
|
|
|
close!
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for writing to a readonly file
|
|
|
|
|
func Test_write_readonly()
|
|
|
|
|
call writefile([], 'Xfile')
|
|
|
|
|
call setfperm('Xfile', "r--------")
|
|
|
|
|
edit Xfile
|
2022-11-06 07:13:36 -07:00
|
|
|
|
set noreadonly backupskip=
|
2022-11-04 17:07:06 -07:00
|
|
|
|
call assert_fails('write', 'E505:')
|
|
|
|
|
let save_cpo = &cpo
|
|
|
|
|
set cpo+=W
|
|
|
|
|
call assert_fails('write!', 'E504:')
|
|
|
|
|
let &cpo = save_cpo
|
2022-11-04 17:22:46 -07:00
|
|
|
|
call setline(1, ['line1'])
|
|
|
|
|
write!
|
|
|
|
|
call assert_equal(['line1'], readfile('Xfile'))
|
2022-11-06 16:04:49 -07:00
|
|
|
|
|
|
|
|
|
" Auto-saving a readonly file should fail with 'autowriteall'
|
|
|
|
|
%bw!
|
|
|
|
|
e Xfile
|
|
|
|
|
set noreadonly autowriteall
|
|
|
|
|
call setline(1, ['aaaa'])
|
|
|
|
|
call assert_fails('n', 'E505:')
|
|
|
|
|
set cpo+=W
|
|
|
|
|
call assert_fails('n', 'E504:')
|
|
|
|
|
set cpo-=W
|
|
|
|
|
set autowriteall&
|
|
|
|
|
|
2022-11-06 07:13:36 -07:00
|
|
|
|
set backupskip&
|
2022-11-04 17:07:06 -07:00
|
|
|
|
call delete('Xfile')
|
2022-11-06 16:04:49 -07:00
|
|
|
|
%bw!
|
2021-04-19 11:57:19 -07:00
|
|
|
|
endfunc
|
2019-06-08 01:53:43 -07:00
|
|
|
|
|
2022-11-04 17:22:46 -07:00
|
|
|
|
" Test for 'patchmode'
|
|
|
|
|
func Test_patchmode()
|
|
|
|
|
call writefile(['one'], 'Xfile')
|
2022-11-06 07:13:36 -07:00
|
|
|
|
set patchmode=.orig nobackup backupskip= writebackup
|
2022-11-04 17:22:46 -07:00
|
|
|
|
new Xfile
|
|
|
|
|
call setline(1, 'two')
|
|
|
|
|
" first write should create the .orig file
|
|
|
|
|
write
|
|
|
|
|
call assert_equal(['one'], readfile('Xfile.orig'))
|
|
|
|
|
call setline(1, 'three')
|
|
|
|
|
" subsequent writes should not create/modify the .orig file
|
|
|
|
|
write
|
|
|
|
|
call assert_equal(['one'], readfile('Xfile.orig'))
|
2022-11-06 16:04:49 -07:00
|
|
|
|
|
|
|
|
|
" use 'patchmode' with 'nobackup' and 'nowritebackup' to create an empty
|
|
|
|
|
" original file
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
call delete('Xfile.orig')
|
|
|
|
|
%bw!
|
|
|
|
|
set patchmode=.orig nobackup nowritebackup
|
|
|
|
|
edit Xfile
|
|
|
|
|
call setline(1, ['xxx'])
|
|
|
|
|
write
|
|
|
|
|
call assert_equal(['xxx'], readfile('Xfile'))
|
|
|
|
|
call assert_equal([], readfile('Xfile.orig'))
|
|
|
|
|
|
2022-11-06 07:13:36 -07:00
|
|
|
|
set patchmode& backup& backupskip& writebackup&
|
2022-11-04 17:22:46 -07:00
|
|
|
|
call delete('Xfile')
|
|
|
|
|
call delete('Xfile.orig')
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for writing to a file in a readonly directory
|
2022-11-06 07:15:33 -07:00
|
|
|
|
" NOTE: if you run tests as root this will fail. Don't run tests as root!
|
2022-11-04 17:22:46 -07:00
|
|
|
|
func Test_write_readonly_dir()
|
2022-11-06 07:13:36 -07:00
|
|
|
|
" On MS-Windows, modifying files in a read-only directory is allowed.
|
|
|
|
|
CheckUnix
|
2022-11-06 07:15:59 -07:00
|
|
|
|
" Root can do it too.
|
|
|
|
|
CheckNotRoot
|
|
|
|
|
|
2022-11-06 16:21:46 -07:00
|
|
|
|
call mkdir('Xdir/')
|
2022-11-04 17:22:46 -07:00
|
|
|
|
call writefile(['one'], 'Xdir/Xfile1')
|
|
|
|
|
call setfperm('Xdir', 'r-xr--r--')
|
|
|
|
|
" try to create a new file in the directory
|
|
|
|
|
new Xdir/Xfile2
|
|
|
|
|
call setline(1, 'two')
|
|
|
|
|
call assert_fails('write', 'E212:')
|
|
|
|
|
" try to create a backup file in the directory
|
|
|
|
|
edit! Xdir/Xfile1
|
2022-11-06 07:13:36 -07:00
|
|
|
|
set backupdir=./Xdir backupskip=
|
2022-11-04 17:22:46 -07:00
|
|
|
|
set patchmode=.orig
|
|
|
|
|
call assert_fails('write', 'E509:')
|
|
|
|
|
call setfperm('Xdir', 'rwxr--r--')
|
|
|
|
|
call delete('Xdir', 'rf')
|
2022-11-06 07:13:36 -07:00
|
|
|
|
set backupdir& backupskip& patchmode&
|
2022-11-04 17:22:46 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
2022-08-19 06:40:22 -07:00
|
|
|
|
" Test for writing a file using invalid file encoding
|
|
|
|
|
func Test_write_invalid_encoding()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, 'abc')
|
|
|
|
|
call assert_fails('write ++enc=axbyc Xfile', 'E213:')
|
|
|
|
|
close!
|
2019-06-08 15:12:28 -07:00
|
|
|
|
endfunc
|
2021-04-07 15:05:23 -07:00
|
|
|
|
|
|
|
|
|
" Tests for reading and writing files with conversion for Win32.
|
|
|
|
|
func Test_write_file_encoding()
|
2022-12-20 02:15:37 -07:00
|
|
|
|
throw 'Skipped: Nvim does not support encoding=latin1'
|
2022-08-19 06:40:22 -07:00
|
|
|
|
CheckMSWindows
|
2021-04-07 15:05:23 -07:00
|
|
|
|
let save_encoding = &encoding
|
|
|
|
|
let save_fileencodings = &fileencodings
|
2022-12-20 02:15:37 -07:00
|
|
|
|
set encoding=latin1 fileencodings&
|
2021-04-07 15:05:23 -07:00
|
|
|
|
let text =<< trim END
|
2022-12-20 02:15:37 -07:00
|
|
|
|
1 utf-8 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01
|
|
|
|
|
2 cp1251 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
|
|
|
|
3 cp866 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
2021-04-07 15:05:23 -07:00
|
|
|
|
END
|
|
|
|
|
call writefile(text, 'Xfile')
|
|
|
|
|
edit Xfile
|
|
|
|
|
|
|
|
|
|
" write tests:
|
|
|
|
|
" combine three values for 'encoding' with three values for 'fileencoding'
|
|
|
|
|
" also write files for read tests
|
|
|
|
|
call cursor(1, 1)
|
|
|
|
|
set encoding=utf-8
|
|
|
|
|
.w! ++enc=utf-8 Xtest
|
|
|
|
|
.w ++enc=cp1251 >> Xtest
|
|
|
|
|
.w ++enc=cp866 >> Xtest
|
|
|
|
|
.w! ++enc=utf-8 Xutf8
|
|
|
|
|
let expected =<< trim END
|
2022-12-20 02:15:37 -07:00
|
|
|
|
1 utf-8 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01
|
|
|
|
|
1 utf-8 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
|
|
|
|
1 utf-8 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
2021-04-07 15:05:23 -07:00
|
|
|
|
END
|
|
|
|
|
call assert_equal(expected, readfile('Xtest'))
|
|
|
|
|
|
|
|
|
|
call cursor(2, 1)
|
|
|
|
|
set encoding=cp1251
|
|
|
|
|
.w! ++enc=utf-8 Xtest
|
|
|
|
|
.w ++enc=cp1251 >> Xtest
|
|
|
|
|
.w ++enc=cp866 >> Xtest
|
|
|
|
|
.w! ++enc=cp1251 Xcp1251
|
|
|
|
|
let expected =<< trim END
|
2022-12-20 02:15:37 -07:00
|
|
|
|
2 cp1251 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01
|
|
|
|
|
2 cp1251 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
|
|
|
|
2 cp1251 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
2021-04-07 15:05:23 -07:00
|
|
|
|
END
|
|
|
|
|
call assert_equal(expected, readfile('Xtest'))
|
|
|
|
|
|
|
|
|
|
call cursor(3, 1)
|
|
|
|
|
set encoding=cp866
|
|
|
|
|
.w! ++enc=utf-8 Xtest
|
|
|
|
|
.w ++enc=cp1251 >> Xtest
|
|
|
|
|
.w ++enc=cp866 >> Xtest
|
|
|
|
|
.w! ++enc=cp866 Xcp866
|
|
|
|
|
let expected =<< trim END
|
2022-12-20 02:15:37 -07:00
|
|
|
|
3 cp866 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01
|
|
|
|
|
3 cp866 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
|
|
|
|
3 cp866 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
2021-04-07 15:05:23 -07:00
|
|
|
|
END
|
|
|
|
|
call assert_equal(expected, readfile('Xtest'))
|
|
|
|
|
|
|
|
|
|
" read three 'fileencoding's with utf-8 'encoding'
|
|
|
|
|
set encoding=utf-8 fencs=utf-8,cp1251
|
|
|
|
|
e Xutf8
|
|
|
|
|
.w! ++enc=utf-8 Xtest
|
|
|
|
|
e Xcp1251
|
|
|
|
|
.w ++enc=utf-8 >> Xtest
|
|
|
|
|
set fencs=utf-8,cp866
|
|
|
|
|
e Xcp866
|
|
|
|
|
.w ++enc=utf-8 >> Xtest
|
|
|
|
|
let expected =<< trim END
|
2022-12-20 02:15:37 -07:00
|
|
|
|
1 utf-8 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01
|
|
|
|
|
2 cp1251 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01
|
|
|
|
|
3 cp866 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01
|
2021-04-07 15:05:23 -07:00
|
|
|
|
END
|
|
|
|
|
call assert_equal(expected, readfile('Xtest'))
|
|
|
|
|
|
|
|
|
|
" read three 'fileencoding's with cp1251 'encoding'
|
|
|
|
|
set encoding=utf-8 fencs=utf-8,cp1251
|
|
|
|
|
e Xutf8
|
|
|
|
|
.w! ++enc=cp1251 Xtest
|
|
|
|
|
e Xcp1251
|
|
|
|
|
.w ++enc=cp1251 >> Xtest
|
|
|
|
|
set fencs=utf-8,cp866
|
|
|
|
|
e Xcp866
|
|
|
|
|
.w ++enc=cp1251 >> Xtest
|
|
|
|
|
let expected =<< trim END
|
2022-12-20 02:15:37 -07:00
|
|
|
|
1 utf-8 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
|
|
|
|
2 cp1251 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
|
|
|
|
3 cp866 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
2021-04-07 15:05:23 -07:00
|
|
|
|
END
|
|
|
|
|
call assert_equal(expected, readfile('Xtest'))
|
|
|
|
|
|
|
|
|
|
" read three 'fileencoding's with cp866 'encoding'
|
|
|
|
|
set encoding=cp866 fencs=utf-8,cp1251
|
|
|
|
|
e Xutf8
|
|
|
|
|
.w! ++enc=cp866 Xtest
|
|
|
|
|
e Xcp1251
|
|
|
|
|
.w ++enc=cp866 >> Xtest
|
|
|
|
|
set fencs=utf-8,cp866
|
|
|
|
|
e Xcp866
|
|
|
|
|
.w ++enc=cp866 >> Xtest
|
|
|
|
|
let expected =<< trim END
|
2022-12-20 02:15:37 -07:00
|
|
|
|
1 utf-8 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
|
|
|
|
2 cp1251 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
|
|
|
|
3 cp866 text: <20><><EFBFBD> Vim version 6.2. <20><><EFBFBD><E1ABA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: 1970 Jan 01
|
2021-04-07 15:05:23 -07:00
|
|
|
|
END
|
|
|
|
|
call assert_equal(expected, readfile('Xtest'))
|
|
|
|
|
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
call delete('Xtest')
|
|
|
|
|
call delete('Xutf8')
|
|
|
|
|
call delete('Xcp1251')
|
|
|
|
|
call delete('Xcp866')
|
|
|
|
|
let &encoding = save_encoding
|
|
|
|
|
let &fileencodings = save_fileencodings
|
|
|
|
|
%bw!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-02-09 04:24:41 -07:00
|
|
|
|
" Test for writing and reading a file starting with a BOM.
|
|
|
|
|
" Byte Order Mark (BOM) character for various encodings is below:
|
|
|
|
|
" UTF-8 : EF BB BF
|
|
|
|
|
" UTF-16 (BE): FE FF
|
|
|
|
|
" UTF-16 (LE): FF FE
|
|
|
|
|
" UTF-32 (BE): 00 00 FE FF
|
|
|
|
|
" UTF-32 (LE): FF FE 00 00
|
|
|
|
|
func Test_readwrite_file_with_bom()
|
|
|
|
|
let utf8_bom = "\xEF\xBB\xBF"
|
|
|
|
|
let utf16be_bom = "\xFE\xFF"
|
|
|
|
|
let utf16le_bom = "\xFF\xFE"
|
|
|
|
|
let utf32be_bom = "\n\n\xFE\xFF"
|
|
|
|
|
let utf32le_bom = "\xFF\xFE\n\n"
|
|
|
|
|
let save_fileencoding = &fileencoding
|
|
|
|
|
set cpoptions+=S
|
|
|
|
|
|
|
|
|
|
" Check that editing a latin1 file doesn't see a BOM
|
|
|
|
|
call writefile(["\xFE\xFElatin-1"], 'Xtest1')
|
|
|
|
|
edit Xtest1
|
|
|
|
|
call assert_equal('latin1', &fileencoding)
|
|
|
|
|
call assert_equal(0, &bomb)
|
|
|
|
|
set fenc=latin1
|
|
|
|
|
write Xfile2
|
|
|
|
|
call assert_equal(["\xFE\xFElatin-1", ''], readfile('Xfile2', 'b'))
|
|
|
|
|
set bomb fenc=latin1
|
|
|
|
|
write Xtest3
|
|
|
|
|
call assert_equal(["\xFE\xFElatin-1", ''], readfile('Xtest3', 'b'))
|
|
|
|
|
set bomb&
|
|
|
|
|
|
|
|
|
|
" Check utf-8 BOM
|
|
|
|
|
%bw!
|
|
|
|
|
call writefile([utf8_bom .. "utf-8"], 'Xtest1')
|
|
|
|
|
edit! Xtest1
|
|
|
|
|
call assert_equal('utf-8', &fileencoding)
|
|
|
|
|
call assert_equal(1, &bomb)
|
|
|
|
|
call assert_equal('utf-8', getline(1))
|
|
|
|
|
set fenc=latin1
|
|
|
|
|
write! Xfile2
|
|
|
|
|
call assert_equal(['utf-8', ''], readfile('Xfile2', 'b'))
|
|
|
|
|
set fenc=utf-8
|
|
|
|
|
w! Xtest3
|
|
|
|
|
call assert_equal([utf8_bom .. "utf-8", ''], readfile('Xtest3', 'b'))
|
|
|
|
|
|
|
|
|
|
" Check utf-8 with an error (will fall back to latin-1)
|
|
|
|
|
%bw!
|
|
|
|
|
call writefile([utf8_bom .. "utf-8\x80err"], 'Xtest1')
|
|
|
|
|
edit! Xtest1
|
|
|
|
|
call assert_equal('latin1', &fileencoding)
|
|
|
|
|
call assert_equal(0, &bomb)
|
|
|
|
|
call assert_equal("\xC3\xAF\xC2\xBB\xC2\xBFutf-8\xC2\x80err", getline(1))
|
|
|
|
|
set fenc=latin1
|
|
|
|
|
write! Xfile2
|
|
|
|
|
call assert_equal([utf8_bom .. "utf-8\x80err", ''], readfile('Xfile2', 'b'))
|
|
|
|
|
set fenc=utf-8
|
|
|
|
|
w! Xtest3
|
|
|
|
|
call assert_equal(["\xC3\xAF\xC2\xBB\xC2\xBFutf-8\xC2\x80err", ''],
|
|
|
|
|
\ readfile('Xtest3', 'b'))
|
|
|
|
|
|
|
|
|
|
" Check ucs-2 BOM
|
|
|
|
|
%bw!
|
|
|
|
|
call writefile([utf16be_bom .. "\nu\nc\ns\n-\n2\n"], 'Xtest1')
|
|
|
|
|
edit! Xtest1
|
|
|
|
|
call assert_equal('utf-16', &fileencoding)
|
|
|
|
|
call assert_equal(1, &bomb)
|
|
|
|
|
call assert_equal('ucs-2', getline(1))
|
|
|
|
|
set fenc=latin1
|
|
|
|
|
write! Xfile2
|
|
|
|
|
call assert_equal(["ucs-2", ''], readfile('Xfile2', 'b'))
|
|
|
|
|
set fenc=ucs-2
|
|
|
|
|
w! Xtest3
|
|
|
|
|
call assert_equal([utf16be_bom .. "\nu\nc\ns\n-\n2\n", ''],
|
|
|
|
|
\ readfile('Xtest3', 'b'))
|
|
|
|
|
|
|
|
|
|
" Check ucs-2le BOM
|
|
|
|
|
%bw!
|
|
|
|
|
call writefile([utf16le_bom .. "u\nc\ns\n-\n2\nl\ne\n"], 'Xtest1')
|
|
|
|
|
" Need to add a NUL byte after the NL byte
|
|
|
|
|
call writefile(0z00, 'Xtest1', 'a')
|
|
|
|
|
edit! Xtest1
|
|
|
|
|
call assert_equal('utf-16le', &fileencoding)
|
|
|
|
|
call assert_equal(1, &bomb)
|
|
|
|
|
call assert_equal('ucs-2le', getline(1))
|
|
|
|
|
set fenc=latin1
|
|
|
|
|
write! Xfile2
|
|
|
|
|
call assert_equal(["ucs-2le", ''], readfile('Xfile2', 'b'))
|
|
|
|
|
set fenc=ucs-2le
|
|
|
|
|
w! Xtest3
|
|
|
|
|
call assert_equal([utf16le_bom .. "u\nc\ns\n-\n2\nl\ne\n", "\n"],
|
|
|
|
|
\ readfile('Xtest3', 'b'))
|
|
|
|
|
|
|
|
|
|
" Check ucs-4 BOM
|
|
|
|
|
%bw!
|
|
|
|
|
call writefile([utf32be_bom .. "\n\n\nu\n\n\nc\n\n\ns\n\n\n-\n\n\n4\n\n\n"], 'Xtest1')
|
|
|
|
|
edit! Xtest1
|
|
|
|
|
call assert_equal('ucs-4', &fileencoding)
|
|
|
|
|
call assert_equal(1, &bomb)
|
|
|
|
|
call assert_equal('ucs-4', getline(1))
|
|
|
|
|
set fenc=latin1
|
|
|
|
|
write! Xfile2
|
|
|
|
|
call assert_equal(["ucs-4", ''], readfile('Xfile2', 'b'))
|
|
|
|
|
set fenc=ucs-4
|
|
|
|
|
w! Xtest3
|
|
|
|
|
call assert_equal([utf32be_bom .. "\n\n\nu\n\n\nc\n\n\ns\n\n\n-\n\n\n4\n\n\n", ''], readfile('Xtest3', 'b'))
|
|
|
|
|
|
|
|
|
|
" Check ucs-4le BOM
|
|
|
|
|
%bw!
|
|
|
|
|
call writefile([utf32le_bom .. "u\n\n\nc\n\n\ns\n\n\n-\n\n\n4\n\n\nl\n\n\ne\n\n\n"], 'Xtest1')
|
|
|
|
|
" Need to add three NUL bytes after the NL byte
|
|
|
|
|
call writefile(0z000000, 'Xtest1', 'a')
|
|
|
|
|
edit! Xtest1
|
|
|
|
|
call assert_equal('ucs-4le', &fileencoding)
|
|
|
|
|
call assert_equal(1, &bomb)
|
|
|
|
|
call assert_equal('ucs-4le', getline(1))
|
|
|
|
|
set fenc=latin1
|
|
|
|
|
write! Xfile2
|
|
|
|
|
call assert_equal(["ucs-4le", ''], readfile('Xfile2', 'b'))
|
|
|
|
|
set fenc=ucs-4le
|
|
|
|
|
w! Xtest3
|
|
|
|
|
call assert_equal([utf32le_bom .. "u\n\n\nc\n\n\ns\n\n\n-\n\n\n4\n\n\nl\n\n\ne\n\n\n", "\n\n\n"], readfile('Xtest3', 'b'))
|
|
|
|
|
|
|
|
|
|
set cpoptions-=S
|
|
|
|
|
let &fileencoding = save_fileencoding
|
|
|
|
|
call delete('Xtest1')
|
|
|
|
|
call delete('Xfile2')
|
|
|
|
|
call delete('Xtest3')
|
|
|
|
|
%bw!
|
|
|
|
|
endfunc
|
|
|
|
|
|
2022-02-09 04:24:41 -07:00
|
|
|
|
func Test_read_write_bin()
|
|
|
|
|
" write file missing EOL
|
|
|
|
|
call writefile(['noeol'], "XNoEolSetEol", 'bS')
|
|
|
|
|
call assert_equal(0z6E6F656F6C, readfile('XNoEolSetEol', 'B'))
|
|
|
|
|
|
|
|
|
|
" when file is read 'eol' is off
|
2022-02-09 04:24:41 -07:00
|
|
|
|
set nofixeol
|
|
|
|
|
e! ++ff=unix XNoEolSetEol
|
2022-02-09 04:24:41 -07:00
|
|
|
|
call assert_equal(0, &eol)
|
|
|
|
|
|
|
|
|
|
" writing with 'eol' set adds the newline
|
|
|
|
|
setlocal eol
|
|
|
|
|
w
|
|
|
|
|
call assert_equal(0z6E6F656F6C0A, readfile('XNoEolSetEol', 'B'))
|
|
|
|
|
|
|
|
|
|
call delete('XNoEolSetEol')
|
2022-11-06 16:21:46 -07:00
|
|
|
|
set ff& fixeol&
|
2022-02-09 04:24:41 -07:00
|
|
|
|
bwipe! XNoEolSetEol
|
2022-02-09 04:24:41 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
2022-11-06 16:04:49 -07:00
|
|
|
|
" Test for the 'backupcopy' option when writing files
|
|
|
|
|
func Test_backupcopy()
|
|
|
|
|
CheckUnix
|
|
|
|
|
set backupskip=
|
|
|
|
|
" With the default 'backupcopy' setting, saving a symbolic link file
|
|
|
|
|
" should not break the link.
|
|
|
|
|
set backupcopy&
|
|
|
|
|
call writefile(['1111'], 'Xfile1')
|
|
|
|
|
silent !ln -s Xfile1 Xfile2
|
|
|
|
|
new Xfile2
|
|
|
|
|
call setline(1, ['2222'])
|
|
|
|
|
write
|
|
|
|
|
close
|
|
|
|
|
call assert_equal(['2222'], readfile('Xfile1'))
|
|
|
|
|
call assert_equal('Xfile1', resolve('Xfile2'))
|
|
|
|
|
call assert_equal('link', getftype('Xfile2'))
|
|
|
|
|
call delete('Xfile1')
|
|
|
|
|
call delete('Xfile2')
|
|
|
|
|
|
|
|
|
|
" With the 'backupcopy' set to 'breaksymlink', saving a symbolic link file
|
|
|
|
|
" should break the link.
|
|
|
|
|
set backupcopy=yes,breaksymlink
|
|
|
|
|
call writefile(['1111'], 'Xfile1')
|
|
|
|
|
silent !ln -s Xfile1 Xfile2
|
|
|
|
|
new Xfile2
|
|
|
|
|
call setline(1, ['2222'])
|
|
|
|
|
write
|
|
|
|
|
close
|
|
|
|
|
call assert_equal(['1111'], readfile('Xfile1'))
|
|
|
|
|
call assert_equal(['2222'], readfile('Xfile2'))
|
|
|
|
|
call assert_equal('Xfile2', resolve('Xfile2'))
|
|
|
|
|
call assert_equal('file', getftype('Xfile2'))
|
|
|
|
|
call delete('Xfile1')
|
|
|
|
|
call delete('Xfile2')
|
|
|
|
|
set backupcopy&
|
|
|
|
|
|
|
|
|
|
" With the default 'backupcopy' setting, saving a hard link file
|
|
|
|
|
" should not break the link.
|
|
|
|
|
set backupcopy&
|
|
|
|
|
call writefile(['1111'], 'Xfile1')
|
|
|
|
|
silent !ln Xfile1 Xfile2
|
|
|
|
|
new Xfile2
|
|
|
|
|
call setline(1, ['2222'])
|
|
|
|
|
write
|
|
|
|
|
close
|
|
|
|
|
call assert_equal(['2222'], readfile('Xfile1'))
|
|
|
|
|
call delete('Xfile1')
|
|
|
|
|
call delete('Xfile2')
|
|
|
|
|
|
|
|
|
|
" With the 'backupcopy' set to 'breaksymlink', saving a hard link file
|
|
|
|
|
" should break the link.
|
|
|
|
|
set backupcopy=yes,breakhardlink
|
|
|
|
|
call writefile(['1111'], 'Xfile1')
|
|
|
|
|
silent !ln Xfile1 Xfile2
|
|
|
|
|
new Xfile2
|
|
|
|
|
call setline(1, ['2222'])
|
|
|
|
|
write
|
|
|
|
|
call assert_equal(['1111'], readfile('Xfile1'))
|
|
|
|
|
call assert_equal(['2222'], readfile('Xfile2'))
|
|
|
|
|
call delete('Xfile1')
|
|
|
|
|
call delete('Xfile2')
|
|
|
|
|
|
|
|
|
|
" If a backup file is already present, then a slightly modified filename
|
|
|
|
|
" should be used as the backup file. Try with 'backupcopy' set to 'yes' and
|
|
|
|
|
" 'no'.
|
|
|
|
|
%bw
|
|
|
|
|
call writefile(['aaaa'], 'Xfile')
|
|
|
|
|
call writefile(['bbbb'], 'Xfile.bak')
|
|
|
|
|
set backupcopy=yes backupext=.bak
|
|
|
|
|
new Xfile
|
|
|
|
|
call setline(1, ['cccc'])
|
|
|
|
|
write
|
|
|
|
|
close
|
|
|
|
|
call assert_equal(['cccc'], readfile('Xfile'))
|
|
|
|
|
call assert_equal(['bbbb'], readfile('Xfile.bak'))
|
|
|
|
|
set backupcopy=no backupext=.bak
|
|
|
|
|
new Xfile
|
|
|
|
|
call setline(1, ['dddd'])
|
|
|
|
|
write
|
|
|
|
|
close
|
|
|
|
|
call assert_equal(['dddd'], readfile('Xfile'))
|
|
|
|
|
call assert_equal(['bbbb'], readfile('Xfile.bak'))
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
call delete('Xfile.bak')
|
|
|
|
|
|
|
|
|
|
" Write to a device file (in Unix-like systems) which cannot be backed up.
|
|
|
|
|
if has('unix')
|
|
|
|
|
set writebackup backupcopy=yes nobackup
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ['aaaa'])
|
|
|
|
|
let output = execute('write! /dev/null')
|
|
|
|
|
call assert_match('"/dev/null" \[Device]', output)
|
|
|
|
|
close
|
|
|
|
|
set writebackup backupcopy=no nobackup
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ['aaaa'])
|
|
|
|
|
let output = execute('write! /dev/null')
|
|
|
|
|
call assert_match('"/dev/null" \[Device]', output)
|
|
|
|
|
close
|
|
|
|
|
set backup writebackup& backupcopy&
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ['aaaa'])
|
|
|
|
|
let output = execute('write! /dev/null')
|
|
|
|
|
call assert_match('"/dev/null" \[Device]', output)
|
|
|
|
|
close
|
|
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
set backupcopy& backupskip& backupext& backup&
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for writing a file with 'encoding' set to 'utf-16'
|
|
|
|
|
func Test_write_utf16()
|
|
|
|
|
new
|
|
|
|
|
call setline(1, ["\U00010001"])
|
|
|
|
|
write ++enc=utf-16 Xfile
|
|
|
|
|
bw!
|
|
|
|
|
call assert_equal(0zD800DC01, readfile('Xfile', 'B')[0:3])
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" Test for trying to save a backup file when the backup file is a symbolic
|
|
|
|
|
" link to the original file. The backup file should not be modified.
|
|
|
|
|
func Test_write_backup_symlink()
|
|
|
|
|
CheckUnix
|
2023-01-14 15:20:01 -07:00
|
|
|
|
call mkdir('Xbackup')
|
|
|
|
|
let save_backupdir = &backupdir
|
|
|
|
|
set backupdir=.,./Xbackup
|
2022-11-06 16:04:49 -07:00
|
|
|
|
call writefile(['1111'], 'Xfile')
|
|
|
|
|
silent !ln -s Xfile Xfile.bak
|
|
|
|
|
|
|
|
|
|
new Xfile
|
|
|
|
|
set backup backupcopy=yes backupext=.bak
|
|
|
|
|
write
|
|
|
|
|
call assert_equal('link', getftype('Xfile.bak'))
|
|
|
|
|
call assert_equal('Xfile', resolve('Xfile.bak'))
|
2023-01-14 15:20:01 -07:00
|
|
|
|
" backup file should be created in the 'backup' directory
|
|
|
|
|
if !has('bsd')
|
|
|
|
|
" This check fails on FreeBSD
|
|
|
|
|
call assert_true(filereadable('./Xbackup/Xfile.bak'))
|
|
|
|
|
endif
|
2022-11-06 16:04:49 -07:00
|
|
|
|
set backup& backupcopy& backupext&
|
2023-01-14 15:20:01 -07:00
|
|
|
|
%bw
|
2022-11-06 16:04:49 -07:00
|
|
|
|
|
|
|
|
|
call delete('Xfile')
|
|
|
|
|
call delete('Xfile.bak')
|
2023-01-14 15:20:01 -07:00
|
|
|
|
call delete('Xbackup', 'rf')
|
|
|
|
|
let &backupdir = save_backupdir
|
2022-11-06 16:04:49 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
2022-11-06 16:21:46 -07:00
|
|
|
|
" Test for ':write ++bin' and ':write ++nobin'
|
|
|
|
|
func Test_write_binary_file()
|
|
|
|
|
" create a file without an eol/eof character
|
2023-04-15 20:07:48 -07:00
|
|
|
|
call writefile(0z616161, 'Xwbfile1', 'b')
|
|
|
|
|
new Xwbfile1
|
|
|
|
|
write ++bin Xwbfile2
|
|
|
|
|
write ++nobin Xwbfile3
|
|
|
|
|
call assert_equal(0z616161, readblob('Xwbfile2'))
|
2022-11-06 16:21:46 -07:00
|
|
|
|
if has('win32')
|
2023-04-15 20:07:48 -07:00
|
|
|
|
call assert_equal(0z6161610D.0A, readblob('Xwbfile3'))
|
2022-11-06 16:21:46 -07:00
|
|
|
|
else
|
2023-04-15 20:07:48 -07:00
|
|
|
|
call assert_equal(0z6161610A, readblob('Xwbfile3'))
|
2022-11-06 16:21:46 -07:00
|
|
|
|
endif
|
2023-04-15 20:07:48 -07:00
|
|
|
|
call delete('Xwbfile1')
|
|
|
|
|
call delete('Xwbfile2')
|
|
|
|
|
call delete('Xwbfile3')
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func DoWriteDefer()
|
|
|
|
|
call writefile(['some text'], 'XdeferDelete', 'D')
|
|
|
|
|
call assert_equal(['some text'], readfile('XdeferDelete'))
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
" def DefWriteDefer()
|
|
|
|
|
" writefile(['some text'], 'XdefdeferDelete', 'D')
|
|
|
|
|
" assert_equal(['some text'], readfile('XdefdeferDelete'))
|
|
|
|
|
" enddef
|
|
|
|
|
|
|
|
|
|
func Test_write_with_deferred_delete()
|
|
|
|
|
call DoWriteDefer()
|
|
|
|
|
call assert_equal('', glob('XdeferDelete'))
|
|
|
|
|
" call DefWriteDefer()
|
|
|
|
|
" call assert_equal('', glob('XdefdeferDelete'))
|
2022-11-06 16:21:46 -07:00
|
|
|
|
endfunc
|
|
|
|
|
|
2023-04-15 20:46:17 -07:00
|
|
|
|
func DoWriteFile()
|
|
|
|
|
call writefile(['text'], 'Xthefile', 'D')
|
|
|
|
|
cd ..
|
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
|
|
func Test_write_defer_delete_chdir()
|
|
|
|
|
let dir = getcwd()
|
|
|
|
|
call DoWriteFile()
|
|
|
|
|
call assert_notequal(dir, getcwd())
|
|
|
|
|
call chdir(dir)
|
|
|
|
|
call assert_equal('', glob('Xthefile'))
|
|
|
|
|
endfunc
|
|
|
|
|
|
2021-05-29 06:59:33 -07:00
|
|
|
|
" Check that buffer is written before triggering QuitPre
|
|
|
|
|
func Test_wq_quitpre_autocommand()
|
|
|
|
|
edit Xsomefile
|
|
|
|
|
call setline(1, 'hello')
|
|
|
|
|
split
|
|
|
|
|
let g:seq = []
|
|
|
|
|
augroup Testing
|
|
|
|
|
au QuitPre * call add(g:seq, 'QuitPre - ' .. (&modified ? 'modified' : 'not modified'))
|
|
|
|
|
au BufWritePost * call add(g:seq, 'written')
|
|
|
|
|
augroup END
|
|
|
|
|
wq
|
|
|
|
|
call assert_equal(['written', 'QuitPre - not modified'], g:seq)
|
|
|
|
|
|
|
|
|
|
augroup Testing
|
|
|
|
|
au!
|
|
|
|
|
augroup END
|
|
|
|
|
bwipe!
|
|
|
|
|
unlet g:seq
|
|
|
|
|
call delete('Xsomefile')
|
|
|
|
|
endfunc
|
|
|
|
|
|
2021-04-07 15:05:23 -07:00
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|