patch 7.4.2305

Problem:    Marks, writefile and nested function tests are old style.
Solution:   Turn them into new style tests. (Yegappan Lakshmanan)

Author: brammool

src/Makefile

@@ -2039,12 +2039,9 @@ test1 \
 	test_listchars \
 	test_listlbr \
 	test_listlbr_utf8 \
-	test_marks \
-	test_nested_function \
 	test_search_mbyte \
 	test_utf8 \
 	test_wordcount \
-	test_writefile \
 	test2 test3 test4 test5 test6 test7 test8 test9 \
 	test11 test12 test13 test14 test15 test17 test18 test19 \
 	test20 test21 test22 test23 test24 test25 test26 test27 test28 test29 \
@@ -2105,11 +2102,13 @@ test_arglist \
 	test_lispwords \
 	test_man \
 	test_mapping \
+	test_marks \
 	test_match \
 	test_matchadd_conceal \
 	test_matchadd_conceal_utf8 \
 	test_menu \
 	test_messages \
+    	test_nested_function \
 	test_netbeans \
 	test_options \
 	test_packadd \
@@ -2148,6 +2147,7 @@ test_arglist \
 	test_visual \
 	test_window_cmd \
 	test_window_id \
+	test_writefile \
 	test_alot_latin \
 	test_alot_utf8 \
 	test_alot:

src/testdir/Make_all.mak

@@ -86,7 +86,7 @@ SCRIPTS_ALL = \
 	test_autoformat_join.out \
 	test_breakindent.out \
 	test_changelist.out \
-	test_charsearch.out \
+    	test_charsearch.out \
 	test_close_count.out \
 	test_command_count.out \
 	test_comparators.out \
@@ -97,12 +97,9 @@ SCRIPTS_ALL = \
 	test_insertcount.out \
 	test_listchars.out \
 	test_listlbr.out \
-	test_marks.out \
-	test_nested_function.out \
 	test_search_mbyte.out \
 	test_utf8.out \
-	test_wordcount.out \
-	test_writefile.out
+	test_wordcount.out
 
 
 # Tests that run on most systems, but not on Amiga.
@@ -175,7 +172,9 @@ NEW_TESTS = test_arglist.res \
 	    test_json.res \
 	    test_langmap.res \
 	    test_man.res \
+	    test_marks.res \
 	    test_matchadd_conceal.res \
+	    test_nested_function.res \
 	    test_netbeans.res \
 	    test_packadd.res \
 	    test_perl.res \
@@ -194,6 +193,7 @@ NEW_TESTS = test_arglist.res \
 	    test_viml.res \
 	    test_visual.res \
 	    test_window_id.res \
+	    test_writefile.res \
 	    test_alot_latin.res \
 	    test_alot_utf8.res \
 	    test_alot.res

src/testdir/test_marks.in

@@ -0,0 +1,26 @@
+
+" Test that a deleted mark is restored after delete-undo-redo-undo.
+function! Test_Restore_DelMark()
+  enew!
+  call append(0, ["	textline A", "	textline B", "	textline C"])
+  normal! 2gg
+  set nocp viminfo+=nviminfo
+  exe "normal! i\<C-G>u\<Esc>"
+  exe "normal! maddu\<C-R>u"
+  let pos = getpos("'a")
+  call assert_equal(2, pos[1])
+  call assert_equal(1, pos[2])
+  enew!
+endfunction
+
+" Test that CTRL-A and CTRL-X updates last changed mark '[, '].
+function! Test_Incr_Marks()
+  enew!
+  call append(0, ["123 123 123", "123 123 123", "123 123 123"])
+  normal! gg
+  execute "normal! \<C-A>`[v`]rAjwvjw\<C-X>`[v`]rX"
+  call assert_equal("AAA 123 123", getline(1))
+  call assert_equal("123 XXXXXXX", getline(2))
+  call assert_equal("XXX 123 123", getline(3))
+  enew!
+endfunction

src/testdir/test_marks.ok

@@ -0,0 +1,32 @@
+"Tests for nested functions
+"
+function! NestedFunc()
+  fu! Func1()
+    let g:text .= 'Func1 '
+  endfunction
+  call Func1()
+  fu! s:func2()
+    let g:text .= 's:func2 '
+  endfunction
+  call s:func2()
+  fu! s:_func3()
+    let g:text .= 's:_func3 '
+  endfunction
+  call s:_func3()
+  let fn = 'Func4'
+  fu! {fn}()
+    let g:text .= 'Func4 '
+  endfunction
+  call {fn}()
+  let fn = 'func5'
+  fu! s:{fn}()
+    let g:text .= 's:func5'
+  endfunction
+  call s:{fn}()
+endfunction
+
+function! Test_nested_functions()
+  let g:text = ''
+  call NestedFunc()
+  call assert_equal('Func1 s:func2 s:_func3 Func4 s:func5', g:text)
+endfunction