Mercurial > vim
view src/testdir/test71.in @ 10062:103d874ebb96 v7.4.2302
commit https://github.com/vim/vim/commit/f1b512a0b62d0fa47ee9b2612556f375e1f22fc2
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Sep 1 20:50:54 2016 +0200
patch 7.4.2302
Problem: Default interface versions for MS-Windows are outdated.
Solution: Use Active Perl 5.24, Python 3.5.2. Could only make it work with
Ruby 1.9.2.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 01 Sep 2016 21:00:08 +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