# HG changeset patch
# User Bram Moolenaar <bram@vim.org>
# Date 1434721529 -7200
# Node ID 18ec2c5a5ce7af451d37617062309f2b3960f73c
# Parent  4f0f1b58e84913d715edc7ee752cf9f4aed8e40a
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
--- a/src/testdir/Make_amiga.mak
+++ b/src/testdir/Make_amiga.mak
@@ -53,7 +53,9 @@ SCRIPTS = test1.out test3.out test4.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
diff --git a/src/testdir/Make_dos.mak b/src/testdir/Make_dos.mak
--- a/src/testdir/Make_dos.mak
+++ b/src/testdir/Make_dos.mak
@@ -52,7 +52,9 @@ SCRIPTS =	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 \
diff --git a/src/testdir/Make_ming.mak b/src/testdir/Make_ming.mak
--- a/src/testdir/Make_ming.mak
+++ b/src/testdir/Make_ming.mak
@@ -74,7 +74,9 @@ SCRIPTS =	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 \
diff --git a/src/testdir/Make_os2.mak b/src/testdir/Make_os2.mak
--- a/src/testdir/Make_os2.mak
+++ b/src/testdir/Make_os2.mak
@@ -54,7 +54,9 @@ SCRIPTS = test1.out test3.out test4.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 \
diff --git a/src/testdir/Make_vms.mms b/src/testdir/Make_vms.mms
--- a/src/testdir/Make_vms.mms
+++ b/src/testdir/Make_vms.mms
@@ -113,7 +113,9 @@ SCRIPT = test1.out  test2.out  test3.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 \
diff --git a/src/testdir/Makefile b/src/testdir/Makefile
--- a/src/testdir/Makefile
+++ b/src/testdir/Makefile
@@ -50,7 +50,9 @@ SCRIPTS = test1.out test2.out test3.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 \
diff --git a/src/testdir/test_perl.in b/src/testdir/test_perl.in
new file mode 100644
--- /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
--- /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
--- /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
--- /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
--- a/src/version.c
+++ b/src/version.c
@@ -742,6 +742,8 @@ static char *(features[]) =
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    744,
+/**/
     743,
 /**/
     742,