From 4ac163ae5f137af236931e778660cf7878d70c25 Mon Sep 17 00:00:00 2001 From: Bram Moolenaar Date: Tue, 27 Jan 2015 22:52:15 +0100 Subject: [PATCH] updated for version 7.4.608 Problem: test_eval fails when the clipboard feature is missing. Solution: Skip part of the test. Reduce the text used. --- src/testdir/test_eval.in | 33 ++++++++++++++++++++++----------- src/testdir/test_eval.ok | Bin 11538 -> 11246 bytes src/version.c | 2 ++ 3 files changed, 24 insertions(+), 11 deletions(-) diff --git a/src/testdir/test_eval.in b/src/testdir/test_eval.in index b9f68f75c..b0ac3a029 100644 --- a/src/testdir/test_eval.in +++ b/src/testdir/test_eval.in @@ -2,13 +2,19 @@ Test for various eval features. vim: set ft=vim : Note: system clipboard is saved, changed and restored. +clipboard contents +something else + STARTTEST :so small.vim :set encoding=latin1 :set noswapfile :lang C :fun AppendRegContents(reg) - call append('$', printf('%s: type %s; value: %s (%s), expr: %s (%s)', a:reg, getregtype(a:reg), getreg(a:reg), string(getreg(a:reg, 0, 1)), getreg(a:reg, 1), string(getreg(a:reg, 1, 1)))) + call AppendRegParts(a:reg, getregtype(a:reg), getreg(a:reg), string(getreg(a:reg, 0, 1)), getreg(a:reg, 1), string(getreg(a:reg, 1, 1))) +:endfun +:fun AppendRegParts(reg, type, cont, strcont, cont1, strcont1) + call append('$', printf('%s: type %s; value: %s (%s), expr: %s (%s)', a:reg, a:type, a:cont, a:strcont, a:cont1, a:strcont1)) endfun :command -nargs=? AR :call AppendRegContents() :fun SetReg(...) @@ -122,18 +128,23 @@ call SetReg('/', ["abc/\n"]) call SetReg('=', ['"abc/"']) call SetReg('=', ["\"abc/\n\""]) $put ='{{{1 System clipboard' +if has('clipboard') " Save and restore system clipboard. " If no connection to X-Server is possible, test should succeed. -:let _clipreg = ['+', getreg('+'), getregtype('+')] -:let _clipopt = &cb -:let &cb='unnamedplus' -:1y -:AR + -:tabdo :windo :echo "hi" -:3y -:AR + -:let &cb=_clipopt -:call call('setreg', _clipreg) +let _clipreg = ['+', getreg('+'), getregtype('+')] +let _clipopt = &cb +let &cb='unnamedplus' +5y +AR + +tabdo :windo :echo "hi" +6y +AR + +let &cb=_clipopt +call call('setreg', _clipreg) +else + call AppendRegParts('+', 'V', "clipboard contents\n", "['clipboard contents']", "clipboard contents\n", "['clipboard contents']") + call AppendRegParts('+', 'V', "something else\n", "['something else']", "something else\n", "['something else']") +endif $put ='{{{1 Errors' call ErrExe('call setreg()') call ErrExe('call setreg(1)') diff --git a/src/testdir/test_eval.ok b/src/testdir/test_eval.ok index 5e8d2cc4f6f0caa2b4386ceec8b3addb70c419a2..c4fc9ac0b2a25bbc32abf447331a2ebbc6b14755 100644 GIT binary patch delta 206 zcmbOf^)7sahgyAdPG&(;eqvFILUMjyNorn6F@u6ev^u7+daS07LTW`pk(C0bByK%i z+ExlBl?AB^Vb%&|i8-aIRtm-Wxv3=?nR)37sX30tsbIaxV#TRQcA-jOQM*}3;~5J8 D1^!6q delta 524 zcmchTF{;8q5QZ(Ra*Dq)iXzyqSO%=DL_x9GmmPH>X2Z-TC@FFWPa?c~yrX!Aw}_~% z7B<5a^UcrqUzg|AW!h=xBpzGGs5Dzw3aHWbR+7TZ`7ot9iKhe7%oaaRvw;