view src/testdir/test_gn.vim @ 9738:6818e3c96473 v7.4.2144

commit https://github.com/vim/vim/commit/796aa9c804f09276bd3cc45123f4a191a001dec2 Author: Bram Moolenaar <Bram@vim.org> Date: Tue Aug 2 21:41:28 2016 +0200 patch 7.4.2144 Problem: On MS-Windows quickix does not handle a line with 1023 bytes ending in CR-LF properly. Solution: Don't consider CR a line break. (Ken Takata)
author Christian Brabandt <cb@256bit.org>
date Tue, 02 Aug 2016 21:45:05 +0200
parents 847518911c0b
children 3ee84d270ea7
line wrap: on
line source

" Test for gn command

func Test_gn_command()
  noa new
  " replace a single char by itsself quoted:
  call setline('.', 'abc x def x ghi x jkl')
  let @/='x'
  exe "norm! cgn'x'\<esc>.."
  call assert_equal("abc 'x' def 'x' ghi 'x' jkl", getline('.'))
  sil! %d_
  " simple search match
  call setline('.', 'foobar')
  let @/='foobar'
  exe "norm! gncsearchmatch"
  call assert_equal('searchmatch', getline('.'))
  sil! %d _
  " replace a multi-line match
  call setline('.', ['', 'one', 'two'])
  let @/='one\_s*two\_s'
  exe "norm! gnceins\<CR>zwei"
  call assert_equal(['','eins','zwei'], getline(1,'$'))
  sil! %d _
  " test count argument
  call setline('.', ['', 'abcdx | abcdx | abcdx'])
  let @/='[a]bcdx'
  exe "norm! 2gnd"
  call assert_equal(['','abcdx |  | abcdx'], getline(1,'$'))
  sil! %d _
  " join lines
  call setline('.', ['join ', 'lines'])
  let @/='$'
  exe "norm! 0gnd"
  call assert_equal(['join lines'], getline(1,'$'))
  sil! %d _
  " zero-width match
  call setline('.', ['', 'zero width pattern'])
  let @/='\>\zs'
  exe "norm! 0gnd"
  call assert_equal(['', 'zerowidth pattern'], getline(1,'$'))
  sil! %d _
  " delete first and last chars
  call setline('.', ['delete first and last chars'])
  let @/='^'
  exe "norm! 0gnd$"
  let @/='\zs'
  exe "norm! gnd"
  call assert_equal(['elete first and last char'], getline(1,'$'))
  sil! %d _
  " using visual mode
  call setline('.', ['', 'uniquepattern uniquepattern'])
  exe "norm! /[u]niquepattern/s\<cr>vlgnd"
  call assert_equal(['', ' uniquepattern'], getline(1,'$'))
  sil! %d _
  " backwards search
  call setline('.', ['my very excellent mother just served us nachos'])
  let @/='mother'
  exe "norm! $cgNmongoose"
  call assert_equal(['my very excellent mongoose just served us nachos'], getline(1,'$'))
  sil! %d _
  " search for single char
  call setline('.', ['','for (i=0; i<=10; i++)'])
  let @/='i'
  exe "norm! cgnj"
  call assert_equal(['','for (j=0; i<=10; i++)'], getline(1,'$'))
  sil! %d _
  " search hex char
  call setline('.', ['','Y'])
  set noignorecase
  let @/='\%x59'
  exe "norm! gnd"
  call assert_equal(['',''], getline(1,'$'))
  sil! %d _
  " test repeating gdn
  call setline('.', ['', '1', 'Johnny', '2', 'Johnny', '3'])
  let @/='Johnny'
  exe "norm! dgn."
  call assert_equal(['','1', '', '2', '', '3'], getline(1,'$'))
  sil! %d _
  " test repeating gUgn
  call setline('.', ['', '1', 'Depp', '2', 'Depp', '3'])
  let @/='Depp'
  exe "norm! gUgn."
  call assert_equal(['', '1', 'DEPP', '2', 'DEPP', '3'], getline(1,'$'))
  sil! %d _
  " test using look-ahead assertions
  call setline('.', ['a:10', '', 'a:1', '', 'a:20'])
  let @/='a:0\@!\zs\d\+'
  exe "norm! 2nygno\<esc>p"
  call assert_equal(['a:10', '', 'a:1', '1', '', 'a:20'], getline(1,'$'))
  sil! %d _
endfu

" vim: tabstop=2 shiftwidth=0 expandtab