Mercurial > vim
view src/testdir/test_erasebackword.vim @ 24616:ed4d7ab9dcdc v8.2.2847
patch 8.2.2847: Perl not tested sufficiently
Commit: https://github.com/vim/vim/commit/588cf7547bafaff46a82bc125d05d24a1cedf827
Author: Dominique Pelle <dominique.pelle@gmail.com>
Date: Mon May 10 23:49:39 2021 +0200
patch 8.2.2847: Perl not tested sufficiently
Problem: Perl not tested sufficiently.
Solution: Add test. Also test W17. (Dominique Pell?, closes https://github.com/vim/vim/issues/8193)
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Tue, 11 May 2021 00:00:09 +0200 |
parents | 08940efa6b4e |
children |
line wrap: on
line source
" Test for i_CTRL-W func Test_erasebackword() enew exe "normal o wwwこんにちわ世界ワールドvim \<C-W>" call assert_equal(' wwwこんにちわ世界ワールド', getline('.')) exe "normal o wwwこんにちわ世界ワールドvim \<C-W>\<C-W>" call assert_equal(' wwwこんにちわ世界', getline('.')) exe "normal o wwwこんにちわ世界ワールドvim \<C-W>\<C-W>\<C-W>" call assert_equal(' wwwこんにちわ', getline('.')) exe "normal o wwwこんにちわ世界ワールドvim \<C-W>\<C-W>\<C-W>\<C-W>" call assert_equal(' www', getline('.')) exe "normal o wwwこんにちわ世界ワールドvim \<C-W>\<C-W>\<C-W>\<C-W>\<C-W>" call assert_equal(' ', getline('.')) exe "normal o wwwこんにちわ世界ワールドvim \<C-W>\<C-W>\<C-W>\<C-W>\<C-W>\<C-W>" call assert_equal('', getline('.')) enew! endfunc " vim: shiftwidth=2 sts=2 expandtab