patch 7.4.744

Problem:    No tests for Ruby and Perl.
Solution:   Add minimal tests. (Ken Takata)

src/testdir/Make_amiga.mak

@@ -53,7 +53,9 @@ SCRIPTS = test1.out test3.out test4.out test5.out test6.out \
 		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_mapping.out: test_mapping.in
 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

src/testdir/Make_dos.mak

@@ -52,7 +52,9 @@ SCRIPTS =	test3.out test4.out test5.out test6.out test7.out \
 		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 \

src/testdir/Make_ming.mak

@@ -74,7 +74,9 @@ SCRIPTS =	test3.out test4.out test5.out test6.out test7.out \
 		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 \

src/testdir/Make_os2.mak

@@ -54,7 +54,9 @@ SCRIPTS = test1.out test3.out test4.out test5.out test6.out \
 		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 \

src/testdir/Make_vms.mms

@@ -113,7 +113,9 @@ SCRIPT = test1.out  test2.out  test3.out  test4.out  test5.out  \
 	 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 \

src/testdir/Makefile

@@ -50,7 +50,9 @@ SCRIPTS = test1.out test2.out test3.out test4.out test5.out test6.out \
 		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 \

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

src/testdir/test_perl.ok

@@ -0,0 +1,3 @@
+1 changed line 1
+2 line 2
+abc/def/

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

src/testdir/test_ruby.ok

@@ -0,0 +1,3 @@
+1 changed line 1
+2 line 2
+abc/def

src/version.c

@@ -741,6 +741,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    744,
 /**/
     743,
 /**/