Mercurial > vim
view src/testdir/test_perl.vim @ 7651:c7575b07de98 v7.4.1125
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Jan 17 21:15:58 2016 +0100
patch 7.4.1125
Problem: There is no perleval().
Solution: Add perleval(). (Damien)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Sun, 17 Jan 2016 21:30:04 +0100 |
parents | |
children | 94f34dc2f254 |
line wrap: on
line source
" Tests for Perl interface if !has('perl') finish end set nocp viminfo+=nviminfo fu <SID>catch_peval(expr) try call perleval(a:expr) catch return v:exception endtry call assert_true(0, 'no exception for `perleval("'.a:expr.'")`') return '' endf function Test_perleval() call assert_false(perleval('undef')) " scalar call assert_equal(0, perleval('0')) call assert_equal(2, perleval('2')) call assert_equal(-2, perleval('-2')) if has('float') call assert_equal(2.5, perleval('2.5')) else call assert_equal(2, perleval('2.5')) end sandbox call assert_equal(2, perleval('2')) call assert_equal('abc', perleval('"abc"')) call assert_equal("abc\ndef", perleval('"abc\0def"')) " ref call assert_equal([], perleval('[]')) call assert_equal(['word', 42, [42],{}], perleval('["word", 42, [42], {}]')) call assert_equal({}, perleval('{}')) call assert_equal({'foo': 'bar'}, perleval('{foo => "bar"}')) perl our %h; our @a; let a = perleval('[\(%h, %h, @a, @a)]') call assert_true((a[0] is a[1])) call assert_true((a[2] is a[3])) perl undef %h; undef @a; call assert_true(<SID>catch_peval('{"" , 0}') =~ 'Malformed key Dictionary') call assert_true(<SID>catch_peval('{"\0" , 0}') =~ 'Malformed key Dictionary') call assert_true(<SID>catch_peval('{"foo\0bar" , 0}') =~ 'Malformed key Dictionary') call assert_equal('*VIM', perleval('"*VIM"')) call assert_true(perleval('\\0') =~ 'SCALAR(0x\x\+)') endf function Test_perldo() sp __TEST__ exe 'read ' g:testname perldo s/perl/vieux_chameau/g 1 call assert_false(search('\Cperl')) bw! endf function Test_VIM_package() perl VIM::DoCommand('let l:var = "foo"') call assert_equal(l:var, 'foo') set noet perl VIM::SetOption('et') call assert_true(&et) endf