| To: vim_dev@googlegroups.com |
| Subject: Patch 7.4.744 |
| Fcc: outbox |
| From: Bram Moolenaar <Bram@moolenaar.net> |
| Mime-Version: 1.0 |
| Content-Type: text/plain; charset=UTF-8 |
| Content-Transfer-Encoding: 8bit |
| |
| |
| Patch 7.4.744 |
| Problem: No tests for Ruby and Perl. |
| Solution: Add minimal tests. (Ken Takata) |
| Files: src/testdir/test_perl.in, src/testdir/test_perl.ok, |
| src/testdir/test_ruby.in, src/testdir/test_ruby.ok, |
| src/testdir/Make_amiga.mak, src/testdir/Make_dos.mak, |
| src/testdir/Make_ming.mak, src/testdir/Make_os2.mak, |
| src/testdir/Make_vms.mms, src/testdir/Makefile |
| |
| |
| |
| |
| |
| |
| --- 1,26 ---- |
| + 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 |
| |
| |
| |
| |
| --- 1,3 ---- |
| + 1 changed line 1 |
| + 2 line 2 |
| + abc/def/ |
| |
| |
| |
| |
| --- 1,25 ---- |
| + Tests for ruby interface. vim: set ft=vim : |
| + |
| + STARTTEST |
| + :so small.vim |
| + :set nocompatible viminfo+=nviminfo |
| + :if !has('ruby') | e! test.ok | wq! test.out | endif |
| + :" change buffer contents |
| + :ruby VIM.command("normal /^1\n") |
| + :ruby $curbuf.line = "1 changed line 1" |
| + :" evaluate a List |
| + :ruby VIM.command("normal /^2\n") |
| + :let l = ["abc", "def"] |
| + :ruby << EOF |
| + curline = $curbuf.line_number |
| + l = VIM.evaluate("l"); |
| + $curbuf.append(curline, l.join("\n")) |
| + EOF |
| + :normal j |
| + :.rubydo $_ = $_.gsub(/\n/, '/') |
| + :?^1?,$w! test.out |
| + :qa! |
| + ENDTEST |
| + |
| + 1 line 1 |
| + 2 line 2 |
| |
| |
| |
| |
| --- 1,3 ---- |
| + 1 changed line 1 |
| + 2 line 2 |
| + abc/def |
| |
| |
| |
| *** 53,59 **** |
| --- 53,61 ---- |
| test_marks.out \ |
| test_nested_function.out \ |
| test_options.out \ |
| + test_perl.out \ |
| test_qf_title.out \ |
| + test_ruby.out \ |
| test_set.out \ |
| test_signs.out \ |
| test_textobjects.out \ |
| |
| *** 198,204 **** |
| --- 200,208 ---- |
| test_marks.out: test_marks.in |
| test_nested_function.out: test_nested_function.in |
| test_options.out: test_options.in |
| + test_perl.out: test_perl.in |
| test_qf_title.out: test_qf_title.in |
| + test_ruby.out: test_ruby.in |
| test_set.out: test_set.in |
| test_signs.out: test_signs.in |
| test_textobjects.out: test_textobjects.in |
| |
| |
| |
| *** 52,58 **** |
| --- 52,60 ---- |
| test_marks.out \ |
| test_nested_function.out \ |
| test_options.out \ |
| + test_perl.out \ |
| test_qf_title.out \ |
| + test_ruby.out \ |
| test_set.out \ |
| test_signs.out \ |
| test_textobjects.out \ |
| |
| |
| |
| *** 74,80 **** |
| --- 74,82 ---- |
| test_marks.out \ |
| test_nested_function.out \ |
| test_options.out \ |
| + test_perl.out \ |
| test_qf_title.out \ |
| + test_ruby.out \ |
| test_set.out \ |
| test_signs.out \ |
| test_textobjects.out \ |
| |
| |
| |
| *** 54,60 **** |
| --- 54,62 ---- |
| test_marks.out \ |
| test_nested_function.out \ |
| test_options.out \ |
| + test_perl.out \ |
| test_qf_title.out \ |
| + test_ruby.out \ |
| test_set.out \ |
| test_signs.out \ |
| test_textobjects.out \ |
| |
| |
| |
| *** 113,119 **** |
| --- 113,121 ---- |
| test_marks.out \ |
| test_nested_function.out \ |
| test_options.out \ |
| + test_perl.out \ |
| test_qf_title.out \ |
| + test_ruby.out \ |
| test_set.out \ |
| test_signs.out \ |
| test_textobjects.out \ |
| |
| |
| |
| *** 50,56 **** |
| --- 50,58 ---- |
| test_marks.out \ |
| test_nested_function.out \ |
| test_options.out \ |
| + test_perl.out \ |
| test_qf_title.out \ |
| + test_ruby.out \ |
| test_set.out \ |
| test_signs.out \ |
| test_textobjects.out \ |
| |
| |
| |
| *** 743,744 **** |
| --- 743,746 ---- |
| { /* Add new patch number below this line */ |
| + /**/ |
| + 744, |
| /**/ |
| |
| -- |
| "A clear conscience is usually the sign of a bad memory." |
| -- Steven Wright |
| |
| /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\ |
| /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ |
| \\\ an exciting new programming language -- http://www.Zimbu.org /// |
| \\\ help me help AIDS victims -- http://ICCF-Holland.org /// |