Mercurial > vim

view src/testdir/test_iminsert.vim @ 14933:665d9c0fea86 v8.1.0478

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.1.0478: cannot build with perl using MinGW commit https://github.com/vim/vim/commit/65dc12143a0b5040922bdb47c522e93909701a10 Author: Bram Moolenaar <Bram@vim.org> Date: Mon Oct 15 20:11:18 2018 +0200 patch 8.1.0478: cannot build with perl using MinGW Problem: Cannot build with perl using MinGW. Solution: Add -I. (Ken takata, Cesar Romani)
author Bram Moolenaar <Bram@vim.org>
date Mon, 15 Oct 2018 20:15:04 +0200
parents c53a80f39a52
children 2dcaa860e3fc
line wrap: on
line source

if !has('multi_byte')
  finish
endif

source view_util.vim

let s:imactivatefunc_called = 0
let s:imstatusfunc_called = 0

func IM_activatefunc(active)
  let s:imactivatefunc_called = 1
endfunc

func IM_statusfunc()
  let s:imstatusfunc_called = 1
  return 0
endfunc

func Test_iminsert2()
  set imactivatefunc=IM_activatefunc
  set imstatusfunc=IM_statusfunc
  set iminsert=2
  normal! i
  set iminsert=0
  set imactivatefunc=
  set imstatusfunc=

  let expected = has('gui_running') ? 0 : 1
  call assert_equal(expected, s:imactivatefunc_called)
  call assert_equal(expected, s:imstatusfunc_called)
endfunc