Mercurial > vim
view src/testdir/test_fixeol.vim @ 14441:2d6703d4448a v8.1.0234
patch 8.1.0234: incorrect reference counting in Perl interface
commit https://github.com/vim/vim/commit/41c363a3154dd1caeb431fa54748ad48ef6d3bd1
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Aug 2 21:46:51 2018 +0200
patch 8.1.0234: incorrect reference counting in Perl interface
Problem: Incorrect reference counting in Perl interface.
Solution: Call SvREFCNT_inc more often, add a test. (Damien)
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 02 Aug 2018 22:00:06 +0200 |
parents | 90aaa974594e |
children | 08940efa6b4e |
line wrap: on
line source
" Tests for 'fixeol' and 'eol' func Test_fixeol() " first write two test files – with and without trailing EOL " use Unix fileformat for consistency set ff=unix enew! call setline('.', 'with eol') w! XXEol enew! set noeol nofixeol call setline('.', 'without eol') w! XXNoEol set eol fixeol bwipe XXEol XXNoEol " try editing files with 'fixeol' disabled e! XXEol normal ostays eol set nofixeol w! XXTestEol e! XXNoEol normal ostays without set nofixeol w! XXTestNoEol bwipe! XXEol XXNoEol XXTestEol XXTestNoEol set fixeol " Append "END" to each file so that we can see what the last written char " was. normal ggdGaEND w >>XXEol w >>XXNoEol w >>XXTestEol w >>XXTestNoEol call assert_equal(['with eol', 'END'], readfile('XXEol')) call assert_equal(['without eolEND'], readfile('XXNoEol')) call assert_equal(['with eol', 'stays eol', 'END'], readfile('XXTestEol')) call assert_equal(['without eol', 'stays withoutEND'], \ readfile('XXTestNoEol')) call delete('XXEol') call delete('XXNoEol') call delete('XXTestEol') call delete('XXTestNoEol') set ff& fixeol& eol& enew! endfunc