Mercurial > vim
view src/testdir/test71.in @ 10060:cf9e550f17f6 v7.4.2301
commit https://github.com/vim/vim/commit/641ad6c7ac7367f95fd927b8efa4bf74ddb9ccf3
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Sep 1 18:32:11 2016 +0200
patch 7.4.2301
Problem: MS-Windows: some files remain after testing.
Solution: Close the channel output file. Wait for the file handle to be
closed before deleting the file.
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Thu, 01 Sep 2016 18:45:07 +0200 |
| parents | 18ac55444b37 |
| children |
line wrap: on
line source
Test for encryption. The test data is in another file to avoid problems with 'encoding', especially cp932. STARTTEST :so small.vim :set enc=latin1 :bwipe! :r test71a.in :/^start of text/+1 :let text_lines = getline('.', line('.') + 2) :/^start of cm=zip bytes/+1 :let cm0_bytes = getline('.', '.') :/^start of cm=blowfish bytes/+1 :let cm1_bytes = getline('.', '.') :/^start of cm=blowfish2 bytes/+1 :let cm2_bytes = getline('.', '.') :bwipe! :call append(0, text_lines) :$d :X foobar foobar :w! Xtestfile :bwipe! :e Xtestfile foobar :let cm0_read_back = getline('.', '$') :set key= :set cryptmethod=blowfish :" If the blowfish test fails 'cryptmethod' will be 'zip' now. :%s/^/\=&cryptmethod == 'blowfish' ? "OK " : "blowfish test failed "/ :X barfoo barfoo :w! Xtestfile :bwipe! :e Xtestfile barfoo :let cm1_read_back = getline('.', '$') :set key= :set cryptmethod=blowfish2 :" If the blowfish test fails 'cryptmethod' will be 'zip' now. :%s/^/\=&cryptmethod == 'blowfish2' ? "OK " : "blowfish test failed "/ :X bar2foo bar2foo :w! Xtestfile :bwipe! :e Xtestfile bar2foo :let cm2_read_back = getline('.', '$') :bwipe! :set bin noeol key= :call append(0, cm0_bytes) :$d :set fenc=latin1 :w! Xtestfile :bwipe! :set nobin :e Xtestfile foofoo :let cm0_read_bin = getline('.', '$') :bwipe! :set bin noeol key= :call append(0, cm1_bytes) :$d :set fenc=latin1 :w! Xtestfile :bwipe! :set nobin :e Xtestfile barbar :let cm1_read_bin = getline('.', '$') :bwipe! :set bin noeol key= :call append(0, cm2_bytes) :$d :set fenc=latin1 :w! Xtestfile :bwipe! :set nobin :e Xtestfile barburp :call append(0, cm1_read_bin) :call append(0, cm0_read_bin) :call append(0, cm2_read_back) :call append(0, cm1_read_back) :call append(0, cm0_read_back) :set key= fenc=latin1 :w! test.out :qa! ENDTEST