Mercurial > vim
comparison src/testdir/test_perl.vim @ 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 | c7575b07de98 |
| children | 54a380c74547 |
comparison
equal
deleted
inserted
replaced
| 7654:c36e4cba489a | 7655:94f34dc2f254 |
|---|---|
| 2 | 2 |
| 3 if !has('perl') | 3 if !has('perl') |
| 4 finish | 4 finish |
| 5 end | 5 end |
| 6 | 6 |
| 7 set nocp viminfo+=nviminfo | 7 func Test_change_buffer() |
| 8 call setline(line('$'), ['1 line 1']) | |
| 9 perl VIM::DoCommand("normal /^1\n") | |
| 10 perl $curline = VIM::Eval("line('.')") | |
| 11 perl $curbuf->Set($curline, "1 changed line 1") | |
| 12 call assert_equal('1 changed line 1', getline('$')) | |
| 13 endfunc | |
| 14 | |
| 15 func Test_evaluate_list() | |
| 16 call setline(line('$'), ['2 line 2']) | |
| 17 perl VIM::DoCommand("normal /^2\n") | |
| 18 perl $curline = VIM::Eval("line('.')") | |
| 19 let l = ["abc", "def"] | |
| 20 perl << EOF | |
| 21 $l = VIM::Eval("l"); | |
| 22 $curbuf->Append($curline, $l); | |
| 23 EOF | |
| 24 normal j | |
| 25 .perldo s|\n|/|g | |
| 26 call assert_equal('abc/def/', getline('$')) | |
| 27 endfunc | |
| 8 | 28 |
| 9 fu <SID>catch_peval(expr) | 29 fu <SID>catch_peval(expr) |
| 10 try | 30 try |
| 11 call perleval(a:expr) | 31 call perleval(a:expr) |
| 12 catch | 32 catch |