view src/testdir/test49.in @ 14294:6c5c8de48152 v8.1.0163

patch 8.1.0163: insufficient testing for Tcl commit https://github.com/vim/vim/commit/2549acf794109731eab693bd396bb863d0e2cff4 Author: Bram Moolenaar <Bram@vim.org> Date: Sat Jul 7 22:42:01 2018 +0200 patch 8.1.0163: insufficient testing for Tcl Problem: Insufficient testing for Tcl. Solution: Add a few more tests. (Dominique Pelle, closes https://github.com/vim/vim/issues/3166)
author Christian Brabandt <cb@256bit.org>
date Sat, 07 Jul 2018 22:45:05 +0200
parents 702f694c9396
children e55c26aaf484
line wrap: on
line source

This is a test of the script language.

If after adding a new test, the test output doesn't appear properly in
test49.failed, try to add one or more "G"s at the line ending in "test.out"

STARTTEST
:so small.vim
:se nocp nomore viminfo+=nviminfo
:lang mess C
:so test49.vim
:" Go back to this file and append the results from register r.
:buf test49.in
G"rp:/^Results/,$w! test.out
:"
:" make valgrind happy
:redir => funclist
:silent func
:redir END
:for line in split(funclist, "\n")
:  let name = matchstr(line, 'function \zs[A-Z]\w*\ze(')
:  if name != ''
:    exe "delfunc " . name
:  endif
:endfor
:for v in keys(g:)
:  silent! exe "unlet " . v
:endfor
:unlet v
:qa!
ENDTEST

Results of test49.vim: