Mercurial > vim
comparison src/testdir/test_perl.in @ 6847:18ec2c5a5ce7 v7.4.744
patch 7.4.744
Problem: No tests for Ruby and Perl.
Solution: Add minimal tests. (Ken Takata)
| author | Bram Moolenaar <bram@vim.org> |
|---|---|
| date | Fri, 19 Jun 2015 15:45:29 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 6846:4f0f1b58e849 | 6847:18ec2c5a5ce7 |
|---|---|
| 1 Tests for perl interface. vim: set ft=vim : | |
| 2 | |
| 3 STARTTEST | |
| 4 :so small.vim | |
| 5 :set nocompatible viminfo+=nviminfo | |
| 6 :if !has('perl') | e! test.ok | wq! test.out | endif | |
| 7 :" change buffer contents | |
| 8 :perl VIM::DoCommand("normal /^1\n") | |
| 9 :perl $curline = VIM::Eval("line('.')") | |
| 10 :perl $curbuf->Set($curline, "1 changed line 1") | |
| 11 :" evaluate a List | |
| 12 :perl VIM::DoCommand("normal /^2\n") | |
| 13 :perl $curline = VIM::Eval("line('.')") | |
| 14 :let l = ["abc", "def"] | |
| 15 :perl << EOF | |
| 16 $l = VIM::Eval("l"); | |
| 17 $curbuf->Append($curline, $l); | |
| 18 EOF | |
| 19 :normal j | |
| 20 :.perldo s|\n|/|g | |
| 21 :?^1?,$w! test.out | |
| 22 :qa! | |
| 23 ENDTEST | |
| 24 | |
| 25 1 line 1 | |
| 26 2 line 2 |