Mercurial > vim
view src/testdir/test_join.vim @ 15764:208bf8b36075 v8.1.0889
patch 8.1.0889: MS-Windows: a channel write may hang
commit https://github.com/vim/vim/commit/6524068ff3252f1373807f1ebfde21408cef624e
Author: Bram Moolenaar <Bram@vim.org>
Date: Sun Feb 10 22:23:26 2019 +0100
patch 8.1.0889: MS-Windows: a channel write may hang
Problem: MS-Windows: a channel write may hang.
Solution: Check for WriteFile() not writing anything. (Yasuhiro Matsumoto,
closes #3920)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Sun, 10 Feb 2019 22:30:07 +0100 |
parents | 15f0f9f16cd9 |
children | f776ce5d4ed8 |
line wrap: on
line source
" Test for joining lines. func Test_join_with_count() new call setline(1, ['one', 'two', 'three', 'four']) normal J call assert_equal('one two', getline(1)) %del call setline(1, ['one', 'two', 'three', 'four']) normal 10J call assert_equal('one two three four', getline(1)) quit! endfunc " Tests for setting the '[,'] marks when joining lines. func Test_join_marks() enew call append(0, [ \ "\t\tO sodales, ludite, vos qui", \ "attamen consulite per voster honur. Tua pulchra " . \ "facies me fay planszer milies", \ "", \ "This line.", \ "Should be joined with the next line", \ "and with this line"]) normal gg0gqj call assert_equal([0, 1, 1, 0], getpos("'[")) call assert_equal([0, 2, 1, 0], getpos("']")) /^This line/;'}-join call assert_equal([0, 4, 11, 0], getpos("'[")) call assert_equal([0, 4, 67, 0], getpos("']")) enew! endfunc