patch 7.4.744
Problem: No tests for Ruby and Perl.
Solution: Add minimal tests. (Ken Takata)
diff --git a/src/testdir/Make_amiga.mak b/src/testdir/Make_amiga.mak
index e7c94c7..d9385b2 100644
--- a/src/testdir/Make_amiga.mak
+++ b/src/testdir/Make_amiga.mak
@@ -53,7 +53,9 @@
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,7 +200,9 @@
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
diff --git a/src/testdir/Make_dos.mak b/src/testdir/Make_dos.mak
index 1eec9d7..931784f 100644
--- a/src/testdir/Make_dos.mak
+++ b/src/testdir/Make_dos.mak
@@ -52,7 +52,9 @@
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 \
diff --git a/src/testdir/Make_ming.mak b/src/testdir/Make_ming.mak
index 1d0fd36..fde59fe 100644
--- a/src/testdir/Make_ming.mak
+++ b/src/testdir/Make_ming.mak
@@ -74,7 +74,9 @@
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 \
diff --git a/src/testdir/Make_os2.mak b/src/testdir/Make_os2.mak
index 7b5775c..5a59cf5 100644
--- a/src/testdir/Make_os2.mak
+++ b/src/testdir/Make_os2.mak
@@ -54,7 +54,9 @@
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 \
diff --git a/src/testdir/Make_vms.mms b/src/testdir/Make_vms.mms
index f0742c7..427954e 100644
--- a/src/testdir/Make_vms.mms
+++ b/src/testdir/Make_vms.mms
@@ -113,7 +113,9 @@
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 \
diff --git a/src/testdir/Makefile b/src/testdir/Makefile
index 8e54247..420ed6a 100644
--- a/src/testdir/Makefile
+++ b/src/testdir/Makefile
@@ -50,7 +50,9 @@
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 \
diff --git a/src/testdir/test_perl.in b/src/testdir/test_perl.in
new file mode 100644
index 0000000..c028606
--- /dev/null
+++ b/src/testdir/test_perl.in
@@ -0,0 +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
diff --git a/src/testdir/test_perl.ok b/src/testdir/test_perl.ok
new file mode 100644
index 0000000..432cdd9
--- /dev/null
+++ b/src/testdir/test_perl.ok
@@ -0,0 +1,3 @@
+1 changed line 1
+2 line 2
+abc/def/
diff --git a/src/testdir/test_ruby.in b/src/testdir/test_ruby.in
new file mode 100644
index 0000000..71d21eb
--- /dev/null
+++ b/src/testdir/test_ruby.in
@@ -0,0 +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
diff --git a/src/testdir/test_ruby.ok b/src/testdir/test_ruby.ok
new file mode 100644
index 0000000..a217efd
--- /dev/null
+++ b/src/testdir/test_ruby.ok
@@ -0,0 +1,3 @@
+1 changed line 1
+2 line 2
+abc/def
diff --git a/src/version.c b/src/version.c
index 1dcdf71..75a5810 100644
--- a/src/version.c
+++ b/src/version.c
@@ -742,6 +742,8 @@
static int included_patches[] =
{ /* Add new patch number below this line */
/**/
+ 744,
+/**/
743,
/**/
742,
