| 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 |