Mercurial > vim
changeset 7655:94f34dc2f254 v7.4.1127
commit https://github.com/vim/vim/commit/021b593e7ed6c7111cbf189744ad1e5d6c4a7d79
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Jan 17 22:05:48 2016 +0100
patch 7.4.1127
Problem: Both old and new style tests for Perl.
Solution: Merge the old tests with the new style tests.
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sun, 17 Jan 2016 22:15:04 +0100 |
parents | c36e4cba489a |
children | f165065a4300 |
files | src/Makefile src/testdir/Make_all.mak src/testdir/test_perl.in src/testdir/test_perl.ok src/testdir/test_perl.vim src/version.c |
diffstat | 6 files changed, 28 insertions(+), 34 deletions(-) [+] |
line wrap: on
line diff
--- a/src/Makefile +++ b/src/Makefile @@ -1931,7 +1931,7 @@ unittest unittests: $(UNITTEST_TARGETS) ./$$t || exit 1; echo $$t passed; \ done -# Run individual test, assuming that Vim was already compiled. +# Run individual OLD style test, assuming that Vim was already compiled. test1 \ test_argument_0count \ test_argument_count \ @@ -1956,7 +1956,6 @@ test1 \ test_match_conceal \ test_nested_function \ test_options \ - test_perl \ test_qf_title \ test_ruby \ test_search_mbyte \ @@ -1979,7 +1978,9 @@ test1 \ test100 test101 test102 test103 test104 test105 test106 test107 test108: cd testdir; rm -f $@.out; $(MAKE) -f Makefile $@.out VIMPROG=../$(VIMTARGET) $(GUI_TESTARG) SCRIPTSOURCE=../$(SCRIPTSOURCE) -test_assert \ +# Run individual NEW style test, assuming that Vim was already compiled. +test_arglist \ + test_assert \ test_backspace_opt \ test_cdo \ test_cursor_func \ @@ -1989,6 +1990,7 @@ test_assert \ test_increment \ test_lispwords \ test_menu \ + test_perl \ test_quickfix \ test_searchpos \ test_set \
--- a/src/testdir/Make_all.mak +++ b/src/testdir/Make_all.mak @@ -113,7 +113,6 @@ SCRIPTS_ALL = \ test_match_conceal.out \ test_nested_function.out \ test_options.out \ - test_perl.out \ test_qf_title.out \ test_ruby.out \ test_search_mbyte.out \
deleted file mode 100644 --- a/src/testdir/test_perl.in +++ /dev/null @@ -1,26 +0,0 @@ -Tests for perl interface. vim: set ft=vim : - -STARTTEST -:so small.vim -:set nocompatible viminfo+=nviminfo -:if !has('perl') | e! test.ok | wq! test.out | endif -:" change buffer contents -:perl VIM::DoCommand("normal /^1\n") -:perl $curline = VIM::Eval("line('.')") -:perl $curbuf->Set($curline, "1 changed line 1") -:" evaluate a List -:perl VIM::DoCommand("normal /^2\n") -:perl $curline = VIM::Eval("line('.')") -:let l = ["abc", "def"] -:perl << EOF -$l = VIM::Eval("l"); -$curbuf->Append($curline, $l); -EOF -:normal j -:.perldo s|\n|/|g -:?^1?,$w! test.out -:qa! -ENDTEST - -1 line 1 -2 line 2
deleted file mode 100644 --- a/src/testdir/test_perl.ok +++ /dev/null @@ -1,3 +0,0 @@ -1 changed line 1 -2 line 2 -abc/def/
--- a/src/testdir/test_perl.vim +++ b/src/testdir/test_perl.vim @@ -4,7 +4,27 @@ if !has('perl') finish end -set nocp viminfo+=nviminfo +func Test_change_buffer() + call setline(line('$'), ['1 line 1']) + perl VIM::DoCommand("normal /^1\n") + perl $curline = VIM::Eval("line('.')") + perl $curbuf->Set($curline, "1 changed line 1") + call assert_equal('1 changed line 1', getline('$')) +endfunc + +func Test_evaluate_list() + call setline(line('$'), ['2 line 2']) + perl VIM::DoCommand("normal /^2\n") + perl $curline = VIM::Eval("line('.')") + let l = ["abc", "def"] + perl << EOF + $l = VIM::Eval("l"); + $curbuf->Append($curline, $l); +EOF + normal j + .perldo s|\n|/|g + call assert_equal('abc/def/', getline('$')) +endfunc fu <SID>catch_peval(expr) try