Mercurial > vim
view src/testdir/test_perl.in @ 7042:e8eccb9621f7 v7.4.834
commit https://github.com/vim/vim/commit/7e47d1ac6a9ae0e5a7167aa34ff651a9c39c1641
Author: Bram Moolenaar <Bram@vim.org>
Date: Tue Aug 25 16:19:05 2015 +0200
patch 7.4.834
Problem: gettabvar() doesn't work after Vim start. (Szymon Wrozynski)
Solution: Handle first window in tab still being NULL. (Christian Brabandt)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Tue, 25 Aug 2015 17:20:27 +0200 |
parents | 18ec2c5a5ce7 |
children |
line wrap: on
line source
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