1" Tests for Perl interface 2 3if !has('perl') 4 finish 5end 6 7func 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('$')) 13endfunc 14 15func 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); 23EOF 24 normal j 25 .perldo s|\n|/|g 26 call assert_equal('abc/def/', getline('$')) 27endfunc 28 29fu <SID>catch_peval(expr) 30 try 31 call perleval(a:expr) 32 catch 33 return v:exception 34 endtry 35 call assert_true(0, 'no exception for `perleval("'.a:expr.'")`') 36 return '' 37endf 38 39function Test_perleval() 40 call assert_false(perleval('undef')) 41 42 " scalar 43 call assert_equal(0, perleval('0')) 44 call assert_equal(2, perleval('2')) 45 call assert_equal(-2, perleval('-2')) 46 if has('float') 47 call assert_equal(2.5, perleval('2.5')) 48 else 49 call assert_equal(2, perleval('2.5')) 50 end 51 52 sandbox call assert_equal(2, perleval('2')) 53 54 call assert_equal('abc', perleval('"abc"')) 55 call assert_equal("abc\ndef", perleval('"abc\0def"')) 56 57 " ref 58 call assert_equal([], perleval('[]')) 59 call assert_equal(['word', 42, [42],{}], perleval('["word", 42, [42], {}]')) 60 61 call assert_equal({}, perleval('{}')) 62 call assert_equal({'foo': 'bar'}, perleval('{foo => "bar"}')) 63 64 perl our %h; our @a; 65 let a = perleval('[\(%h, %h, @a, @a)]') 66 call assert_true((a[0] is a[1])) 67 call assert_true((a[2] is a[3])) 68 perl undef %h; undef @a; 69 70 call assert_true(<SID>catch_peval('{"" , 0}') =~ 'Malformed key Dictionary') 71 call assert_true(<SID>catch_peval('{"\0" , 0}') =~ 'Malformed key Dictionary') 72 call assert_true(<SID>catch_peval('{"foo\0bar" , 0}') =~ 'Malformed key Dictionary') 73 74 call assert_equal('*VIM', perleval('"*VIM"')) 75 call assert_true(perleval('\\0') =~ 'SCALAR(0x\x\+)') 76endf 77 78function Test_perldo() 79 sp __TEST__ 80 exe 'read ' g:testname 81 perldo s/perl/vieux_chameau/g 82 1 83 call assert_false(search('\Cperl')) 84 bw! 85endf 86 87function Test_VIM_package() 88 perl VIM::DoCommand('let l:var = "foo"') 89 call assert_equal(l:var, 'foo') 90 91 set noet 92 perl VIM::SetOption('et') 93 call assert_true(&et) 94endf 95