diff options
Diffstat (limited to '')
| -rw-r--r-- | src/testdir/test_writefile.vim | 980 |
1 files changed, 980 insertions, 0 deletions
diff --git a/src/testdir/test_writefile.vim b/src/testdir/test_writefile.vim new file mode 100644 index 0000000..140b2ee --- /dev/null +++ b/src/testdir/test_writefile.vim @@ -0,0 +1,980 @@ +" Tests for the writefile() function and some :write commands. + +source check.vim +source term_util.vim + +func Test_writefile() + let f = tempname() + call writefile(["over", "written"], f, "bD") + 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 assert_fails('call writefile("text", "Xwffile")', 'E475: Invalid argument: writefile() first argument must be a List or a Blob') +endfunc + +func Test_writefile_ignore_regexp_error() + write Xt[z-a]est.txt + call delete('Xt[z-a]est.txt') +endfunc + +func Test_writefile_fails_gently() + call assert_fails('call writefile(["test"], "Xwffile", [])', 'E730:') + call assert_false(filereadable("Xwffile")) + call delete("Xwffile") + + call assert_fails('call writefile(["test", [], [], [], "tset"], "Xwffile")', 'E730:') + call assert_false(filereadable("Xwffile")) + call delete("Xwffile") + + call assert_fails('call writefile([], "Xwffile", [])', 'E730:') + call assert_false(filereadable("Xwffile")) + call delete("Xwffile") + + call assert_fails('call writefile([], [])', 'E730:') +endfunc + +func Test_writefile_fails_conversion() + CheckFeature iconv + if has('sun') + throw 'Skipped: does not work on SunOS' + endif + " Without a backup file the write won't happen if there is a conversion + " error. + set nobackup nowritebackup backupdir=. backupskip= + new + let contents = ["line one", "line two"] + call writefile(contents, 'Xwfcfile', 'D') + edit Xwfcfile + call setline(1, ["first line", "cannot convert \u010b", "third line"]) + call assert_fails('write ++enc=cp932', 'E513:') + call assert_equal(contents, readfile('Xwfcfile')) + + " With 'backupcopy' set, if there is a conversion error, the backup file is + " still created. + set backupcopy=yes writebackup& backup& + call delete('Xwfcfile' .. &backupext) + call assert_fails('write ++enc=cp932', 'E513:') + call assert_equal(contents, readfile('Xwfcfile')) + call assert_equal(contents, readfile('Xwfcfile' .. &backupext)) + set backupcopy& + %bw! + + " Conversion error during write + new + call setline(1, ["\U10000000"]) + let output = execute('write! ++enc=utf-16 Xwfcfile') + call assert_match('CONVERSION ERROR', output) + let output = execute('write! ++enc=ucs-2 Xwfcfile') + call assert_match('CONVERSION ERROR', output) + call delete('Xwfcfilz~') + call delete('Xwfcfily~') + %bw! + + call delete('Xwfcfile' .. &backupext) + bwipe! + set backup& writebackup& backupdir&vim backupskip&vim +endfunc + +func Test_writefile_fails_conversion2() + CheckFeature iconv + if has('sun') + throw 'Skipped: does not work on SunOS' + endif + " With a backup file the write happens even if there is a conversion error, + " but then the backup file must remain + set nobackup writebackup backupdir=. backupskip= + let contents = ["line one", "line two"] + call writefile(contents, 'Xwf2file_conversion_err', 'D') + edit Xwf2file_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('Xwf2file_conversion_err~')) + + call delete('Xwf2file_conversion_err~') + bwipe! + set backup& writebackup& backupdir&vim backupskip&vim +endfunc + +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! Xwqsfile + 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 Xwqsfile + call delete('Xwqsfile') +endfunc + +func Test_nowrite_quit_split() + " Prevent exiting by opening a help window. + e! Xnqsfile + 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 Xnqsfile +endfunc + +func Test_writefile_sync_arg() + " This doesn't check if fsync() works, only that the argument is accepted. + call writefile(['one'], 'Xtest', 'sD') + call writefile(['two'], 'Xtest', 'S') +endfunc + +func Test_writefile_sync_dev_stdout() + CheckUnix + if filewritable('/dev/stdout') + " Just check that this doesn't cause an error. + call writefile(['one'], '/dev/stdout') + else + throw 'Skipped: /dev/stdout is not writable' + endif +endfunc + +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 + +" Test for ':w !<cmd>' to pipe lines from the current buffer to an external +" command. +func Test_write_pipe_to_cmd() + CheckUnix + new + call setline(1, ['L1', 'L2', 'L3', 'L4']) + 2,3w !cat > Xptfile + call assert_equal(['L2', 'L3'], readfile('Xptfile')) + close! + call delete('Xptfile') +endfunc + +" Test for :saveas +func Test_saveas() + call assert_fails('saveas', 'E471:') + call writefile(['L1'], 'Xsafile') + new Xsafile + new + call setline(1, ['L1']) + call assert_fails('saveas Xsafile', 'E139:') + close! + enew | only + call delete('Xsafile') + + " :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') + + " :saveas fails for "nofile" buffer + set buftype=nofile + call assert_fails('saveas Xsafile', 'E676: No matching autocommands for buftype=nofile buffer') + + bwipe! +endfunc + +func Test_write_errors() + " Test for writing partial buffer + call writefile(['L1', 'L2', 'L3'], 'Xwefile') + new Xwefile + call assert_fails('1,2write', 'E140:') + close! + + call assert_fails('w > Xtest', 'E494:') + + " Try to overwrite a directory + if has('unix') + call mkdir('Xwerdir1') + call assert_fails('write Xwerdir1', 'E17:') + call delete('Xwerdir1', '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 Xwefile + set readonly + call assert_fails('write', 'E45:') + close + + " Test for writing to a read-only file + new Xwefile + call setfperm('Xwefile', 'r--r--r--') + call assert_fails('write', 'E505:') + call setfperm('Xwefile', 'rw-rw-rw-') + close + + call delete('Xwefile') + + call writefile(test_null_list(), 'Xwefile') + call assert_false(filereadable('Xwefile')) + call writefile(test_null_blob(), 'Xwefile') + call assert_false(filereadable('Xwefile')) + call assert_fails('call writefile([], "")', 'E482:') + + " 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:') + + " 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 + call assert_fails('write', 'E503: ') + call assert_fails('write!', 'E503: ') + close! + endif +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"], 'Xwfmfile', 'D') + let old_ftime = getftime('Xwfmfile') + let buf = RunVimInTerminal('Xwfmfile', #{rows : 10}) + call TermWait(buf) + call term_sendkeys(buf, ":set noswapfile\<CR>") + call TermWait(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"], 'Xwfmfile') + let new_ftime = getftime('Xwfmfile') + while new_ftime - old_ftime < 2 + sleep 100m + call writefile(["Line3", "Line4"], 'Xwfmfile') + let new_ftime = getftime('Xwfmfile') + endwhile + + " Try to overwrite the file and check for the prompt + call term_sendkeys(buf, ":w\<CR>") + call TermWait(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 TermWait(buf) + call assert_equal(new_ftime, getftime('Xwfmfile')) + call term_sendkeys(buf, ":w\<CR>") + call TermWait(buf) + call term_sendkeys(buf, "y\<CR>") + call TermWait(buf) + call WaitForAssert({-> assert_equal('Line2', readfile('Xwfmfile')[1])}) + + " clean up + call StopVimInTerminal(buf) +endfunc + +" Test for an autocmd unloading a buffer during a write command +func Test_write_autocmd_unloadbuf_lockmark() + augroup WriteTest + autocmd BufWritePre Xwaufile enew | write + augroup END + e Xwaufile + call assert_fails('lockmarks write', ['E32:', 'E203:']) + augroup WriteTest + au! + augroup END + augroup! WriteTest +endfunc + +" Test for writing a buffer with 'acwrite' but without autocmds +func Test_write_acwrite_error() + new Xwaefile + 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 Xwaafile + call setline(1, ['aaa', 'bbb', 'ccc', 'ddd']) + + " Autocmd deleting lines from the file when writing a partial file + augroup WriteTest2 + au! + autocmd FileWritePre Xwaafile 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 Xwaafile 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('Xwaafile')) + + " Autocmd deleting lines from the file when writing the whole file + augroup WriteTest2 + au! + autocmd BufWritePre Xwaafile 1,2d + augroup END + %d + call setline(1, ['aaa', 'bbb', 'ccc', 'ddd']) + w + call assert_equal(['ccc', 'ddd'], readfile('Xwaafile')) + + augroup WriteTest2 + au! + augroup END + augroup! WriteTest2 + + close! + call delete('Xwaafile') +endfunc + +" Test for writing to a readonly file +func Test_write_readonly() + call writefile([], 'Xwrofile', 'D') + call setfperm('Xwrofile', "r--------") + edit Xwrofile + set noreadonly backupskip= + call assert_fails('write', 'E505:') + let save_cpo = &cpo + set cpo+=W + call assert_fails('write!', 'E504:') + let &cpo = save_cpo + call setline(1, ['line1']) + write! + call assert_equal(['line1'], readfile('Xwrofile')) + + " Auto-saving a readonly file should fail with 'autowriteall' + %bw! + e Xwrofile + 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& + + set backupskip& + %bw! +endfunc + +" Test for 'patchmode' +func Test_patchmode() + call writefile(['one'], 'Xpafile', 'D') + set patchmode=.orig nobackup backupskip= writebackup + new Xpafile + call setline(1, 'two') + " first write should create the .orig file + write + call assert_equal(['one'], readfile('Xpafile.orig')) + call setline(1, 'three') + " subsequent writes should not create/modify the .orig file + write + call assert_equal(['one'], readfile('Xpafile.orig')) + + " use 'patchmode' with 'nobackup' and 'nowritebackup' to create an empty + " original file + call delete('Xpafile') + call delete('Xpafile.orig') + %bw! + set patchmode=.orig nobackup nowritebackup + edit Xpafile + call setline(1, ['xxx']) + write + call assert_equal(['xxx'], readfile('Xpafile')) + call assert_equal([], readfile('Xpafile.orig')) + + set patchmode& backup& backupskip& writebackup& + call delete('Xpafile.orig') +endfunc + +" Test for writing to a file in a readonly directory +" NOTE: if you run tests as root this will fail. Don't run tests as root! +func Test_write_readonly_dir() + " On MS-Windows, modifying files in a read-only directory is allowed. + CheckUnix + " Root can do it too. + CheckNotRoot + + call mkdir('Xrodir/', 'R') + call writefile(['one'], 'Xrodir/Xfile1') + call setfperm('Xrodir', 'r-xr--r--') + " try to create a new file in the directory + new Xrodir/Xfile2 + call setline(1, 'two') + call assert_fails('write', 'E212:') + " try to create a backup file in the directory + edit! Xrodir/Xfile1 + set backupdir=./Xrodir backupskip= + set patchmode=.orig + call assert_fails('write', 'E509:') + call setfperm('Xrodir', 'rwxr--r--') + set backupdir& backupskip& patchmode& +endfunc + +" 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 Xiefile', 'E213:') + close! +endfunc + +" Tests for reading and writing files with conversion for Win32. +func Test_write_file_encoding() + CheckMSWindows + let save_encoding = &encoding + let save_fileencodings = &fileencodings + set encoding=latin1 fileencodings& + let text =<< trim END + 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 + END + call writefile(text, 'Xwfefile', 'D') + edit Xwfefile + + " 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 Xwfetest + .w ++enc=cp1251 >> Xwfetest + .w ++enc=cp866 >> Xwfetest + .w! ++enc=utf-8 Xutf8 + let expected =<< trim END + 1 utf-8 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01 + 1 utf-8 text: Vim version 6.2. : 1970 Jan 01 + 1 utf-8 text: Vim version 6.2. : 1970 Jan 01 + END + call assert_equal(expected, readfile('Xwfetest')) + + call cursor(2, 1) + set encoding=cp1251 + .w! ++enc=utf-8 Xwfetest + .w ++enc=cp1251 >> Xwfetest + .w ++enc=cp866 >> Xwfetest + .w! ++enc=cp1251 Xcp1251 + let expected =<< trim END + 2 cp1251 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01 + 2 cp1251 text: Vim version 6.2. : 1970 Jan 01 + 2 cp1251 text: Vim version 6.2. : 1970 Jan 01 + END + call assert_equal(expected, readfile('Xwfetest')) + + call cursor(3, 1) + set encoding=cp866 + .w! ++enc=utf-8 Xwfetest + .w ++enc=cp1251 >> Xwfetest + .w ++enc=cp866 >> Xwfetest + .w! ++enc=cp866 Xcp866 + let expected =<< trim END + 3 cp866 text: Для Vim version 6.2. Последнее изменение: 1970 Jan 01 + 3 cp866 text: Vim version 6.2. : 1970 Jan 01 + 3 cp866 text: Vim version 6.2. : 1970 Jan 01 + END + call assert_equal(expected, readfile('Xwfetest')) + + " read three 'fileencoding's with utf-8 'encoding' + set encoding=utf-8 fencs=utf-8,cp1251 + e Xutf8 + .w! ++enc=utf-8 Xwfetest + e Xcp1251 + .w ++enc=utf-8 >> Xwfetest + set fencs=utf-8,cp866 + e Xcp866 + .w ++enc=utf-8 >> Xwfetest + let expected =<< trim END + 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 + END + call assert_equal(expected, readfile('Xwfetest')) + + " read three 'fileencoding's with cp1251 'encoding' + set encoding=utf-8 fencs=utf-8,cp1251 + e Xutf8 + .w! ++enc=cp1251 Xwfetest + e Xcp1251 + .w ++enc=cp1251 >> Xwfetest + set fencs=utf-8,cp866 + e Xcp866 + .w ++enc=cp1251 >> Xwfetest + let expected =<< trim END + 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 + END + call assert_equal(expected, readfile('Xwfetest')) + + " read three 'fileencoding's with cp866 'encoding' + set encoding=cp866 fencs=utf-8,cp1251 + e Xutf8 + .w! ++enc=cp866 Xwfetest + e Xcp1251 + .w ++enc=cp866 >> Xwfetest + set fencs=utf-8,cp866 + e Xcp866 + .w ++enc=cp866 >> Xwfetest + let expected =<< trim END + 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 + END + call assert_equal(expected, readfile('Xwfetest')) + + call delete('Xwfetest') + call delete('Xutf8') + call delete('Xcp1251') + call delete('Xcp866') + let &encoding = save_encoding + let &fileencodings = save_fileencodings + %bw! +endfunc + +" 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"], 'Xrwtest1', 'D') + edit Xrwtest1 + call assert_equal('latin1', &fileencoding) + call assert_equal(0, &bomb) + set fenc=latin1 + write Xrwfile2 + call assert_equal(["\xFE\xFElatin-1", ''], readfile('Xrwfile2', 'b')) + set bomb fenc=latin1 + write Xrwtest3 + call assert_equal(["\xFE\xFElatin-1", ''], readfile('Xrwtest3', 'b')) + set bomb& + + " Check utf-8 BOM + %bw! + call writefile([utf8_bom .. "utf-8"], 'Xrwtest1') + edit! Xrwtest1 + call assert_equal('utf-8', &fileencoding) + call assert_equal(1, &bomb) + call assert_equal('utf-8', getline(1)) + set fenc=latin1 + write! Xrwfile2 + call assert_equal(['utf-8', ''], readfile('Xrwfile2', 'b')) + set fenc=utf-8 + w! Xrwtest3 + call assert_equal([utf8_bom .. "utf-8", ''], readfile('Xrwtest3', 'b')) + + " Check utf-8 with an error (will fall back to latin-1) + %bw! + call writefile([utf8_bom .. "utf-8\x80err"], 'Xrwtest1') + edit! Xrwtest1 + 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! Xrwfile2 + call assert_equal([utf8_bom .. "utf-8\x80err", ''], readfile('Xrwfile2', 'b')) + set fenc=utf-8 + w! Xrwtest3 + call assert_equal(["\xC3\xAF\xC2\xBB\xC2\xBFutf-8\xC2\x80err", ''], + \ readfile('Xrwtest3', 'b')) + + " Check ucs-2 BOM + %bw! + call writefile([utf16be_bom .. "\nu\nc\ns\n-\n2\n"], 'Xrwtest1') + edit! Xrwtest1 + call assert_equal('utf-16', &fileencoding) + call assert_equal(1, &bomb) + call assert_equal('ucs-2', getline(1)) + set fenc=latin1 + write! Xrwfile2 + call assert_equal(["ucs-2", ''], readfile('Xrwfile2', 'b')) + set fenc=ucs-2 + w! Xrwtest3 + call assert_equal([utf16be_bom .. "\nu\nc\ns\n-\n2\n", ''], + \ readfile('Xrwtest3', 'b')) + + " Check ucs-2le BOM + %bw! + call writefile([utf16le_bom .. "u\nc\ns\n-\n2\nl\ne\n"], 'Xrwtest1') + " Need to add a NUL byte after the NL byte + call writefile(0z00, 'Xrwtest1', 'a') + edit! Xrwtest1 + call assert_equal('utf-16le', &fileencoding) + call assert_equal(1, &bomb) + call assert_equal('ucs-2le', getline(1)) + set fenc=latin1 + write! Xrwfile2 + call assert_equal(["ucs-2le", ''], readfile('Xrwfile2', 'b')) + set fenc=ucs-2le + w! Xrwtest3 + call assert_equal([utf16le_bom .. "u\nc\ns\n-\n2\nl\ne\n", "\n"], + \ readfile('Xrwtest3', '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"], 'Xrwtest1') + edit! Xrwtest1 + call assert_equal('ucs-4', &fileencoding) + call assert_equal(1, &bomb) + call assert_equal('ucs-4', getline(1)) + set fenc=latin1 + write! Xrwfile2 + call assert_equal(["ucs-4", ''], readfile('Xrwfile2', 'b')) + set fenc=ucs-4 + w! Xrwtest3 + call assert_equal([utf32be_bom .. "\n\n\nu\n\n\nc\n\n\ns\n\n\n-\n\n\n4\n\n\n", ''], readfile('Xrwtest3', '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"], 'Xrwtest1') + " Need to add three NUL bytes after the NL byte + call writefile(0z000000, 'Xrwtest1', 'a') + edit! Xrwtest1 + call assert_equal('ucs-4le', &fileencoding) + call assert_equal(1, &bomb) + call assert_equal('ucs-4le', getline(1)) + set fenc=latin1 + write! Xrwfile2 + call assert_equal(["ucs-4le", ''], readfile('Xrwfile2', 'b')) + set fenc=ucs-4le + w! Xrwtest3 + 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('Xrwtest3', 'b')) + + set cpoptions-=S + let &fileencoding = save_fileencoding + call delete('Xrwfile2') + call delete('Xrwtest3') + %bw! +endfunc + +func Test_read_write_bin() + " write file missing EOL + call writefile(['noeol'], "XNoEolSetEol", 'bSD') + call assert_equal(0z6E6F656F6C, readfile('XNoEolSetEol', 'B')) + + " when file is read 'eol' is off + set nofixeol + e! ++ff=unix XNoEolSetEol + call assert_equal(0, &eol) + + " writing with 'eol' set adds the newline + setlocal eol + w + call assert_equal(0z6E6F656F6C0A, readfile('XNoEolSetEol', 'B')) + + set ff& fixeol& + bwipe! XNoEolSetEol +endfunc + +" 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'], 'Xbcfile1') + silent !ln -s Xbcfile1 Xbcfile2 + new Xbcfile2 + call setline(1, ['2222']) + write + close + call assert_equal(['2222'], readfile('Xbcfile1')) + call assert_equal('Xbcfile1', resolve('Xbcfile2')) + call assert_equal('link', getftype('Xbcfile2')) + call delete('Xbcfile1') + call delete('Xbcfile2') + + " With the 'backupcopy' set to 'breaksymlink', saving a symbolic link file + " should break the link. + set backupcopy=yes,breaksymlink + call writefile(['1111'], 'Xbcfile1') + silent !ln -s Xbcfile1 Xbcfile2 + new Xbcfile2 + call setline(1, ['2222']) + write + close + call assert_equal(['1111'], readfile('Xbcfile1')) + call assert_equal(['2222'], readfile('Xbcfile2')) + call assert_equal('Xbcfile2', resolve('Xbcfile2')) + call assert_equal('file', getftype('Xbcfile2')) + call delete('Xbcfile1') + call delete('Xbcfile2') + set backupcopy& + + " With the default 'backupcopy' setting, saving a hard link file + " should not break the link. + set backupcopy& + call writefile(['1111'], 'Xbcfile1') + silent !ln Xbcfile1 Xbcfile2 + new Xbcfile2 + call setline(1, ['2222']) + write + close + call assert_equal(['2222'], readfile('Xbcfile1')) + call delete('Xbcfile1') + call delete('Xbcfile2') + + " With the 'backupcopy' set to 'breaksymlink', saving a hard link file + " should break the link. + set backupcopy=yes,breakhardlink + call writefile(['1111'], 'Xbcfile1') + silent !ln Xbcfile1 Xbcfile2 + new Xbcfile2 + call setline(1, ['2222']) + write + call assert_equal(['1111'], readfile('Xbcfile1')) + call assert_equal(['2222'], readfile('Xbcfile2')) + call delete('Xbcfile1') + call delete('Xbcfile2') + + " 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'], 'Xbcfile') + call writefile(['bbbb'], 'Xbcfile.bak') + set backupcopy=yes backupext=.bak + new Xbcfile + call setline(1, ['cccc']) + write + close + call assert_equal(['cccc'], readfile('Xbcfile')) + call assert_equal(['bbbb'], readfile('Xbcfile.bak')) + set backupcopy=no backupext=.bak + new Xbcfile + call setline(1, ['dddd']) + write + close + call assert_equal(['dddd'], readfile('Xbcfile')) + call assert_equal(['bbbb'], readfile('Xbcfile.bak')) + call delete('Xbcfile') + call delete('Xbcfile.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 Xw16file + bw! + call assert_equal(0zD800DC01, readfile('Xw16file', 'B')[0:3]) + call delete('Xw16file') +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 + call mkdir('Xbackup') + let save_backupdir = &backupdir + set backupdir=.,./Xbackup + call writefile(['1111'], 'Xwbsfile', 'D') + silent !ln -s Xwbsfile Xwbsfile.bak + + new Xwbsfile + set backup backupcopy=yes backupext=.bak + write + call assert_equal('link', getftype('Xwbsfile.bak')) + call assert_equal('Xwbsfile', resolve('Xwbsfile.bak')) + " backup file should be created in the 'backup' directory + if !has('bsd') + " This check fails on FreeBSD + call assert_true(filereadable('./Xbackup/Xwbsfile.bak')) + endif + set backup& backupcopy& backupext& + %bw + + call delete('Xwbsfile.bak') + call delete('Xbackup', 'rf') + let &backupdir = save_backupdir +endfunc + +" Test for ':write ++bin' and ':write ++nobin' +func Test_write_binary_file() + " create a file without an eol/eof character + call writefile(0z616161, 'Xwbfile1', 'bD') + new Xwbfile1 + write ++bin Xwbfile2 + write ++nobin Xwbfile3 + call assert_equal(0z616161, readblob('Xwbfile2')) + if has('win32') + call assert_equal(0z6161610D.0A, readblob('Xwbfile3')) + else + call assert_equal(0z6161610A, readblob('Xwbfile3')) + endif + 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')) +endfunc + +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 + +" 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 + +" vim: shiftwidth=2 sts=2 expandtab |