Mercurial > vim
view src/testdir/test71.in @ 8577:63dc856bd13d v7.4.1578
commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7
Author: Bram Moolenaar <Bram@vim.org>
Date: Tue Mar 15 23:10:59 2016 +0100
patch 7.4.1578
Problem: There is no way to invoke a function later or periodically.
Solution: Add timer support.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Tue, 15 Mar 2016 23:15:05 +0100 |
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